Что нового

IE 11 - закрыть окно открытое с помощью ссылки

ssvih-miaa

Новичок
Сообщения
41
Репутация
0
Всем привет, новый код и новые вопросы )
Код:
#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 система, все что было на форме не подошло, подскажите куда рыть!?
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Re: IE 11 - Окна

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"IE 11 - Окна" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Модератор.











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

ssvih-miaa [?]
получаем новое окно которое нужно закрыть

18435.html
Код:
<html>
   <head>
	  <title>18435</title>
   </head>
<body>
   <a href="http://ya.ru" target="_blank">Yandex</a>
</body>
</html>

Код:
#include "IE.au3"

$oIE = _IECreate(@ScriptDir &"\18435.html")
ObjEvent($oIE, "IEEvent_","DWebBrowserEvents2")
$oLink = _IELinkGetCollection($oIE, 0)
Sleep(3000)
_IEAction($oLink,"click")
Sleep(1000)
_IEQuit($oIE)

Func IEEvent_NewWindow3($ppDisp, $bCancel, $iFlags, $sUrlContext, $sUrl)
   $o_Obj = _IEAttach($sUrl, "URL")
   _IELoadWait($o_Obj)
   Sleep(3000)
   _IEQuit($o_Obj)
EndFunc ;==>IEEvent_NewWindow3
 
Автор
ssvih-miaa

ssvih-miaa

Новичок
Сообщения
41
Репутация
0
Спасибо за ответ, реально закрывает вкладку но не ту которую нужно ( Закрывает первую страницу а нужно новую закрыть!
 
Автор
ssvih-miaa

ssvih-miaa

Новичок
Сообщения
41
Репутация
0
Помогите посчитать количество открытых окон в IE и закрыть конкретную по номеру, а то что-то я в тупик попал (
За ранее спасибо за ответ!

Код:
Dim $aIE[1]

$aIE[0] = 0

$i = 1
While 1
    $oIE = _IEAttach ("", "instance", $i)
    If @error = $_IEStatus_NoMatch Then ExitLoop
    ReDim $aIE[$i + 1]
    $aIE[$i] = $oIE
    $aIE[0] = $i
    $i += 1
WEnd

_IEQuit($oIE[$aIE[1]])
 
Верх