[Maza Faka]

garbage

отследить окончание Program1

Смотри функцию

Код:

ProcessWaitClose()

.

[Creat0R]

zero_1632,

MsgBox (4096,$iPID,StdoutRead ($iPID)) - ничего не выводит

Если приложение program.exe пишет в StdOut поток, то можно пробовать читать этот поток, но не одним вызовом, а из цикла...

Код:

Run(@ComSpec & " /c echo I am an StdOut Stream Data", "", @SW_SHOW, 2 + 4)

$iPID = ProcessExists("Cmd.exe")

While 1
    $Read = StdoutRead($iPID)
    If @error Then ExitLoop
    MsgBox(0, "STDOUT read:", $Read)
WEnd

Можно ли делать с помощью autoit скриншоты окна или его любой части?

Можно, в последней версии есть функции _ScreenCapture_Capture()/_ScreenCapture_CaptureWnd().


garbage
Кроме упомянутого ProcessWaitClose, если программа запускается из скрипта, то проще использовать RunWait()


SvetlanaK,

можно ли вытянуть данные из существующей базы, например из аксесс-а?

Для этого кажется есть отдельные UDF'ы.

Может у кого ссылки есть на статьи и литературу по использованию SQLite библиотеки

Только ссылка на оф. форум

[HORRIBLE]

У меня проблема возникла. Вот мой код.
.......................................
$i=0
$y = 208
$stroka = 0
do
ClipPut("")
MouseClickDrag("left", 93, $y+$i, 385,$y+$i)
Send("^{c}")
$creater = StringLen(GUICtrlRead($Label_2))
$len = StringLen(ClipGet())

If $len <= 11 then
$Name = ClipGet()
else
$len_1 = $len - $creater
$Name = StringTrimRight(ClipGet(),$len_1)
$len_11 = StringLen($Name)
Endif
$login_2 = GUICtrlRead($Label_2)
$test = StringCompare ( $Name, $login_2,2)
If $test = 0 then
$stroka = $stroka + 1
else

$i =$i + 22
$y_2 = $y+$i
$stroka = $stroka + 1
endif
until $test= 0

MsgBox(0,"","найден в строке: " &$stroka,3)

$len_3 = 0

while $len_3 > $len_11

MouseClickDrag("left", 93, $y_2, 385,$y_2)
Send("^{c}")
$len_3 = StringLen(ClipGet())

Wend

У меня не работает все после while...... как мне достать из первого цикла: $y_2 и $len_11 .

[Creat0R]

HORRIBLE,

не работает все после while...... как мне достать из первого цикла: $y_2 и $len_11

Во первых, код нужно заключать в тег Code, а во-вторых, это больше на кашу похоже чем на код (без обиды).

Переменная $len_11 объявляется условно, поэтому есть шанс что она не будет создана в момент перехода ко второму циклу (и естественно будет ошибка). Тоже самое и с $y_2.

Что нужно достичь этим скриптом?

[Angelus]

Хочу команду ControlGetText ( 'Настройка', '', 'Edit1' ) добавить в цикл, что бы не писать пятдесят с лишним строк.....можно ли как нибудь плюсовать Edit1, что бы получилось Edit2 и тд в этом цикле???

[Maza Faka]

Angelus,

можно ли как нибудь плюсовать Edit1, что бы получилось Edit2 »

Код:

For $i = 1 To 50
    ControlGetText ('Настройка', '', 'Edit' & $i)
Next

[HORRIBLE]

Creat0R,
Хы, ну критику ни кто не отменял... Учетем, спасибо..... А если бредово или через одно место ) написано, ну уж как умеем пока), как говориться как умею так и выкручиваюсь ).
Ты имел ввиду,что оформлять надо:

читать дальше »

PHP код:

$i=0

$y = 208

$stroka = 0



Do



      ClipPut("")

      MouseClickDrag("left", 93, $y+$i, 385,$y+$i)

      Send("^{c}")

      $len = StringLen(ClipGet())



            If $len <= 11 then

            $Name = ClipGet()



            else

                    $creater = StringLen(GUICtrlRead($Label_2))

                    $len_1 = $len - $creater

                    $Name = StringTrimRight(ClipGet(),$len_1)

                    $len_11 = StringLen($Name)



            Endif



        $login_2 = GUICtrlRead($Label_2)

        $test = StringCompare ( $Name, $login_2,2)



            If $test = 0 then

                    $stroka = $stroka + 1



            else

                    $i =$i + 22

                    $y_2 = $y+$i

                    $stroka = $stroka + 1



           endif



Until $test= 0



MsgBox(0,"","найден в строке: " &$stroka,3)



              $len_3 = 0



              while $len_3 > $len_11

                     MouseClickDrag("left", 93, $y_2, 385,$y_2)

                     Send("^{c}")

                     $len_3 = StringLen(ClipGet())



            Wend 

Эм, этим, я хотел получить такую вещь.....Да это все делается на интернет страничке... Есть список в который я заношу свое имя: $creater , далее после того как имя внесено, оно появляется на n-строчке, которую я определяю (сравнивая скопированную строчку, предварительно обрезав ее до 11 знаков, с $creater ).Это все делается в Do..... Until.
Нашел такую строчку, теперь работаю с ней, жду пока в этой строчке не появиться еще ченить, короче пока длинна не измениться...... Как только появилось, жму на кнопку.... Это должно делаться в while.....Wend
Примерно так.......

