Vbscript打印屏幕到MSpaint

Question

拍摄活动窗口的屏幕截图。

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 

这里，以活动窗口的截图操作工作正常.. 此外，它开始与MSPAINT，但内容没有在内线文件被粘贴。

Answer 1

你的^ V参数.Sendkeys是错误的，它应该是：

WshShell.sendkeys "^v" 

.AppActivate后。睡眠似乎是至关重要的;直到我增加了睡眠时间，我才得到它'工作'：

WshShell.AppActivate "Paint" 
WScript.Sleep 5000 

您的问题prooves .Sendkeys是不可靠的。看看here, especially the posting of Moby Disk想想其他策略。