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想想其他策略。