Переменная $len_11 объявляется условно, поэтому есть шанс что она не будет создана в момент перехода ко второму циклу (и естественно будет ошибка). Тоже самое и с $y_2.

А как тогда быть?

У меня еще вопpосы:

1. Как отправить в сон неограниченный (или поставить его на паузу) при помощи: HotKeySet
2. Вот есть цикл, как ему сказать, что если он превысил n-е кол-во шагов и не нашел результатов, вернуться в начало и продолжить делать все по новой.
3. Можно ли сделать связь между 2-мя файлами автоита. Ну т.е. есть 2 файла. Первый высчитывает некий параметр, который необходим для работы второго файла, а запускаются эти 2-ва файлика из 3-го файла. Тут вопрос в удобстве, нехочется иметь один файл очень большой, в котором слишком много буков ), а хочется чтоб было 2 но в которых не так много написано.
4. Если уже открыта интернет страница и ее ну ни как закрывать нельзя, как применять команды связанные с управлением IE?
Спасибо!!!

[Creat0R]

HORRIBLE,

критику ни кто не отменял

Это была не критика, а всего лишь совет..

А если бредово или через одно место ) написано, ну уж как умеем пока), как говориться как умею так и выкручиваюсь ).

А вот это неверный подход (тоже на уровне совета пишу ) - Если мне нужна помощь, я сделаю всё чтобы любому желающему мне помочь, не нужно было гадать и разгребать непонятный кусок кода, который является частью громадного скрипта. Я сделаю совершенно независемый пример, который максимально отразит суть моей проблемы, чтобы с этим примером было приятно и удобно работать желающему мне помочь.

Ты имел ввиду,что оформлять надо:

Примерно, так хотябы понятнее, уже есть больше желания присмотреться и попытаться найти суть проблемы .

Эм, этим, я хотел получить такую вещь.....Да это все делается на интернет страничке... Есть список в который я заношу свое имя: $creater , далее после того как имя внесено, оно появляется на n-строчке, которую я определяю (сравнивая скопированную строчку, предварительно обрезав ее до 11 знаков, с $creater ).Это все делается в Do..... Until. Нашел такую строчку, теперь работаю с ней, жду пока в этой строчке не появиться еще ченить, короче пока длинна не измениться...... Как только появилось, жму на кнопку.... Это должно делаться в while.....Wend Примерно так.......

Примерно не достаточно, я из вышеописанного так и не понял что требуется... что за список, где $Label_2, и т.п.

А как тогда быть?

Объявлять заранее переменные

Как отправить в сон неограниченный (или поставить его на паузу) при помощи: HotKeySet

Примерно так

Код:

#include <GuiConstants.au3>

$Paused = False
HotKeySet("^p", "ToggleScriptPause")

$GUI = GUICreate("Test Script", 300, 200)

$PauseToggle_Button = GUICtrlCreateButton("test", 20, 40)

GUISetState(@SW_SHOW, $GUI)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $PauseToggle_Button
            MsgBox(0, "", "Just a test")
    EndSwitch
WEnd

Func ToggleScriptPause()
    $Paused = Not $Paused

    Local $iOpt_GOEM = Opt("GuiOnEventMode", 1)
    If $iOpt_GOEM = 1 Then Opt("GuiOnEventMode", 0)

    While $Paused
        Sleep(100)
    WEnd

    Opt("GuiOnEventMode", $iOpt_GOEM)
EndFunc

Вот есть цикл, как ему сказать, что если он превысил n-е кол-во шагов и не нашел результатов, вернуться в начало и продолжить делать все по новой.

Использовать счётчик, и сбрасывать его при достижении лимита.

Подробнее

Код:

;Проверка результата
$Results_Val = 123

;Счётчик попыток
$Loop_Counter = 1

;Лимит попыток
$Loop_Limit_Atempts = 122

While 1
    If $Loop_Counter = $Results_Val Then ExitLoop ;Найден результат

    If $Loop_Counter > $Loop_Limit_Atempts Then

        ;Сбрасываем счётчик
        $Loop_Counter = 1

        ContinueLoop
    EndIf

    $Loop_Counter += 1

    Sleep(1)
WEnd

Можно ли сделать связь между 2-мя файлами автоита

Через #Include...

Код:

If MsgBox(36, "Question", "Include second script?") = 6 Then
    #include <MySecondScript.au3>
EndIf

MySecondScript.au3:

Код:

MsgBox(0, "", "Hi, i am a second script")

[Angelus]

Maza Faka, я так пробЫвал...но он возвращает пустое значение....

[Creat0R]

HORRIBLE,

Если уже открыта интернет страница и ее ну ни как закрывать нельзя, как применять команды связанные с управлением IE?

Как понять “ни как закрывать нельзя”? эта страница открыта скриптом? вообще то в справке есть описания для функии _IE...

Angelus,

возвращает пустое значение

Значит неверный элемент.. можно попробовать использовать как CLASSNN...

Код:

For $i = 1 To 50
      $Text = ControlGetText ('Настройка', '', '[CLASSNN:Edit' & $i & ']')
Next

Или просто CLASS.