[Iska]

Можно ли переделать скрипт так »

Нет. С «.SendKeys()» — нет.

[Numufar]

Нет. С «.SendKeys()» — нет. »

Оказывается, можно.

Код:

Dim timeout  
timeout = 13  
set WshShell = WScript.CreateObject("WScript.Shell")  
Set WshExec = WshShell.Exec ("""C:\Program Files (x86)\Radmin Viewer 3\Radmin.exe"" /connect:192.168.1.100:4899")  
Do  
    If WshShell.AppActivate("Система безопасности Radmin: 192.168.1.100") Then  
  
        WshShell.SendKeys "admin"   
        WshShell.SendKeys "{TAB}"   
        WshShell.SendKeys "admin"   
        WshShell.SendKeys "{ENTER}"   
  
        Exit Do  
    End If  
  
    If timeout = 0 Then  
        WScript.Echo "Прости, но Радмин на этом компе не фурычит "  
        Exit Do  
    End If  
  
    WScript.Sleep 1000  
    timeout = timeout - 1  
Loop

Скрипт в течении 13 секунд каждую секунду проверяет, не запустилось ли окно Радмина, и, если запустилось, передаёт ему параметры из SendKeys().

[Iska]

Оказывается, можно. »

Numufar, «.SendKeys()» не даёт никаких гарантий, что «нажатия» дойдут до потребного окна и будут им обработаны.

[Numufar]

Iska, Единственный косяк, из-за которого может не сработать скрипт - это если после появления окна Радмина, но до посылания скриптом в него SendKeys(между этими действиями 1 секунда) сделать активным другое окно. При желании интервал проверки можно уменьшить до 0.001с, тогда уж точно никуда нажать не успеете) Но, думается, такой скрипт будет нехило сжирать ресурсы компьютера.

[Iska]

Numufar, надёжнее использовать связку из VBScript с библиотекой AutoItX.dll, либо сам AutoIt, либо AutoHotKey.