Как вызвать контрл + альт + верх в vbs

Question

Как вызвать контрл + альт + верх в vbs

Mister X Мыслитель (5477), на голосовании 1 год назад

имеется такой код

set qw = WScript.CreateObject("WScript.Shell")
SendKeys (^%{UP})
With qw
we = .CurrentDirectory

End With

qw.Run chr(34) & we & "\cpuz_x64_ru.exe" &chr(34), 1 , true

не могу вызвать сочетание клавиш контр + альт + верх
SendKeys (^%{UP}) в чем ошибка?

Answer 1

Я такой же как и ты !!! сначала думал ничего кроме .bat нету ! потом увидел vbs думал кроме .bat и .vbs ничего нету !.
А потом еще увидел AutoIT, AutoHotKey. а еще мой первый язык программирования настоящий скорее всего был Small Basic.
А потом Ассемблер первым пытался читать и бросил.
А потом начал читать книгу С++ за 21 день С++ Builder 2006 и прочел ее за целый год горем по палам.

Но все усвоил.
Теперь у меня .bat .vbs, autoit, ahk, C++ и любой другой язык программирования код которого найду в инете.

если на VBS не получается попробуй AHK AutoHotKey.

А мне интересно а ты проверять можешь нажались эти клавиши или нет !.
Короче это твоя головная боль ! я код вот этот лично проверил все работает !!!!

Может быть ни так как тебе нужно, конечно может быть ! но кнопки Ctrl + Alt + UP она нажимает !!!!

Это весь код кроме этого больше ничего в файле вбс не было. у меня.

 Set WshShell = WScript.CreateObject("WScript.Shell") 
  
'Делаем задержку в 2 секунды 
WScript.Sleep 2000        
' Имитируем нажатие клавиши 
WshShell.SendKeys ("^%{UP}") 
 
WScript.Sleep 2000

Снизу Картина Доказуха !