Блог

Я написал следующий код в VBS, чтобы открыть приложение с именем пользователя и паролем (я на Windows 10).

 Title="Menu"  message = "Select your task"amp;vbcramp;vbcramp;_   "1 - T "amp;vbcramp;_  " "amp;vbcramp;_  "2 - A "amp;vbcramp;_  " "amp;vbcramp;_  "3 - M "amp;vbcramp;_  " "amp;vbcramp;_  "4 - Exit "    Do  response = InputBox(message,Title,4)  If response = "" Then WScript.Quit   If IsNumeric(response) Then Exit Do   MsgBox "enter numeric values only"  Loop        Select Case response   Case 1 Run(1)  Case 2 Run(2)  Case 3 Run(3)  Case 4 Run(4)  end Select        Sub Run(var)    Set WshShell = WScript.CreateObject("WScript.Shell")  set objshell = WScript.CreateObject( "WScript.Shell")    Select Case var  Case 1     objShell.Run("""C:Program Filespab.exe""") 'for application open  objshell.AppActivate (apptitle)  ' objshell.AppActivate ("pab.exe")    WScript.Sleep 400  WshShell.SendKeys "{ENTER}" 'send key when application open    WScript.Sleep 400  WshShell.SendKeys "ca" 'user name of application    WScript.Sleep 400  WshShell.SendKeys "{ENTER}"      WshShell.SendKeys "ca1" 'password of application   WshShell.SendKeys "{ENTER}"    WScript.Sleep 400    WshShell.SendKeys "xxxx" 'another password   WshShell.SendKeys "{ENTER}"    REM WshShell.SendKeys "%S"    Set objshell= nothing  Set WSHShell = Nothing    Case 4 wscript.quit()  End select End Sub   

Проблема в том, что когда я выбираю опцию из меню и нажимаю кнопку ОК, фокус переходит в меню. Так что в значительной степени я не могу запустить приложение с именем пользователя и паролем. Кто-нибудь может помочь мне понять, как сфокусироваться на ПЭБ.EXE вместо МЕНЮ, пожалуйста?

Ура!