IE GUI Func

  • hallo
    warum geht :

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.2.0.1
    Author: Uli Effinger
    #ce ----------------------------------------------------------------------------
    $suche ="eis"
    #include <GUIConstants.au3>
    #include <IE.au3>
    $oIE = _IECreateEmbedded ()
    #Region ### START Koda GUI section ### Form=
    $Hauptseite = GUICreate("TomLeo ", 848, 544, 80, 115, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_RIGHT,$WS_EX_WINDOWEDGE))
    $GUIActiveX = GUICtrlCreateObj($oIE, 8, 48, 829, 481)
    $Konfi = GUICtrlCreateButton("Konfiguration", 756, 8, 89, 33, 0)
    $Test = GUICtrlCreateLabel ( "Gesucht wurde: "& $suche, 8, 10, 190, 33, 0)
    GUICtrlSetCursor ($Konfi, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $url = "http://autoit.aufwaerts.de/board.php?boardid=2"
    _IENavigate ($oIE, $url)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Konfi
    MsgBox(0,"Fehler","Ist noch nicht")
    EndSwitch
    WEnd
    GUIDelete()
    _IEQuit ($oIE)

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

    aber

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.2.0.1
    Author: Uli Effinger
    #ce ----------------------------------------------------------------------------
    test("eis")
    Exit
    func test($suche)
    #include <GUIConstants.au3>
    #include <IE.au3>
    $oIE = _IECreateEmbedded ()
    #Region ### START Koda GUI section ### Form=
    $Hauptseite = GUICreate("TomLeo ", 848, 544, 80, 115, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_RIGHT,$WS_EX_WINDOWEDGE))
    $GUIActiveX = GUICtrlCreateObj($oIE, 8, 48, 829, 481)
    $Konfi = GUICtrlCreateButton("Konfiguration", 756, 8, 89, 33, 0)
    $Test = GUICtrlCreateLabel ( "Gesucht wurde: "& $suche, 8, 10, 190, 33, 0)
    GUICtrlSetCursor ($Konfi, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $url = "http://pda.leo.org/?lp=ende&lang=de&searchLoc=0&cmpType=relaxed&relink=on&sectHdr=on&spellToler=std&search="& $suche
    _IENavigate ($oIE, $url)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Konfi
    MsgBox(0,"Fehler","Ist noch nicht")
    EndSwitch
    WEnd
    GUIDelete()
    _IEQuit ($oIE)
    EndFunc

    [/autoit]


    nicht ?
    aus fehler meldung bekomme ich :
    C:\PROGRA~1\AutoIt3\Include\IE.au3(304,1) : ERROR: syntax error
    Func
    ^
    C:\Dokumente und Einstellungen\name\Desktop\lili.au3 - 1 error(s), 0 warning(s)

  • tja..komisch....kann dir sagen wies geht^^

    [autoit]

    #include <GUIConstants.au3>
    #include <IE.au3>
    test("eis")
    Exit
    Func test($suche)
    ;deine funktion wie sie oben steht...(copy&paste)
    EndFunc

    [/autoit]


    warum tja keine ahnung ;)

  • Ich würde jetzt sagen, die Includes müssen immer am Anfang stehen. Ansonsten sehe ich auch nix. Aber das hat ja snoozer schon demonstiert!