Что нового

[Сеть, интернет] Открытие ссылки в IE,клик по тексту,опять клик,клик по картинке.

F4nT0m

Новичок
Сообщения
54
Репутация
2
Очень долго пытался,но всегда вот такая ошибка:
--> IE.au3 V2.4-0 Warning from function _IELinkClickByText, $_IEStatus_NoMatch
--> IE.au3 V2.4-0 Error from function _IEImgClick, $_IEStatus_InvalidDataType
Есть код со сменой ссылок,переходом по ним,помогите!
Сам код:
Код:
#RequireAdmin
#include <file.au3>
#include <array.au3>
#include <ie.au3>

OnAutoItExitRegister("_Exit")
_Save()

;загружаем прокси
Dim $aProxies
If Not _FileReadToArray(@ScriptDir & "\replacement.txt", $aProxies) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

;загружаем сайты
Dim $aSites[3] = ["ya.ru", "google.com", "mail.ru"]

;создаем объект $oIE
$oIE = _IECreate ()

For $i = 1 To $aProxies[0]
    _ProxyChange($aProxies[$i])
    For $j = 0 To UBound($aSites) - 1
        $sURL = $aSites[$j]
        _IENavigate($oIE, $sURL, 1)
        MsgBox(0,0,'')
    Next
Next

Exit



;Меняем прокси
Func _ProxyChange($sProxy = '')
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxy)
EndFunc

;Сохраняем значения прокси
Func _Save()
    Global $sProxyEnable = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
    Global $sProxyServer = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 1)
EndFunc

;Загружаем значения прокси
Func _Load()
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $sProxyEnable)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxyServer)
EndFunc

;По выходу загружаем сохраненные настройки прокси
Func _Exit()
    _Load()
    MsgBox (0,0, "Вышли из программы")
    Exit
EndFunc
Во фрагменте переходов по сайтам я прошу Вас сменить переходы на следующую последовательность действий:
1.Открываем ссылку.
2.В окне кликаем по тексту.
3.Открывается новое окно/вкладка,в ней кликаем по тексту.
4.После этого кликаем по картинке.
5.Закрываем все все окна IE,всё повторяем сначала.
Пример закрытия всех окон:
Код:
Local $aIE = ProcessList("iexplore.exe")
    For $i = 1 to $aIE[0][0]
    ProcessClose($aIE[$i][1])
    Next
Next
Если не можете помочь кодом,то скажите хотя бы почему ошибка такая.
 

astati

Новичок
Сообщения
145
Репутация
4
может у тя autoit старый?

твой код немног чудной.
зачем выводить? ;)
Код:
MsgBox(0,0,' ')

по ссылке в таком боксе все равно не кликнешь. :smile:

Тебе быстрей ответили бы если б была конкретика что за ссылки и т.д.

IE проще закрыть так:
Код:
_IEQuit ($oIE)
 
Автор
F

F4nT0m

Новичок
Сообщения
54
Репутация
2
Бокс для теста,так закрываются не все окна.
 
Верх