对 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以考虑其他策略。