_ieattach To Multiple Explorer Instances?

[Cush]

Hi,

I'd like to list the current URLs of multiple explorer instances in a combo box, but I'm struggling to work out how to do it.

Any help would be greatly appreciated.

Thanks

Cush

[big_daddy]

Hi,

I'd like to list the current URLs of multiple explorer instances in a combo box, but I'm struggling to work out how to do it.

Any help would be greatly appreciated.

Thanks

Cush

You should be able to modify this to do what you want.

expandcollapse popup

#include <IE.au3>
#include <GUIConstants.au3>
#Include <GuiCombo.au3>

Opt('GUIOnEventMode', True)

$Form1 = GUICreate("Link List", 351, 72, 192, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, 'Event_GUIClose')

$Combo1 = GUICtrlCreateCombo("Select Link", 8, 8, 337, 21)
$Button1 = GUICtrlCreateButton("Open", 144, 40, 75, 25)
GUICtrlSetOnEvent(-1, 'OpenLink')

ToolTip("Gathering Links" & @LF & @LF & "Please Wait...", @DesktopWidth / 2, @DesktopHeight / 2)

$sLinks = "www.google.com,www.yahoo.com"
$sLinks = StringSplit($sLinks, ",")

For $i = 1 To UBound($sLinks) - 1
    $oIE = _IECreate (0)
    _IENavigate ($oIE, $sLinks[$i])
    $ohrefs = _IETagNameGetCollection ($oIE.document, "a")
    For $ohref In $ohrefs
        $shrefUrl = $ohref.GetAttribute ("HREF")
        If $shrefUrl == 0 Then
            ContinueLoop
        Else
            _GUICtrlComboAddString($Combo1, $shrefUrl)
        EndIf
    Next
    _IEQuit ($oIE)
    Sleep(500)
Next

ToolTip("")
GUISetState(@SW_SHOW)

While 1
    Sleep(250)
WEnd

Func OpenLink()
    
    Local $stext, $iSelected
    $iSelected = _GUICtrlComboGetCurSel($Combo1)
    _GUICtrlComboGetLBText($Combo1, $iSelected, $stext)
    If $stext <> "Select Link" Then
        $oIE = _IECreate ()
        _IENavigate ($oIE, $stext)
    Else
        MsgBox(48, "Error", "You must select a link.")
    EndIf
    
EndFunc  ;==>OpenLink

Func Event_GUIClose()
    
    Exit
    
EndFunc  ;==>Event_GUIClose

[cdkid]

Hmm, let's see if this works

$shell = ObjCreate("Shell.Application")
dim $winsar[1], $count = 1
For $i in $shell.windows
        If (ObjName($i.document) = "DispHTMLDocument") Then
            ReDim $winsar[UBound($winsar, 1) + 1]
            $winsar[$count] = $i.locationurl
            $count = $count + 1
    EndIf
Next
$winsar[0] = $count - 1

That should work... untested. just loop through the $winsar array to make your comboboxes.

The previous one that I made wasn't working at all, so i tried this, and it works great

~cdkid

Edited April 19, 2006 by cdkid