Close IE by url

[muhmuuh]

Hi! I want to make a program that closes IE according to its url. For example I've opened 10 IE windows and 5 of them are youtube clips. When this program starts and I type 'youtube.com' I should close those 5 windows. Is it clear? OK, I'm new here and I'm a self-learner. I learn from the help but this time it didn't help me. Here is what I've got

#include <IE.au3>
AutoItSetOption("WinTitleMatchMode", 2)
$url = InputBox("type url", "type url to close")
$var = WinList("Internet Explorer")
For $i = 1 to $var[0][0]
    $ie = $var[$i][1]
    $aa = _IEPropertyGet ( $ie, "locationurl" )
    if StringInStr($aa, $url)<>0 Then  
        _IEQuit ($ie)
    EndIf
Next

but after I start it here is what I get at the bottom of the editor

--> IE.au3 V2.3-1 Error from function _IEPropertyGet, $_IEStatus_InvalidDataType

Can you please tell me what I am doing wrong?

Thanks

[PsaltyDS]

Hi! I want to make a program that closes IE according to its url. For example I've opened 10 IE windows and 5 of them are youtube clips. When this program starts and I type 'youtube.com' I should close those 5 windows. Is it clear? OK, I'm new here and I'm a self-learner. I learn from the help but this time it didn't help me. Here is what I've got

#include <IE.au3>
AutoItSetOption("WinTitleMatchMode", 2)
$url = InputBox("type url", "type url to close")
$var = WinList("Internet Explorer")
For $i = 1 to $var[0][0]
    $ie = $var[$i][1]
    $aa = _IEPropertyGet ( $ie, "locationurl" )
    if StringInStr($aa, $url)<>0 Then  
        _IEQuit ($ie)
    EndIf
Next

but after I start it here is what I get at the bottom of the editor

Can you please tell me what I am doing wrong?

Thanks

Use this instead to get the IE object:

$ie = _IEAttach($var[$i][1], "HWND")

You were using the window handle in place of the IE object reference.

[muhmuuh]

Cool!

It works!

It was very funny how my IE windows dissapear from the taskbar

Thank you PsaltyDS

[tAKTelapis]

Awesome, muhmuuh, you just saved me some work.

I have a use for this.

[PsaltyDS]

Awesome, muhmuuh, you just saved me some work.

I have a use for this.

Looked like a "Boss Alert" button to me!

[muhmuuh]

OK, this works great with IE other the IE 7

With IE 7 works only when the site is the only tab

Also I do this in loop

#include <IE.au3>
AutoItSetOption("WinTitleMatchMode", 2)
$url = InputBox("type url", "type url to close")
$var = WinList("Internet Explorer")
While 1
$var = WinList("Internet Explorer")
For $i = 1 to $var[0][0]
    $ie = _IEAttach($var[$i][1], "HWND")
    $aa = _IEPropertyGet ( $ie, "locationurl" )
    if StringInStr($aa, $url)<>0 Then  
        _IEQuit ($ie)
    EndIf
Next
sleep(1000)
HotKeySet("^s", "Stop")
WEnd

I don't have IE7 on my computer and it wants sp2 so can someone help me fix this?

[muhmuuh]

Can someone help me?

[DaleHohm]

Didn't test, but this should work. Look at the internals of _IEAttach if you want to enhance further.

#include <IE.au3>

$url = InputBox("type url", "type url to close")

$o_Shell = ObjCreate("Shell.Application")
$ies = $o_Shell.Windows (); collection of all ShellWindows (IE and File Explorer)

_IEErrorHandlerRegister(); error will occur for File Explorer windows... allow ignore
_IEErrorNotify(FALSE); suppress console error display

For $ie In $ies
    $aa = _IEPropertyGet ( $ie, "locationurl" )
    If @error then ContinueLoop
    if StringInStr($aa, $url)<>0 Then  
        _IEQuit ($ie)
    EndIf
Next

Dale