Помогите найти ошибку, скрипт работает, но по тексту не кликает
Код:
#include <IE.au3>
Local $oIE = _IECreate("http://144.76.47.182/Pharmacy")
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
