[6757439]

Попробуй задать путь к папке с программой в качестве рабочего каталога: Код: Run("C:\Work\assistant.exe", "C:\Work")

Заработало! Спасибо за подсказку!

[Frost_Imp]

Всем доброго времени суток!
Прошу помочь мне написать следующий простенький код...
В общем есть у меня некое изображение на экране. Мне необходимо отследить, меняется ли цвет определенного пиксела... В общем смотрите:
Func GetBuf()
$time = 0
$err = 0
While $time <= 5000
$p = PixelGetColor (1162,434)
If $p = 0xEBEC76
$time= $time+500
Sleep (500)
Else
$err = $err + 1
$time= $time+300
Sleep (300)
EndIf
WEnd
EndFunc
Суть следующая: сначала задаю значение переменных $time и $err равными нулю. Затем вхожу в цикл, в начале которого проверяю значение $time, чтобы цикл не уходил в бесконечность. Затем определяю цвет пикселя в определенном месте окна (PixelGetColor). Если цвет меня устраивает (If $p = 0xEBEC76) - увеличиваю значение переменной $time, делаю паузу на полсекунды (Sleep (500)) и опять вхожу в цикл. Если цвет меня НЕ устраивает - увеличиваю значение переменной $err, делаю паузу (Sleep (300)) и снова вхожу в цикл, пока буду удовлетворять условиям $time <= 5000.
После выполнения функции меня интересует значение параметра $err. В случае, если оно >0, то все в порядке, и процедуру нужно повторить, скажем, через 5 минут. Но если это значение равно 0, то необходимо вывести какое-нибудь диалоговое окно, пикнуть встроенным динамиком компа и завершить процедуру.
Помогите, плиз, написать единый код, так как у меня проблемы с передачей параметров(

[Maza Faka]

Frost_Imp
Возвращай из функции значение и на основе этого значения переходи к тому или иному действию, что-то вроде этого:

Код:

;Здесь у нас GUI
;;;;;;;;;;;;;;;;

;Главный цикл
While 1
    Sleep(100)
WEnd

Func GetBuf()
    Local $time = 0, $err = 0, $p

    While $time <= 5000
        $p = PixelGetColor(1162,434)
        If $p = 0xEBEC76
            $time= $time + 500
            Sleep(500)
        Else
            $err = $err + 1
            $time = $time + 300
            Sleep(300)
        EndIf
    WEnd

    If $err > 0 Then
        Return True
    Else
        Beep(500, 1000)
        Return False
    EndIf
EndFunc

процедуру нужно повторить, скажем, через 5 минут

Используй функции TimerInit(); TimerDiff()

Frost_Imp
Вариант без GUI:

Код:

While 1
    Local $time = 0, $err = 0, $p

    While $time <= 5000
        $p = PixelGetColor(1162,434)
        If $p = 0xEBEC76 Then
            $time= $time + 500
            Sleep(500)
        Else
            $err = $err + 1
            $time = $time + 300
            Sleep(300)
        EndIf
    WEnd

    If $err = 0 Then
        Beep(500, 1000)
        Exit
    EndIf

    Sleep(1000 * 300) ;Пауза 5 мин.
WEnd

[Frost_Imp]

Maza Faka, спасибо! Подошел "Вариант без GUI". Я, правда, не понял, причем тут GUI...
Еще просьба: можно ли усовершенствовать эту процедуру таким образом, чтобы при ее запуске юзеру показывалось бы диалоговое окно, в которое он сам смог бы вносить различные парамеры? Ткните носом плиз, где это можно почитать либо опишите простой пример.
Буду очень благодарен!

[Maza Faka]

Ткните носом плиз »

Читай справку, там всё очень подробно описано и показано.

[Grammaton Cleric]

Народ помогите пожалуйста горю начинающего "автоитера".
Часто приходится переставлять приложение, которое настраивается несколько неудобным способом... Еще и само приложение сырое, но заставляют его использовать, так как других нету для этих целей.
В общем передо мной такая дилемма:
Надо найти иконку в трее, ткнуть по ней правой кнопкой мыши, в контектном меню выбрать пункт, открывается подменю, в нем выбираем значение левой кнопкой мыши... Затем еще раз по иконке в трее, и в основном контекстном меню выбрать другой пункт и нажать левой кнопкой... (Названия пунктов меню известно... )
Естественно точное расположение этой самой иконки в трее не известно... Само приложение нормально запускается и работает, но работает в фоне (GUI у него только для настройки и вызывается этой самой правой кнопкой по иконке). Все его настройки происходят через трей.

[amel27]

Creat0R

Valik'а вроде устроил последний вариант, дописал UDF и создал тему на оффсайте
ты бы прав насчет разработчиков - теперь они точно не реализуют эту фичу в AutoIT

[Creat0R]

amel27,

Valik'а вроде устроил последний вариант »

Ага, это он видимо полинился сам сделать подобное в качестве встроенной функции

дописал UDF и создал тему на оффсайте

Супер!

По поводу имени функции. Имхо, она будет лучше отражать смысл если её назвать хотя бы так: _StringRegExpCallBackReplace()
То что вызываема функция это и есть callback-функция это не спорю, но если посмотреть на встроенные функции, такие как GUIRegisterMsg, DllCallbackRegister, то там ведь указывается пользовательская функция, поэтому именно вызывающая функция должна хоть как то отражать её предназначение

теперь они точно не реализуют эту фичу в AutoIT

Если Valik найдёт проблему в UDF (и если его не побидит лень) то он скорее всего это сделает, насколько я помню, если он “загорается” что-то сделать (а в этом случае оно вроде так и есть), то рано или поздно оно реализуется.

[ganselo]

Пред всем. У меня возникла проблемка, прошу помочь

Код:

FileOpen (@ScriptDir & "\1.txt", 1)
HotKeySet ("{a}", "a")
HotKeySet ("{b}", "b")
HotKeySet ("{c}", "c")

While 1
	Sleep (100)
WEnd

Func a()
	FileWrite ("1.txt", "a")
EndFunc
Func b()
	FileWrite ("1.txt", "b")
EndFunc
Func c()
	FileWrite ("1.txt", "c")
EndFunc

Вобщем всё работает, скрипт запускается и записывает в файл 1.txt буквы а, b, c при нажатии соответствующих клавишь. Но после загрузки скрипта другие приложение не могут получять поток ввода от нажатий клавишь a,b,c (т.е если запущен скрипт и зайти в notepad например, то при нажатии a,b,c в notepade ни чего не происходит, но в файл 1.txt эти нажатия записываются). Собственно, как можно перенаправлять поток ввода и в приложение и в скрипт? help)

[Creat0R]

как можно перенаправлять поток ввода и в приложение и в скрипт? »

Нужно отключать временно клавишу, отсыласть её, и включать обратно:

Код:

$hFileOpen = FileOpen(@ScriptDir & "\1.txt", 1)

HotKeySet("^q", "_Quit")

HotKeySet("{a}", "_ABC")
HotKeySet("{b}", "_ABC")
HotKeySet("{c}", "_ABC")

While 1
    Sleep (100)
WEnd

Func _ABC()
    Local $sHotKey = @HotKeyPressed
    FileWrite($hFileOpen, StringRegExpReplace($sHotKey, "[\}\{]", ""))

    HotKeySet($sHotKey)
    Send($sHotKey)
    HotKeySet($sHotKey, "_ABC")
EndFunc

Func _Quit()
    FileClose($hFileOpen)

    Exit
EndFunc

Как видно, FileOpen() возвращает хендл (идентификатор), используя его пишем в файл, на выходе обязательно закрываем его.