Что нового

Выполнение функциии до появление следущего условия

den23rus

Новичок
Сообщения
27
Репутация
0
Есть скрипт надо его немного укоротить :smile:
Код:
Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	_IELinkClickByText($oIE, "Осмотреть всех")



надо обновлять через 30 сек до появление Осмотреть всех (обновить и осмотреть всех появяться рядом и надо сделать так чтобы он не продолжал обновлять а осмотрел всех)
 

C2H5OH

AutoIT Гуру
Сообщения
1,473
Репутация
333
Код:
Do
    Sleep(30000)
    _IELinkClickByText($oIE, "Обновить")
Until _IELinkClickByText($oIE, "Осмотреть всех") = -1
 
Автор
D

den23rus

Новичок
Сообщения
27
Репутация
0
почему то не получается
Код:
While 1
    _IELinkClickByText($oIE, "Принять пациентов по событию")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    _IELinkClickByText($oIE, "Осмотреть всех")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	_IELinkClickByText($oIE, "Напоить всех")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	_IELinkClickByText($oIE, "Осмотреть всех")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить") 
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	_IELinkClickByText($oIE, "Осмотреть всех")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
    Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	_IELinkClickByText($oIE, "Осмотреть всех")

	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	Sleep(30000)
	_IELinkClickByText($oIE, "Обновить")
	
	_IELinkClickByText($oIE, "Использовать медикаменты")
	_IELinkClickByText($oIE, "Использовать медикаменты")
	_IELinkClickByText($oIE, "Использовать медикаменты")
	_IELinkClickByText($oIE, "Использовать медикаменты")
	_IELinkClickByText($oIE, "Выписать всех")
	_IELinkClickByText($oIE, "Убрать всё")
	
    _IELoadWait($oIE)


как мне его сократить
 

Altlans

Знающий
Сообщения
10
Репутация
5
den23rus [?]
как мне его сократить

Вот, примерно так:

Код:
While 1
    _IELinkClickByText($oIE, "Принять пациентов по событию")
	
    For $counter = 1 To 10
	   Sleep(30000)
	  _IELinkClickByText($oIE, "Обновить")
    Next
   
    _IELinkClickByText($oIE, "Осмотреть всех")
	
	For $counter = 1 To 18
	  Sleep(30000)
	  _IELinkClickByText($oIE, "Обновить")
    Next
   
    _IELinkClickByText($oIE, "Напоить всех")
	
	For $counter = 1 To 40
	  Sleep(30000)
	  _IELinkClickByText($oIE, "Обновить")
    Next
 
    _IELinkClickByText($oIE, "Осмотреть всех")
	
	For $counter = 1 To 40
	  Sleep(30000)
	  _IELinkClickByText($oIE, "Обновить")
	Next
	
    _IELinkClickByText($oIE, "Осмотреть всех")
	
	For $counter = 1 To 40
	  Sleep(30000)
	  _IELinkClickByText($oIE, "Обновить")
    Next
	
    _IELinkClickByText($oIE, "Осмотреть всех")
    
	For $counter = 1 To 21
	  Sleep(30000)
	  _IELinkClickByText($oIE, "Обновить")
    Next
    
	For $counter = 1 To 4
	  _IELinkClickByText($oIE, "Использовать медикаменты")
   Next
   
    _IELinkClickByText($oIE, "Выписать всех")
    _IELinkClickByText($oIE, "Убрать всё")
   
    _IELoadWait($oIE)


В общем, смотри справку "For...In...Next".

P.S.: Возможно я ошибся с расчетами)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
den23rus,
Я бы примерно так сделал.
Код:
;...
Global $iCountRefresh

HotKeySet('{Esc}', '_Exit')
AdlibRegister('_My_IELinkClickByText');, 30000)

While 1
	Sleep(100)
WEnd

