Что нового

Бесконечный цикл в функции

SHoCK13666

Новичок
Сообщения
108
Репутация
0
Искал на форуме и пробовал сделать так
Код:
Call ( "_otmena")

Func _otmena ()
while
      $sText = _IEBodyReadText($oIE)
Select
Case StringInStr($sText, 'Отмена')
   Sleep(3000)
EndSelect
wend
endfunc

Потом пробовал так
Код:
Call ( "_otmena")

Func _otmena ()
while 1
local i$
i$ =+ 1
      $sText = _IEBodyReadText($oIE)
Select
Case StringInStr($sText, 'Отмена')
   Sleep(3000)
EndSelect
wend
endfunc

Подскажите, что я делаю не так?
 

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Код:
_otmena()

Func _otmena ()
	While 1
		$sText = _IEBodyReadText($oIE)
		Select
			Case StringInStr($sText, 'Отмена')
				Sleep(3000)
			Case Else
				ExitLoop ;?? - Иначе - прекращает цикл.
		EndSelect
	WEnd
EndFunc
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
SHoCK13666 [?]
Подскажите, что я делаю не так?
Пытаетесь программировать на Autoit, ни разу не читая справки.
Код:
#include<IE.au3>
$oIE = _IECreate('http://ya.ru')
$sText = _IEBodyReadText($oIE)
ConsoleWrite($sText & @CRLF)
_otmena($sText)

Func _otmena($sText)
	
	While 1
		If StringInStr($sText, 'Студия') Then ExitLoop
		Sleep(3000)
	WEnd
EndFunc
_IEQuit($oIE)
 
Верх