ssvih-miaa
Новичок
- Сообщения
- 41
- Репутация
- 0
Всем привет, новый код и новые вопросы )
И так после вызова $oClick.Click() получаем новое окно которое нужно закрыть после Sleep(50000) работаю в IE 11 64 bit система, все что было на форме не подошло, подскажите куда рыть!?
Код:
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_Outfile_type=a3x
#AutoIt3Wrapper_Res_Comment=coinadder
#AutoIt3Wrapper_Res_Description=coinadder
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=ssvih by miaa
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <IE.au3>
Global $sDomain = "http://www.coinadder.com/"
Global $sDomainWork = "surf2.php"
Global $sBan = "view.php?ad="
Local $oIE = _IECreate()
fGetWork($oIE)
Func fGetWork($oIE)
$sPWork = _IENavigate($oIE, $sDomain & $sDomainWork) ; Переходим на ссылку работы
$oAs=_IETagNameGetCollection($oIE,'a')
$oN = @extended
ConsoleWrite("1 - " & $oN & @LF)
For $i = 1 To $oN
For $oA In $oAs
If $oA.target = '_blank' Then
$oClick = $oA
ExitLoop
EndIf
Next
If IsObj($oClick) Then
ConsoleWrite("+ Ссылка найдена. Нажимаем через 2 секунды" & @LF)
Sleep(2000)
;~ _IENavigate($oIE, $oClick)
$oClick.Click()
ConsoleWrite($sUrl & @LF)
Sleep(50000)
Else
ConsoleWrite("!ERROR: Ссылка не найдена." & @LF)
EndIf
Next
EndFunc
EndFunc
И так после вызова $oClick.Click() получаем новое окно которое нужно закрыть после Sleep(50000) работаю в IE 11 64 bit система, все что было на форме не подошло, подскажите куда рыть!?