Func _My_IELinkClickByText()
	Local $a_LinkText[7] = ['Обновить', 'Принять пациентов по событию', 'Осмотреть всех', 'Напоить всех', 'Использовать медикаменты', _
			'Выписать всех', 'Убрать всё'], $ai_Index[1] = [0]

	$iCountRefresh += 1
	Switch $iCountRefresh
		Case 1
			$ai_Index[0] = 1
		Case 11, 69, 109, 149
			ReDim $ai_Index[2]
			$ai_Index[1] = 2
		Case 29
			ReDim $ai_Index[2]
			$ai_Index[1] = 3
		Case 170
			ReDim $ai_Index[7]
			For $i = 1 To 4
				$ai_Index[$i] = 4
			Next
			$ai_Index[5] = 5
			$ai_Index[6] = 6
			$iCountRefresh = 0
	EndSwitch
	For $i = 0 To UBound($ai_Index) - 1
		;_IELinkClickByText($oIE, $a_LinkText[$ai_Index[$i]])
		ConsoleWrite($iCountRefresh & @TAB & $ai_Index[$i] & @TAB & $a_LinkText[$ai_Index[$i]] & @LF)
	Next
	If Not $iCountRefresh Then ConsoleWrite('_IELoadWait($oIE)' & @LF);_IELoadWait($oIE)
	ConsoleWrite('---' & @LF)
EndFunc   ;==>_My_IELinkClickByText

Func _Exit()
	Exit
EndFunc   ;==>_Exit
 
Автор
D

den23rus

Новичок
Сообщения
27
Репутация
0
ну второй вариант посерьезней :smile:


Добавлено:
Сообщение автоматически объединено:

1 1 Принять пациентов по событию
---
2 0 Обновить
---
3 0 Обновить
---
4 0 Обновить
---
5 0 Обновить
---
6 0 Обновить
---
7 0 Обновить
---
8 0 Обновить
---
9 0 Обновить
---
10 0 Обновить
---
11 0 Обновить
11 2 Осмотреть всех
---
12 0 Обновить
---
13 0 Обновить
---
14 0 Обновить
---
15 0 Обновить
---
16 0 Обновить
---
17 0 Обновить
---
18 0 Обновить
---
19 0 Обновить
---
20 0 Обновить
---
21 0 Обновить
---
22 0 Обновить
---
23 0 Обновить
---
24 0 Обновить
---
25 0 Обновить
---
26 0 Обновить
---
27 0 Обновить
---
28 0 Обновить
---
29 0 Обновить
29 3 Напоить всех
---
30 0 Обновить
---
31 0 Обновить
---
32 0 Обновить
---
33 0 Обновить
---
34 0 Обновить
---
35 0 Обновить
---
36 0 Обновить
---
37 0 Обновить
---
38 0 Обновить
---
39 0 Обновить
---
40 0 Обновить
---
41 0 Обновить
---
42 0 Обновить
---
43 0 Обновить
---
44 0 Обновить
---
45 0 Обновить
---
46 0 Обновить
---
47 0 Обновить
---
48 0 Обновить
---
49 0 Обновить
---
50 0 Обновить
---
51 0 Обновить
---
52 0 Обновить
---
53 0 Обновить
---
54 0 Обновить
---
55 0 Обновить
---
56 0 Обновить
---
57 0 Обновить
---
58 0 Обновить
---
59 0 Обновить
---
60 0 Обновить
---
61 0 Обновить
---
62 0 Обновить
---
63 0 Обновить
---
64 0 Обновить
---
65 0 Обновить
---
66 0 Обновить
---
67 0 Обновить
---
68 0 Обновить
---
69 0 Обновить
69 2 Осмотреть всех
---
70 0 Обновить
---
71 0 Обновить
---
72 0 Обновить
---
73 0 Обновить
---
74 0 Обновить
---
75 0 Обновить
---
76 0 Обновить
---
77 0 Обновить
---
78 0 Обновить
---
79 0 Обновить
---
80 0 Обновить
---
81 0 Обновить
---
82 0 Обновить
---
83 0 Обновить
---
84 0 Обновить
---
85 0 Обновить
---
86 0 Обновить
---
87 0 Обновить
---
88 0 Обновить
---
89 0 Обновить
---
90 0 Обновить
---
91 0 Обновить
---
92 0 Обновить
---
93 0 Обновить
---
94 0 Обновить
---
95 0 Обновить
---
96 0 Обновить
---
97 0 Обновить
---
98 0 Обновить
---
99 0 Обновить
---
100 0 Обновить
---
101 0 Обновить
---
102 0 Обновить
---
103 0 Обновить
---
104 0 Обновить
---
105 0 Обновить


ВОТ ТАК ВСЁ ПРОЛИСТЫВАЕТ НО ПО СЫЛКАМ НЕ КЛИКАЕТ :(
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
den23rus
нам ведь не обязательно скроллить как безумные. нечего тут простыни наматывать. используй тэг спойлера.
 
Верх