Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   помочь подправить синтаксис if ххх then sendkeys (http://forum.oszone.net/showthread.php?t=256977)

ribak77 24-03-2013 03:57 2117175

помочь подправить синтаксис if ххх then sendkeys
 
есть рабочии ОБРАЗЕЦ скрипта задача которого ждать появления окна программы с титлом "UNTITLED - NOTEPAD"
НО вместо вывода сообщения
"DA"

чтобы посылало sendkeys ESC

опыта к сожалению не хватает подправить самому заранее СПАСИБО

Set shell = WScript.CreateObject("WScript.Shell")
timeout = 10
title = "UNTITLED - NOTEPAD"
Do
If shell.AppActivate(title) Then
WScript.Echo "DA"
Exit Do
End If
If timeout = 0 Then
WScript.Echo "NET"
Exit Do
End If
WScript.Sleep 1000
timeout = timeout - 1
Loop

Dragokas 26-03-2013 03:26 2118636

Код:

set shell = WScript.CreateObject("WScript.Shell")
timeout = 10
title = "UNTITLED - NOTEPAD"
Do
    If shell.AppActivate(title) Then
        shell.sendkeys("{ESC}")
        WScript.Quit
    End if
    if timeout = 0 then exit do
    WScript.Sleep 1000
    timeout = timeout - 1
Loop
WScript.Echo "NET"



Время: 12:14.

Время: 12:14.
© OSzone.net 2001-