[antonhacktm]

Сохраните этот скрипт с расширением. VBS

Код:

set WshShell = WScript.CreateObject("WScript.Shell")  
WshShell.Run "mspaint"  
WScript.Sleep 1500  
WshShell.sendkeys"^(v)"  
WScript.Sleep 1500  
WshShell.sendkeys"^(s)"  
WScript.Sleep 1500  
WshShell.sendkeys"Screen" 
WScript.Sleep 500  
WshShell.sendkeys"{TAB}"  
WScript.Sleep 500  
WshShell.sendkeys"j"  
WScript.Sleep 500  
WshShell.sendkeys"{TAB}"  
WshShell.sendkeys"{TAB}"  
WshShell.sendkeys"{TAB}"  
WshShell.sendkeys"{TAB}"  
WshShell.sendkeys"{TAB}"  
WScript.Sleep 500  
WshShell.sendkeys"{right}"  
WScript.Sleep 1000  
WshShell.sendkeys"{ENTER}"  
WScript.Sleep 500  
WshShell.sendkeys"{TAB}"  
WshShell.sendkeys"{TAB}"  
WshShell.sendkeys"{TAB}"  
WshShell.sendkeys"{TAB}"  
WScript.Sleep 500  
WshShell.sendkeys"{ENTER}"  
WSHShell.Run "taskkill /f /IM mspaint.exe",0  
msgbox "Фотография на экране рабочего стола с именем (Screen)"

Затем нажмите кнопка PrtScr. Запустить скрипт.


В сценарий не перемещать мышь.