VBS Не нажимается клавиша PrintScreen

Паразит

Участник
Сообщения
62
Реакции
1
Почему у меня не нажимается клавиша PrintScreen?

VB.NET / VBA:
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 1000
WshShell.Run "mspaint"
WScript.Sleep 1000
WshShell.SendKeys "{PRTSC}"
WshShell.AppActivate "untitled - Paint"
WScript.Sleep 3000
WshShell.SendKeys "^v"
WScript.Sleep 500
WshShell.SendKeys "^s"
WScript.Sleep 500
WshShell.SendKeys "С:\111.jpg"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{DOWN}"
WScript.Sleep 500
WshShell.SendKeys "{DOWN}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
Set WshShell=Nothing
WScript.Quit
 
Назад
Сверху Снизу