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

ssvih-miaa · 9 Дек 2014

Всем привет, новый код и новые вопросы )

Код:

#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 · 9 Дек 2014

Re: IE 11 - Окна

Предупреждение За нарушение правил форума (пункт Б.5):

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

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

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

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 · 10 Дек 2014

Спасибо за ответ, реально закрывает вкладку но не ту которую нужно ( Закрывает первую страницу а нужно новую закрыть!

ssvih-miaa · 17 Май 2017

Помогите посчитать количество открытых окон в 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]])

Автор темы	Похожие темы	Форум	Ответы	Дата
L	Автоматизация Закрыть дочернее окно	Стол заказов	6	1 Окт 2020
H	Как закрыть окно если оно не определяется как дескриптор	Общие вопросы по AutoIt	5	27 Июл 2020
D	Окна, Диалоги Не удается закрыть модальное окно программы	Общие вопросы по AutoIt	7	23 Авг 2019
I	при исполнения скрипта показать окно "Ждите" после выполнения закрыть окно	Общие вопросы по AutoIt	7	24 Окт 2017
R	Как закрыть окно, открытое через _IECreate?	Автоматизация IE и Web-интерфейса	2	19 Мар 2012

Поиск

Поиск

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

ssvih-miaa

Новичок

Garrett

Модератор

ssvih-miaa

Новичок

ssvih-miaa

Новичок