Как сделать паузу скрипта пока переменная не примет необходимое значение?
- Автор темы Kalisnik
- Дата начала
Привожу:
А вот список ошибок которые у меня обнаружились:
1. Як же гадость "ABBYY Screenshot Reader"!
2. Такая гадость, что после 1000-го цикла начинает работать чуть ли не в два раза медленнее (видимо код и вправду еще те умельцы писали))).
3. HotKeySet("e", "Exit") не работает - подозреваю что это моя заслуга.
4. Выше написанный код писал чайник... так что жду полномасштабной критики по всем фронтам! ;) В том числе замечания по расходу ресурсов ИВМ.
Код:
$asd = FileOpen("vsykina.txt", 1)
Dim $StX[2][1] = [[465], [545]]
Dim $StY[2][1] = [[102], [117]]
While 1
ClipPut("Ошибка!")
$title = WinGetHandle("abvgdeika")
WinActivate($title)
WinWaitActive($title)
$hWnd = WinGetHandle('[TITLE:ABBYY Screenshot Reader; CLASS:#32770]')
If BitAND(WinGetState($hWnd), 2) Then
WinActivate($hWnd)
EndIf
ControlClick($hWnd, '', 'Button1')
$size = WinGetPos($title)
BlockInput(1)
MouseMove($size[0] + $StX[0][0], $size[1] + $StY[0][0], 3)
MouseDown("left")
MouseMove($size[0] + $StX[1][0], $size[1] + $StY[1][0], 3)
MouseUp("left")
BlockInput(0)
$bufer = ClipGet()
$schetchik = 0
While $bufer = "Ошибка!"
Sleep(200)
$bufer = ClipGet()
$_number = StringStripWS($bufer, 8)
$bufer = StringReplace($_number, ',', '.')
$bufer += 0
If $bufer = 0 Then $bufer = ClipGet()
$PrNuber = IsNumber($bufer)
$schetchik +=1
If $schetchik > 20 Then
$bufer = "Ошибка по счетчику!"
ExitLoop
ElseIf $bufer = "barabas" Then
$bufer = 0
ExitLoop
ElseIf $bufer <> "Ошибка!" And $PrNuber = 0 Then
$bufer = "Ошибка по строке!"
ExitLoop
EndIf
WEnd
MsgBox (0, '123', $bufer, 3)
FileWrite($asd, $bufer & @CRLF)
WEnd
FileClose($asd)
HotKeySet("e", "Exit")А вот список ошибок которые у меня обнаружились:
1. Як же гадость "ABBYY Screenshot Reader"!
2. Такая гадость, что после 1000-го цикла начинает работать чуть ли не в два раза медленнее (видимо код и вправду еще те умельцы писали))).
3. HotKeySet("e", "Exit") не работает - подозреваю что это моя заслуга.
4. Выше написанный код писал чайник... так что жду полномасштабной критики по всем фронтам! ;) В том числе замечания по расходу ресурсов ИВМ.