Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 35
Благодарности: 0

Профиль | Отправить PM | Цитировать


Собственно перебрал все варианты которые нашел, слегка адаптировал самый рабочий и получил на выходе такую штуку, вполне себе рабочую:
Код: Выделить весь код
#Include <WinAPI.au3>
$g_szVersion = "My Script 1.0000"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{Esc}" , "MyExit")

While 1=1
$hWnd = WinGetHandle("Имя окна")
_SendMessage($hWnd, 0x6, 0x1)
ControlSend($hWnd, "", "", "{TAB 10}")
_SendMessage($hWnd, 0x6, 0x1)
Sleep(100)
ControlSend($hWnd, "", "", "{ENTER}")
Sleep(3000)
WEnd;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('скрипт на паузе',0,0)
    WEnd
    ToolTip("")
EndFunc
Func MyExit()
    MsgBox(0, "Сообщение системы", "скрипт завершен")
    Exit
    EndFunc

Отправлено: 12:22, 04-10-2009 | #10