Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

vbs на Win11 работает криво.

Yoda Оракул (52677), на голосовании 2 месяца назад
Я не эксперт в скриптах. Хочу написать скрипт, чтобы отрубал/вырубал ВПН в Кинетике. Ручками если в Телнете писать, там всё работает. Vbs ведёт себя неадекватно, открывает различные приложения на рабочем столе и посылает туда нажатия клавиш.
Вот отрывок:
 Dim WshShell 
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.run "cmd.exe"
WScript.Sleep 500
WshShell.SendKeys "telnet"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 500
WshShell.SendKeys "open 192.168.1.1"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 2000
WshShell.SendKeys "[admin]"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 100
Почему он вызывает Консоль, и в то же время открывает что попало на рабочем столе и шлёт туда нажатия, а не в консоль?
Дополнен 3 месяца назад
Разобрался. ПРосто паузы длиннее надо поставить. Видать консоль не успевала открываться, а нажатия уже летели куда попало. Отвечать не нужно
Голосование за лучший ответ
/bin/laden Искусственный Интеллект (113101) 3 месяца назад
нафиг эта городьба? напиши ватник с перенаправлением ввода и все.
или через curl http запрос сделать.
YodaОракул (52677) 3 месяца назад
Я это не умею=)
Похожие вопросы