IE 7 Url in neuem Tab öffnen

  • Hi,
    Falls ein bestimmtes IE-Fenster (patch-info.de) existiert, dann soll dort ein Tab geöffnet werden und eine url eingegeben werden.

    In der ie.au3 habe ich eine Funktion namens

    [autoit]

    __IENavigate

    [/autoit]


    (Achtung 2x_)
    entdeckt, mit der man Tabs erstellen kann.
    Dies funktioniert nun (endlich ;-)) auch.

    Da der Rückgabewert von __IENavigate anders ist als bei _IENavigate muß es mit _IEAttach wieder korrigiert werden.

    Und nun läufts :D

    Jibbi :rofl:

    PS: Alle 3 "Möglichkeiten" eingebaut
    1. Wenn das Fenster mit der Seite nicht existiert, wird sie in einem neuen Fenster geladen und gesucht.
    2. Wenn das Fenster mit der Seite existiert und die Startseite angezeigt wird, dann wird in diesem Fenster gesucht.
    3. Wenn das Fenster mit der Seite existiert und bereits gesucht wurde, dann wird ein neuer Tab erstellt, die Seite geladen und gesucht.

    Vielleicht kanns ja einer brauchen, ganz oder nur die Funktionsweise :rock:

    [autoit]

    #include <IE.au3>

    [/autoit][autoit][/autoit][autoit]

    DIM $oIE

    [/autoit][autoit][/autoit][autoit]

    $kb = "KB918005"

    [/autoit][autoit][/autoit][autoit]

    _internet_seite ($kb)

    [/autoit][autoit][/autoit][autoit]

    Func _internet_seite ($kb)
    AutoItSetOption("WinTitleMatchMode", 3)
    If WinExists("patch-info.de - Microsoft Internet Explorer") Then
    AutoItSetOption("WinTitleMatchMode", 2)
    $oIE = _IEAttach("patch-info.de")
    _IELoadWait ($oIE)
    __IENavigate($oIE, "www.patch-info.de", 1, 0x0800, "", "", "")
    WinWait("Startseite - patch-info.de")
    $oIE = _IEAttach("Startseite - patch-info.de")
    _IELoadWait ($oIE)
    ElseIf WinExists("Startseite - patch-info.de - Microsoft Internet Explorer") Then
    AutoItSetOption("WinTitleMatchMode", 2)
    $oIE = _IEAttach("patch-info.de")
    _IELoadWait ($oIE)
    Else
    $oIE = _IECreate ("www.patch-info.de", 0, 1, 1, 0)
    _IELoadWait ($oIE)
    $oHWND = _IEPropertyGet($oIE, "hwnd") ;maximieren
    WinSetState ($oHWND, "", @SW_MAXIMIZE) ;maximieren
    EndIf

    $oForm = _IEFormGetObjByName ($oIE, "searchform")
    $oQuery = _IEFormElementGetObjByName ($oForm, "serendipity[searchTerm]")
    _IEFormElementSetValue ($oQuery, $kb)
    _IEFormSubmit ($oForm)
    EndFunc

    [/autoit]