Закрыть неизвестную вкладку

[Anna]

Здравствуйте.
Подскажите, пожалуйста, как закрыть вкладку, о которой ничего неизвестно, кроме того что, она лишняя. То есть, в окне недолжно быть вкладок.

 

[inververs]

А какой у вас браузер?

 

[Anna]

На П.К IE8, на сервере IE9
Закрывать вкладки нужно на сервере, IE9, но там не установлен Autoit.
Поэтому, пишу скрипт на машине с IE8, а работать будет на IE9.

 

[inververs]

А чего не обновитесь?

 

[Anna]

О.С. XP

 

[inververs]

Anna [?]

О.С. XP

А чего не обновитесь?

 

[Anna]

Ноутбук старенький(


Добавлено:

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

Решила попытаться просто закрыть активную вкладку.

#include <IE.au3>
#include <Array.au3>

$aList = WinList('[CLASS:IEFrame]', '')
;_ArrayDisplay($aList)

If IsArray($aList) Then
    $oIE = _IEAttach($aList[1][1], 'embedded', 1)
    ConsoleWrite(_IEPropertyGet($oIE, 'locationURL') & @LF)
	;WinClose($oIE)
   $oIE.Quit()
EndIf

Получаю ошибку “Требуемое действие с этим объектом потерпело неудачу”

 

[inververs]

$oShell = ObjCreate("Shell.Application")
$oShellWindows = $oShell.Windows()
For $oWindow In $oShellWindows
	If StringInStr($oWindow.Name, 'Internet Explorer') Then
		$oWindow.Quit()
	EndIf
Next

Так закроет все IE, нужно как то ограничивать, что бы не закрывало не то.

 

[Anna]

inververs [?]

нужно как то ограничивать

Как?


Добавлено:

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

Как, записать условие:- “если вкладок больше одной то закрыть”

 

[inververs]

Не знаю как, не понимаю что нужно сделать. У меня нельзя создать браузер без вкладок. Если закрыть последнею - все закроется, поэтому это:

Anna [?]

в окне недолжно быть вкладок.

невыполнимо

 

[Anna]

inververs
Разумеется, одна вкладка, с которой работает скрипт должна остаться.
Но это не вкладка, а окно без вкладок имхо.

 

[inververs]

Но вы же написали, что в окне не должно остаться вкладок :D


Добавлено:

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

Вам нужен специалист по IE8

 

[Anna]

отредактировала предыдущий пост)
При запуске вашего примера, тоже получаю ошибку “Требуемое действие с этим объектом потерпело неудачу”

 

[inververs]

А ну еще можно попробовать вот так:

$oIe = _IEAttach('http://autoit-script.ru/', 'URL') ;допустим это ваш объект, ну вы знаете что тут, можно не атачить а использовать уже ранее созданный свой, поэтому тут могло и не быть этой строчки, но тогда вы бы написали что у меня в скрипте ошибка, т.к переменная $oIe не найдена, поэтому я вставил ее таким образом

Global $bzzz = ObjEvent("AutoIt.Error", 'protivnie_oshibki_lol')
$oShell = ObjCreate("Shell.Application")
$oShellWindows = $oShell.Windows()
For $oWindow In $oShellWindows
	If StringInStr($oWindow.Name, 'Internet Explorer') And $oWindow <> $oIe Then
		$oWindow.Quit()
	EndIf
Next
Func protivnie_oshibki_lol($oError)
EndFunc

Я конечно не знаю, все таки XP и IE8..

 

[Anna]

Ругается на $oShell.Windows()

 

[inververs]

Anna [?]

Ругается на $oShell.Windows()

Жесть, как можно так работать, я xз

 

[Anna]

Ошибка потому что IE8?

 

[inververs]

А у вас на скрине ошибка в файле ...include\Ie.au3 в строчке 327.
У вас не работает вещь, которая должна работать везде. Это система барахлит.

 

[Anna]

Скомпилировала.
На сервере закрывает все вкладки и оставляет окно. УРА! Спасибо!

Однако, закрывает только вкладки открытые вручную, кликом по кнопке “Открыть новую вкладку”. Если вкладка открывается после клика по ссылке в основном окне, то не закрывается вкладка. :(

Настроила IE, открывать ссылки в новом окне, и банально, F4.

$aList = WinList('[CLASS:IEFrame]')
     If  $aList[0][0] > 1 Then
      Send("{ALT DOWN}{F4}{ALT UP}");
   EndIf