_IEBodyReadText (für campweb)

1. offizieller Beitrag
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    #include <WindowsConstants.au3>
    $oIE = _IECreateEmbedded()
    $gui = GUICreate("Embedded Internet Explorer", 1024, 850, (@DesktopWidth - 1280) / 2, (@DesktopHeight - 1024) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    GUICtrlCreateObj($oIE, 10, 40, 1000, 700)
    $GUI_Button_ueber = GUICtrlCreateButton("auslesen", 430, 800, 100, 30)
    GUISetState(@SW_SHOW)
    GUISetState()

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

    _IENavigate($oIE, "http://www.amazon.de")
    _IELoadWait ($oIE)
    $sText = _IEBodyReadText ($oIE)

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    MsgBox(16, "MAIN", "Tschüss", 2)
    ExitLoop()
    Case $msg = $GUI_Button_ueber
    MsgBox(0,"",""&$sText)
    EndSelect
    WEnd

    [/autoit]


    soweit so gut.

    was macht das teil?
    es erstellt ein fenster und läd darin die webseite.
    wenn man nun auslesen klickt wird des was man im browser lesen würde in einer textbox ausgegeben.

    mit _StringBetween kann man dann noch eingrenzen was ausgegeben werden soll.

    I spent 10 minutes reviewing code and thinking "What kind of drugs is this guy on?" before realizing it was something I wrote.

    was mich daran viel mehr interessiert ist wie man es zum beispiel schafft klickbare links und bilder in einem fenster zu erstellen.
    damit könnte man dann gruppen erstellen und dort die jeweilegen bereiche des seite darstellen und in einer childgui ausgeben.
    darin dann noch einen copy button und schon kannman sich die passagen die man haben will kopieren.

    I spent 10 minutes reviewing code and thinking "What kind of drugs is this guy on?" before realizing it was something I wrote.

    So weit bin ich bis jetzt (Da fehlen noch unzählige Stringreplacements):


    Verschoben in Projekte

    2 Mal editiert, zuletzt von campweb (16. Januar 2011 um 19:20)

    sieht schonmal gut aus, nun noch was für die übersichtlichkeit machen und man kann es verkaufen ^^

    I spent 10 minutes reviewing code and thinking "What kind of drugs is this guy on?" before realizing it was something I wrote.

    ey die idee is gut, aber mach noch am besten ne inputbox rein wo du
    dann die zu besuchende seite eingeben kannst
    ich machs mal.. und poste dann^^^

    ey leute (ich mach noch mal nen extra dingens auf)
    hier is mal son teil aber wie mache ich das
    mit dem "vor" und "zurück" button, dem verlauf und das es am anfang keine verzögerung gibt??

    Spoiler anzeigen

    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    #include <WindowsConstants.au3>


    msgbox(0,"main","Achtung 2 ncoh nicht behobene bugs:"&@CRLF&@CRLF&"Verzögerung beim Start"&@CRLF&"verlauf zeigt nur besuchte Seiten an, die über -navigate to- besucht wurden")


    $page = _IECreateEmbedded()
    $gui = GUICreate("Embedded Internet Explorer", 1024, 850, (@DesktopWidth - 1280) / 2, (@DesktopHeight - 1024) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    GUICtrlCreateObj($page, 10, 40, 1000, 700)
    $nav1 = GUICtrlCreateButton("Navigate to", 430, 800, 100, 30)
    $GUI_Button_ueber= guictrlcreatebutton(" site text ",300, 800)
    $menue=guictrlcreatemenu("Settings")
    $menueitem=guictrlcreatemenuitem("Always on Top",$menue)
    $recentfilesmenu = GUICtrlCreateMenu("Verlauf")
    $end=guictrlcreatebutton("End Session", 900, 800, 100, 30)
    $zurueck = GUICtrlCreateButton("zurueck", 8, 800, 33, 17, $WS_GROUP)
    $vor = GUICtrlCreateButton("vor", 56, 800, 33, 17, $WS_GROUP)
    WinSetOnTop("[ACTIVE]", "", 0)
    GUISetState(@SW_SHOW)
    GUISetState()


    _IENavigate($page, "http://www.google.de")
    _IELoadWait ($page)
    $sText = _IEBodyReadText ($page)


    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    sleep(1000)
    ExitLoop()
    Case $msg = $GUI_Button_ueber
    MsgBox(0,"",""&$sText)
    Case $msg = $nav1
    $goto=inputbox("Goto","Type in the website you want to go")
    _IENavigate($page, $goto)
    _IELoadWait ($page)
    $sText = _IEBodyReadText ($page)
    If @error <> 1 Then GUICtrlCreateMenuItem($goto, $recentfilesmenu)
    Case $msg=$end
    sleep(1000)
    Exit
    Case $msg=$zurueck
    _IENavigate($page, GUICTRLREAD($recentfilesmenu)
    EndSelect
    WEnd

    dein browser mit vor und zurück

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    #include <WindowsConstants.au3>

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

    msgbox(0,"main","Achtung 2 ncoh nicht behobene bugs:"&@CRLF&@CRLF&"Verzögerung beim Start"&@CRLF&"verlauf zeigt nur besuchte Seiten an, die über -navigate to- besucht wurden")

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

    $page = _IECreateEmbedded()
    $gui = GUICreate("Embedded Internet Explorer", 1024, 850, (@DesktopWidth - 1280) / 2, (@DesktopHeight - 1024) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    GUICtrlCreateObj($page, 10, 40, 1000, 700)
    $nav1 = GUICtrlCreateButton("Navigate to", 430, 800, 100, 30)
    $GUI_Button_ueber= guictrlcreatebutton(" site text ",300, 800)
    $menue=guictrlcreatemenu("Settings")
    $menueitem=guictrlcreatemenuitem("Always on Top",$menue)
    $recentfilesmenu = GUICtrlCreateMenu("Verlauf")
    $end=guictrlcreatebutton("End Session", 900, 800, 100, 30)
    $zurueck = GUICtrlCreateButton("zurueck", 8, 800, 33, 17, $WS_GROUP)
    $vor = GUICtrlCreateButton("vor", 56, 800, 33, 17, $WS_GROUP)
    WinSetOnTop("[ACTIVE]", "", 0)
    GUISetState(@SW_SHOW)
    GUISetState()

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

    _IENavigate($page, "http://www.google.de")
    _IELoadWait ($page)
    $sText = _IEBodyReadText ($page)

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    sleep(1000)
    ExitLoop()
    Case $msg = $GUI_Button_ueber
    MsgBox(0,"",""&$sText)
    Case $msg = $nav1
    $goto=inputbox("Goto","Type in the website you want to go")
    _IENavigate($page, $goto)
    _IELoadWait ($page)
    $sText = _IEBodyReadText ($page)
    If @error <> 1 Then GUICtrlCreateMenuItem($goto, $recentfilesmenu)
    Case $msg=$end
    sleep(1000)
    Exit
    Case $msg = $zurueck ; Send browser to previous page
    $page.GoBack
    Case $msg = $vor ; Send browser forward
    $page.GoForward
    EndSelect
    WEnd

    [/autoit]

    I spent 10 minutes reviewing code and thinking "What kind of drugs is this guy on?" before realizing it was something I wrote.