[Creat0R]

Предупреждение за нарушение правил форума, пункт 2.7 и пункт 3.19:

2.7: В заголовке темы обязательно обозначайте название предмета, которого касается вопрос, а в теле сообщения максимально подробно опишите проблему (приведите аппаратную/программную конфигурацию, а также изложите ситуацию, в которой возникает проблема)... Подробнее о принципах создания тем читайте в этом документе и Правилах форумов. 3.19: Запрещается... Создавать темы, имеющие неинформативные или состоящие из заглавных букв заголовки (например, "Помогите!", "HELP!", "У меня проблема"). Такие темы будут закрыты или перенесены в Тест-форум. Если вы хотите вернуть перенесенную тему обратно, пока ее не закрыли в Тест-форуме, измените ее заголовок на осмысленный и напишите об этом в теме.

Переименуйте пожалуйста тему (Как переименовать свою тему?).

А также куски кода следует помещать в соответствующий тег (code).

[batyaPS]

Переименуйте пожалуйста тему (Как переименовать свою тему?). »

я бы рад , но нет кнопки "Редактировать"

[madmasles]

Нужен простой скрипт который будет постоянно сидеть в памяти (запущен) и ждать появления определенного окна. »

Попробуйте так:

Код:

#NoTrayIcon

Global $fClick = True, _
        $sTitle = '[TITLE:Весовой модуль; CLASS:#32770]'

HotKeySet('{Esc}', '_Exit') ;Esc - выход
If @Compiled Then
    _RegRun() ;для записи скрипта в автозагрузку
EndIf
While 1
    If WinExists($sTitle) And BitAND(WinGetState($sTitle), 2) Then
        If $fClick Then
            _Click()
            If Not @error Then
                $fClick = False
            EndIf
        EndIf
    Else
        $fClick = True
    EndIf
    Sleep(100)
WEnd

Func _Exit()
    Exit
EndFunc   ;==>_Exit

Func _RegRun()
    Local $sRegRun = 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'

    If RegRead($sRegRun, @ScriptName) = '' Or RegRead($sRegRun, @ScriptName) <> @ScriptFullPath Then
        RegWrite($sRegRun, @ScriptName, 'REG_SZ', @ScriptFullPath)
    EndIf
EndFunc   ;==>_RegRun

Func _Click()
    Local $sLogin = 'digi'

    If Not ControlClick($sTitle, '', '[CLASS:Button; INSTANCE:1]') Then Return SetError(1)
    If WinExists($sTitle) Then Return SetError(1)
    Send($sLogin)
    Sleep(100)
    Send('{TAB}')
    Sleep(100)
    Send($sLogin)
    Sleep(100)
    Send('{ENTER}')
    ;здесь бы проверку сделать, что-то должно измениться.
    Return SetError(0)
EndFunc   ;==>_Click

[batyaPS]

Попробуйте так: »

большое спасибо. чуть уточню .

1 - окно которое отлавливаем .
2 - кнопка которую жмем.
3 - в оба поля через tab нужно ввести символы digi
4 - окно которое не имеет названия и AutoIT Window Info его не видит
либо зависает. данное окно закрывается(подтверждается вход) нажатием клавиши enter

так вот , после запуска скрипта окно 1 успешно отлавливается и клавиша 2 нажимается,
а вот действие 3 не выполняется (что логично, так как скриптом это не предусмотрено)
можно попросить доработать скрипт с учетом условий ?

[madmasles]

batyaPS,
Я код изменил, но не проверял. (Предыдущий код проверял на собственном нарисованном окне.)

[batyaPS]

поправка 2 .

действие 3 не выполняется, наверно по тому что окно 4 появляется не сразу , а спустя 5 секунд после нажатия кнопки 2.
нужна задержка 5-6 сек.
как можно получить данные о окне 4 ? если AutoIT Window Info его не видит ?

[batyaPS]

ну подскажите, куда правильно поставить SLIP ?

[madmasles]

batyaPS,
Попробуйте так:

Код:

;...
If Not ControlClick($sTitle, '', '[CLASS:Button; INSTANCE:1]') Then Return SetError(1)
    Sleep(7000) ;здесь ждем 7 секунд
    If WinExists($sTitle) Then Return SetError(1)
    Send($sLogin)
    Sleep(100)
    Send('{TAB}'
;...

А что-то меняется при удачных действиях?

[batyaPS]

А что-то меняется при удачных действиях? »

что Вы имеете в виду ? с задержкой все работает как и хотел .(правда пришлось малость ее увиличить, каждый раз появление окна происходит с разной задержкой в зависимости от загрузки ПК)
не чего не появляется и не каких сообщений нет. появилось окно . тут же нажалась кнопка . выдержка . ввод логин пароль .ентер. все как надо . было бы вообще шикарно если бы можно было избавится от задержки . но как отловить это окно без
заголовка ?