Автор Тема: IE 11 - закрыть окно открытое с помощью ссылки  (Прочитано 1148 раз)

0 Пользователей и 2 Гостей просматривают эту тему.

Оффлайн ssvih-miaa [?]

  • Новичок
  • *
  • Сообщений: 23
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Всем привет, новый код и новые вопросы )
Код: AutoIt [Выделить]
#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 система, все что было на форме не подошло, подскажите куда рыть!?
« Последнее редактирование: Декабрь 10, 2014, 02:18:08 от Garrett »

Русское сообщество AutoIt

IE 11 - закрыть окно открытое с помощью ссылки
« Отправлен: Декабрь 09, 2014, 20:57:06 »

Оффлайн Garrett [?]

  • Глобальный модератор
  • *
  • Сообщений: 3721
  • Репутация: 942
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: IE 11 - Окна
« Ответ #1, Отправлен: Декабрь 09, 2014, 20:58:23 »
ПредупреждениеЗа нарушение правил форума (пункт Б.5):
Цитировать
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

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

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

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


Добавлено: Декабрь 10, 2014, 01:02:35
ssvih-miaa  [?]
Цитировать
получаем новое окно которое нужно закрыть

18435.html
Код: (html5) [Выделить]
  1.    <head>
  2.       <title>18435</title>
  3.    </head>
  4.    <a href="http://ya.ru" target="_blank">Yandex</a>
  5. </body>
  6. </html>

Код: AutoIt [Выделить]
#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

« Последнее редактирование: Декабрь 10, 2014, 01:02:35 от Garrett, Причина: Объединение сообщений »

Скорблю и помню.




Оффлайн ssvih-miaa [?]

  • Новичок
  • *
  • Сообщений: 23

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: IE 11 - закрыть окно открытое с помощью ссылки
« Ответ #2, Отправлен: Декабрь 10, 2014, 16:09:30 »
Спасибо за ответ, реально закрывает вкладку но не ту которую нужно ( Закрывает первую страницу а нужно новую закрыть!

Оффлайн ssvih-miaa [?]

  • Новичок
  • *
  • Сообщений: 23

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Помогите посчитать количество открытых окон в IE и закрыть конкретную по номеру, а то что-то я в тупик попал (
За ранее спасибо за ответ!

Код: AutoIt [Выделить]
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]])


Русское сообщество AutoIt

Re: IE 11 - закрыть окно открытое с помощью ссылки
« Ответ #3 Отправлен: Май 17, 2017, 17:55:01 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
0 Ответов
2636 Просмотров
Последний ответ Май 01, 2010, 00:44:00
от Yuriy
8 Ответов
6562 Просмотров
Последний ответ Февраль 06, 2011, 12:35:17
от `p r o x y
7 Ответов
3691 Просмотров
Последний ответ Сентябрь 13, 2011, 00:24:43
от Zaramot
4 Ответов
4185 Просмотров
Последний ответ Декабрь 02, 2011, 22:15:01
от agikon
2 Ответов
2706 Просмотров
Последний ответ Март 19, 2012, 13:17:14
от Radik
2 Ответов
3169 Просмотров
Последний ответ Июнь 16, 2012, 09:00:01
от eropov
1 Ответов
2392 Просмотров
Последний ответ Декабрь 15, 2012, 20:28:33
от madmasles
2 Ответов
2019 Просмотров
Последний ответ Май 26, 2013, 14:26:33
от InnI
2 Ответов
1642 Просмотров
Последний ответ Октябрь 24, 2013, 13:20:52
от Vic_
5 Ответов
1223 Просмотров
Последний ответ Июль 14, 2015, 17:50:32
от selepok