对 Activity 窗口进行截屏。

Set Wshshell=CreateObject("Word.Basic")
WshShell.sendkeys"%{prtsc}"
WScript.Sleep 1500

运行Mspaint并粘贴。
set Wshshell = WScript.CreateObject("WScript.Shell")
Wshshell.Run "mspaint"
WScript.Sleep 500

WshShell.AppActivate "Paint"
WScript.Sleep 500

WshShell.sendkeys "^(v)"
WScript.Sleep 1500

在这里,用于拍摄 Activity 窗口的屏幕快照的操作正常。
此外,它以mspaint开头,但是内容未粘贴到paint文件中。

最佳答案

您的.Sendkeys的^ V参数错误,应为:

WshShell.sendkeys "^v"

.AppActivate之后的.Sleep似乎很关键;在增加 sleep 时间之前,我无法让它“工作”:
WshShell.AppActivate "Paint"
WScript.Sleep 5000

您的问题证明.Sendkeys不可靠。查看here, especially the posting of Moby Disk以考虑其他策略。

10-08 02:16