Vbscript Printscreen to 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" 

.Sleep после .AppActivate кажется критическим; Я не мог заставить его «работать», пока я не увеличивал время сна:

WshShell.AppActivate "Paint" 
WScript.Sleep 5000 

Вашей проблема, что .Sendkeys доказательств не является надежным. Посмотрите here, especially the posting of Moby Disk, чтобы подумать о других стратегиях.