Webbrowser Input

  • [autoit]

    #include &lt;ButtonConstants.au3&gt;<br>#include &lt;EditConstants.au3&gt;<br>#include &lt;GUIConstantsEx.au3&gt;<br>#include &lt;FTPex.au3&gt;<br>#include &lt;GuiStatusBar.au3&gt;<br>#include &lt;ProgressConstants.au3&gt;<br>#include &lt;SliderConstants.au3&gt;<br>#include &lt;StaticConstants.au3&gt;<br>#include &lt;WindowsConstants.au3&gt;<br>#include &lt;IE.au3&gt;<br><br>Global $oIE = _IECreateEmbedded ()<br> _IEErrorHandlerRegister()<br><br><br>$GUI_Name = GUICreate("Anonymous Browsing", 1024, 657, 169, 72)<br>$SinkObject = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2")<br>$MenuItem1 = GUICtrlCreateMenu("&amp;Datei")<br>$GUI_Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $MenuItem1)<br>$GUI_Menu_Shortcuts = GUICtrlCreateMenuItem("Shortcuts", $MenuItem1)<br>$GUI_Menu_Beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem1)<br>$GUI_Button_Refresh = GUICtrlCreateButton("Refresh", 560, 3, 43, 25, 0)<br>$GUI_Button_Stop = GUICtrlCreateButton("Stop", 610, 3, 43, 25, 0)<br>$GUI_Button_Back = GUICtrlCreateButton("Zurück", 1, 3, 50)<br>$GUI_Button_Forward = GUICtrlCreateButton("Vor", 51, 3,50)<br>$GUI_Adresszeile = GUICtrlCreateInput("", 102, 5, 400, 21)<br>$GUI_Go_Button = GUICtrlCreateButton("Go!", 505, 3, 50, 25, $WS_GROUP)<br>$GUI_Button_Home = GUICtrlCreateButton("Home", 970, 3, 50)<br>$copy = GUICtrlCreateButton("&lt;~&gt;", 920, 3, 50)<br>$browser = GUICtrlCreateObj($oIE, 0, 30, 1024, 584)<br><br>$hStatus = _GUICtrlStatusBar_Create($GUI_Name)<br>local $aParts[3] = [700,800,900]<br>_GUICtrlStatusBar_SetParts($hStatus, $aParts)<br> _GUICtrlStatusBar_SetText($hStatus,"" ,1)<br> _GUICtrlStatusBar_SetText($hStatus,"LEER" ,2)<br> _GUICtrlStatusBar_SetMinHeight($hStatus, 17)<br> $idProgress = GUICtrlCreateProgress(-1, -1, 105, 20)<br> $hProgress = GUICtrlGetHandle($idprogress)<br> _GUICtrlStatusBar_EmbedControl($hStatus,1,$hProgress)<br><br><br><br>_IENavigate($oIE, "http://www.google.de/")<br>GUISetState()<br><br>While 1<br> $nMsg = GUIGetMsg()<br> Select<br> Case $nmsg = $GUI_EVENT_CLOSE<br> ExitLoop<br><br> Case $nmsg = $GUI_Menu_Einstellungen<br> MsgBox(0, "Einstellungen", "Diese Funktion erscheint im nächstes mal!")<br> Case $nmsg = $GUI_Menu_Beenden<br> Exit<br> Case $nmsg = $GUI_Go_Button<br> _IENavigate($oIE, GUICtrlRead($GUI_Adresszeile))<br> Case $nmsg = $GUI_Button_Home<br> _IENavigate($oIE, "http://google.de/")<br> Case $nmsg = $GUI_Button_Back<br> _IEAction($oIE, "back")<br> Case $nmsg = $GUI_Button_Forward<br> _IEAction($oIE, "forward")<br> Case $nmsg = $GUI_Button_Refresh<br> _IEAction($oIE, "refresh")<br> Case $nmsg = $GUI_Button_Stop<br> _IEAction($oIE, "stop")<br> Case $nmsg = $copy<br> <br><br> EndSelect<br> If ControlGetHandle("", "", ControlGetFocus("")) &lt;&gt; GUICtrlGetHandle($GUI_Adresszeile) Then<br> If _IEPropertyGet($oIE, "locationurl") &lt;&gt; GUICtrlRead($GUI_Adresszeile) Then<br> GUICtrlSetData($GUI_Adresszeile, _IEPropertyGet($oIE, "locationurl"))<br> WinSetTitle($GUI_Name, "", _IEPropertyGet($oIE, "locationname"))<br> _GUICtrlStatusBar_SetText($hStatus,_IEPropertyGet($oIE, "locationurl"),0)<br> EndIf<br> EndIf<br> WEnd<br><br>$SinkObject = 0<br>$oIE.Quit<br>$oIE = 0<br>GUIDelete()<br>Exit<br><br>Func IEEvent_ProgressChange($Progress, $ProgressMax)<br> $percent = Int(($Progress * 100) / $ProgressMax)<br> If $percent &gt;= 0 And $percent &lt;= 100 Then GUICtrlSetData($idProgress, $percent)<br>EndFunc ;==&gt;IEEvent_ProgressChange

    [/autoit]

    <br><br>Das wäre mein Code, Ich kann damit jedoch leider keie Seite aufrufen,da in der Inputbox immer die aktuelle Seite refreshed wird.<br><br>Weiß jemand Rat?

    2 Mal editiert, zuletzt von blackmamba (6. August 2011 um 22:33)

    • Offizieller Beitrag

    Heyho,

    So sollte es klappen ;)

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <FTPex.au3>
    #include <GuiStatusBar.au3>
    #include <ProgressConstants.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    Global $oIE = _IECreateEmbedded()
    _IEErrorHandlerRegister()

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

    $GUI_Name = GUICreate("Anonymous Browsing", 1024, 657, 169, 72)
    $SinkObject = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2")
    $MenuItem1 = GUICtrlCreateMenu("&Datei")
    $GUI_Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $MenuItem1)
    $GUI_Menu_Shortcuts = GUICtrlCreateMenuItem("Shortcuts", $MenuItem1)
    $GUI_Menu_Beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
    $GUI_Button_Refresh = GUICtrlCreateButton("Refresh", 560, 3, 43, 25, 0)
    $GUI_Button_Stop = GUICtrlCreateButton("Stop", 610, 3, 43, 25, 0)
    $GUI_Button_Back = GUICtrlCreateButton("Zurück", 1, 3, 50)
    $GUI_Button_Forward = GUICtrlCreateButton("Vor", 51, 3, 50)
    $GUI_Adresszeile = GUICtrlCreateInput("", 102, 5, 400, 21)
    $GUI_Go_Button = GUICtrlCreateButton("Go!", 505, 3, 50, 25, $WS_GROUP)
    $GUI_Button_Home = GUICtrlCreateButton("Home", 970, 3, 50)
    $copy = GUICtrlCreateButton("<~>", 920, 3, 50)
    $browser = GUICtrlCreateObj($oIE, 0, 30, 1024, 584)

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

    $hStatus = _GUICtrlStatusBar_Create($GUI_Name)
    Local $aParts[3] = [700, 800, 900]
    _GUICtrlStatusBar_SetParts($hStatus, $aParts)
    _GUICtrlStatusBar_SetText($hStatus, "", 1)
    _GUICtrlStatusBar_SetText($hStatus, "LEER", 2)
    _GUICtrlStatusBar_SetMinHeight($hStatus, 17)
    $idProgress = GUICtrlCreateProgress(-1, -1, 105, 20)
    $hProgress = GUICtrlGetHandle($idProgress)
    _GUICtrlStatusBar_EmbedControl($hStatus, 1, $hProgress)

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

    Global $sOldLocURL = ""

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

    _IENavigate($oIE, "http://www.google.de/")
    GUISetState()

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

    While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    ExitLoop

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

    Case $nMsg = $GUI_Menu_Einstellungen
    MsgBox(0, "Einstellungen", "Diese Funktion erscheint im nächstes mal!")
    Case $nMsg = $GUI_Menu_Beenden
    Exit
    Case $nMsg = $GUI_Go_Button
    _IENavigate($oIE, GUICtrlRead($GUI_Adresszeile))
    Case $nMsg = $GUI_Button_Home
    _IENavigate($oIE, "http://google.de/")
    Case $nMsg = $GUI_Button_Back
    _IEAction($oIE, "back")
    Case $nMsg = $GUI_Button_Forward
    _IEAction($oIE, "forward")
    Case $nMsg = $GUI_Button_Refresh
    _IEAction($oIE, "refresh")
    Case $nMsg = $GUI_Button_Stop
    _IEAction($oIE, "stop")
    Case $nMsg = $copy

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

    EndSelect
    If ControlGetHandle("", "", ControlGetFocus("")) <> GUICtrlGetHandle($GUI_Adresszeile) Then
    If _IEPropertyGet($oIE, "locationurl") <> $sOldLocURL Then
    $sOldLocURL = _IEPropertyGet($oIE, "locationurl")
    GUICtrlSetData($GUI_Adresszeile, _IEPropertyGet($oIE, "locationurl"))
    WinSetTitle($GUI_Name, "", _IEPropertyGet($oIE, "locationname"))
    _GUICtrlStatusBar_SetText($hStatus, _IEPropertyGet($oIE, "locationurl"), 0)
    EndIf
    EndIf
    WEnd

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

    $SinkObject = 0
    $oIE.Quit
    $oIE = 0
    GUIDelete()
    Exit

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

    Func IEEvent_ProgressChange($Progress, $ProgressMax)
    $percent = Int(($Progress * 100) / $ProgressMax)
    If $percent >= 0 And $percent <= 100 Then GUICtrlSetData($idProgress, $percent)
    EndFunc ;==>IEEvent_ProgressChange

    [/autoit]

    Gruß
    Spider