Печать

[F4nT0m [?]]

Очень долго пытался,но всегда вот такая ошибка:

--> IE.au3 V2.4-0 Warning from function _IELinkClickByText, $_IEStatus_NoMatch
--> IE.au3 V2.4-0 Error from function _IEImgClick, $_IEStatus_InvalidDataType

Есть код со сменой ссылок,переходом по ним,помогите!
Сам код:

Код: AutoIt [Выделить]

#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,всё повторяем сначала.
Пример закрытия всех окон:

Код: AutoIt [Выделить]

Local $aIE = ProcessList("iexplore.exe")
    For $i = 1 to $aIE[0][0]
    ProcessClose($aIE[$i][1])
    Next
Next

Если не можете помочь кодом,то скажите хотя бы почему ошибка такая.

[astati [?]]

может у тя autoit старый?

твой код немног чудной.
зачем выводить?

Код: AutoIt [Выделить]

MsgBox(0,0,' ')

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

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

IE проще закрыть так:

Код: AutoIt [Выделить]

_IEQuit ($oIE)

[F4nT0m [?]]

Бокс для теста,так закрываются не все окна.

[F4nT0m [?]]

ап.

• Nurgazy
• Александр
• scanfail
• vnebe
• Nelsy
• Nazgul666
• Khaibit
• illja
• InnI
• ---Zak---
• Pavel
• CredoC
• centaur
• chydik
• nowost
• Yashied
• Yurmurk
• asdf8
• urihome
• madmasles
• Arei
• gora
• paulgator
• koksacs
• KPOXA
• tilek
• mechlab