Browser

  • Mein Problem ist es in der suche da sind suchmaschienen aufgelistet im $Input1 soll das gesuchte wort dann auch da gefunden werden die anzeige von den Suchseiten kommen unten im Browser aber nicht mit den such ergebnissen

    2 Problem mir ist die schrift im browser ein deutig was zu gross will das sie etwas angepasst wird aber mit diesen befehl geht das nicht

    GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")


    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.2.10.0
    Author: Sirocool

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

    Script Function: Browser
    Template AutoIt script.
    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here
    #include <GUIConstants.au3>
    #include <IE.au3>
    #include <INet.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>
    #include <StructureConstants.au3>

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

    Local $VerlaufINI = @ScriptDir & "\verlauf.ini"
    Local $SperrungINI = @ScriptDir & "\Sperrung.ini"

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

    Dim $version = "0.0.5"

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

    #Region ### START Koda GUI section ###
    $Form1=GUICreate("Browser",@DesktopWidth,@DesktopHeight, 0, 0)
    GUISetIcon("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\favicon.ico")
    GUISetStyle(0xffffff)
    GUISetCursor (0)
    GUISetBkColor(0xFFFFFF)
    $ie = _IECreateEmbedded()
    $Group1 = GUICtrlCreateObj($ie, 0, 25, @DesktopWidth, 800)
    GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")
    $ie.navigate("http://autoit.de/")
    $Combo1 = GUICtrlCreateCombo("--== Choose ==--", 624, 0, 129, 21)
    GUICtrlSetData(-1,"Google|Fireball|Yahoo|MSN")
    $Input1 = GUICtrlCreateInput("Input1",750, 0, 129, 21)
    $Button1 = GUICtrlCreateButton("Suchen", 880, 0, 75, 21, 0)
    $Icon = GUICtrlCreateInput("Icon", 168, 0, 33, 21)
    $Input2=GUICtrlCreateInput("", 200, 0, 297, 21)
    $Button2 = GUICtrlCreateButton("OK", 500, 0, 75, 21, 0)
    $Button3 = GUICtrlCreateButton("Zurrück", 0, 0, 75, 21, 0)
    $Button4 = GUICtrlCreateButton("Vorwärts", 74, 0, 75, 21, 0)
    $MenuItem6 = GUICtrlCreateMenu("&Datei")
    $MenuItem13 = GUICtrlCreateMenuItem("neues Fenster Strg+N", $MenuItem6)
    $MenuItem12 = GUICtrlCreateMenuItem("neuer Tab Strg+T", $MenuItem6)
    $MenuItem11 = GUICtrlCreateMenuItem("", $MenuItem6)
    $MenuItem10 = GUICtrlCreateMenuItem("Datei öffnen Strg+O", $MenuItem6)
    $MenuItem9 = GUICtrlCreateMenuItem("Seite speichern Strg+S", $MenuItem6)
    $MenuItem8 = GUICtrlCreateMenuItem("", $MenuItem6)
    $MenuItem15 = GUICtrlCreateMenuItem("Druckvorschau", $MenuItem6)
    $MenuItem14 = GUICtrlCreateMenuItem("Drucken Strg+P", $MenuItem6)
    $MenuItem7 = GUICtrlCreateMenuItem("", $MenuItem6)
    $MenuItem16 = GUICtrlCreateMenuItem("Beenden", $MenuItem6)
    $MenuItem5 = GUICtrlCreateMenu("&Bearbeiten")
    $MenuItem4 = GUICtrlCreateMenu("&Ansicht")
    $MenuItem26 = GUICtrlCreateMenuItem("Symbolleisten", $MenuItem4)
    $MenuItem25 = GUICtrlCreateMenuItem("Statusleiste", $MenuItem4)
    $MenuItem24 = GUICtrlCreateMenuItem("Sidebar", $MenuItem4)
    $MenuItem23 = GUICtrlCreateMenuItem("", $MenuItem4)
    $MenuItem29 = GUICtrlCreateMenuItem("Stoppen", $MenuItem4)
    $MenuItem28 = GUICtrlCreateMenuItem("Aktualisieren", $MenuItem4)
    $MenuItem27 = GUICtrlCreateMenuItem("", $MenuItem4)
    $MenuItem31 = GUICtrlCreateMenuItem("Zoom", $MenuItem4)
    $MenuItem30 = GUICtrlCreateMenuItem("Codierung", $MenuItem4)
    $MenuItem32 = GUICtrlCreateMenuItem("", $MenuItem4)
    $MenuItem34 = GUICtrlCreateMenuItem("Quelltext", $MenuItem4)
    $MenuItem33 = GUICtrlCreateMenuItem("Vollbild", $MenuItem4)
    $MenuItem3 = GUICtrlCreateMenu("&Favoriten")
    $MenuItem2 = GUICtrlCreateMenu("&Extras")
    $MenuItem37 = GUICtrlCreateMenuItem("Sperrung von Internet Seiten", $MenuItem2)
    $MenuItem35 = GUICtrlCreateMenuItem("Radio", $MenuItem2)
    $MenuItem36 = GUICtrlCreateMenuItem("Fernsehn", $MenuItem2)
    $MenuItem1 = GUICtrlCreateMenu("&Hilfe")
    $MenuItem18 = GUICtrlCreateMenuItem("Versions Info", $MenuItem1)
    $MenuItem17 = GUICtrlCreateMenuItem("Hilfe Forum", $MenuItem1)
    $MenuItem19 = GUICtrlCreateMenuItem("", $MenuItem1)
    $MenuItem20 = GUICtrlCreateMenuItem("nach Updates suchen", $MenuItem1)
    $MenuItem21 = GUICtrlCreateMenuItem("", $MenuItem1)
    $MenuItem22 = GUICtrlCreateMenuItem("Über Browser", $MenuItem1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button2
    If StringInStr(FileRead("sperrung.ini"), GUICtrlRead($Input2)) Then
    MsgBox(48, "Sperrung", "Diese Seite ist gesperrt!")
    Else
    _IENavigate($ie,GUICtrlRead($Input2),0)
    EndIf
    Case $Button3
    $ie.GoBack
    Case $Button4
    $ie.GoForward
    Case $Combo1
    If GUICtrlRead($Combo1,$Input1) = "Google" then $ie.navigate("http://www.google.de/")
    If GUICtrlRead($Combo1,$Input1) = "Fireball" then $ie.navigate("http://www.Fireball.de/")
    If GUICtrlRead($Combo1,$Input1) = "Yahoo" then $ie.navigate("http://www.Yahoo.de/")
    If GUICtrlRead($Combo1,$Input1) = "MSN"then $ie.navigate("http://www.Msn.de/")
    Case $Button1
    $ie.navigate($Combo1,$Input1,$Group1)

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

    EndSwitch
    WEnd

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


    Später wenn ich diese problem mit eurer Hilfe fertig habe kann mann dann schon mal in der Version 1 vom browser dann auch Internetseiten speeren und wieder auf heben aber diese obtion ist auf meinen rechner noch

    will erstmal nur die beiden Probleme gelöst bekommen ^^

    Und wenn der User mit spielt den ich angeschrieben habe ist in Version 1 auch schon Radio mit drin

  • Zu Problem 1: Ich würde das so lösen

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.2.10.0
    Author: Sirocool

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

    Script Function: Browser
    Template AutoIt script.
    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here
    #include <GUIConstants.au3>
    #include <IE.au3>
    #include <INet.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>
    #include <StructureConstants.au3>

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

    Local $VerlaufINI = @ScriptDir & "\verlauf.ini"
    Local $SperrungINI = @ScriptDir & "\Sperrung.ini"

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

    Dim $version = "0.0.5"

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

    #Region ### START Koda GUI section ###
    $Form1=GUICreate("Browser",@DesktopWidth,@DesktopHeight, 0, 0)
    GUISetIcon("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\favicon.ico")
    GUISetStyle(0xffffff)
    GUISetCursor (0)
    GUISetBkColor(0xFFFFFF)
    $ie = _IECreateEmbedded()
    $Group1 = GUICtrlCreateObj($ie, 0, 25, @DesktopWidth, 800)
    GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")
    $ie.navigate("http://autoit.de/")
    $Combo1 = GUICtrlCreateCombo("--== Choose ==--", 624, 0, 129, 21)
    GUICtrlSetData(-1,"Google|Fireball|Yahoo|MSN")
    $Input1 = GUICtrlCreateInput("Input1",750, 0, 129, 21)
    $Button1 = GUICtrlCreateButton("Suchen", 880, 0, 75, 21, 0)
    $Icon = GUICtrlCreateInput("Icon", 168, 0, 33, 21)
    $Input2=GUICtrlCreateInput("", 200, 0, 297, 21)
    $Button2 = GUICtrlCreateButton("OK", 500, 0, 75, 21, 0)
    $Button3 = GUICtrlCreateButton("Zurrück", 0, 0, 75, 21, 0)
    $Button4 = GUICtrlCreateButton("Vorwärts", 74, 0, 75, 21, 0)
    $MenuItem6 = GUICtrlCreateMenu("&Datei")
    $MenuItem13 = GUICtrlCreateMenuItem("neues Fenster Strg+N", $MenuItem6)
    $MenuItem12 = GUICtrlCreateMenuItem("neuer Tab Strg+T", $MenuItem6)
    $MenuItem11 = GUICtrlCreateMenuItem("", $MenuItem6)
    $MenuItem10 = GUICtrlCreateMenuItem("Datei öffnen Strg+O", $MenuItem6)
    $MenuItem9 = GUICtrlCreateMenuItem("Seite speichern Strg+S", $MenuItem6)
    $MenuItem8 = GUICtrlCreateMenuItem("", $MenuItem6)
    $MenuItem15 = GUICtrlCreateMenuItem("Druckvorschau", $MenuItem6)
    $MenuItem14 = GUICtrlCreateMenuItem("Drucken Strg+P", $MenuItem6)
    $MenuItem7 = GUICtrlCreateMenuItem("", $MenuItem6)
    $MenuItem16 = GUICtrlCreateMenuItem("Beenden", $MenuItem6)
    $MenuItem5 = GUICtrlCreateMenu("&Bearbeiten")
    $MenuItem4 = GUICtrlCreateMenu("&Ansicht")
    $MenuItem26 = GUICtrlCreateMenuItem("Symbolleisten", $MenuItem4)
    $MenuItem25 = GUICtrlCreateMenuItem("Statusleiste", $MenuItem4)
    $MenuItem24 = GUICtrlCreateMenuItem("Sidebar", $MenuItem4)
    $MenuItem23 = GUICtrlCreateMenuItem("", $MenuItem4)
    $MenuItem29 = GUICtrlCreateMenuItem("Stoppen", $MenuItem4)
    $MenuItem28 = GUICtrlCreateMenuItem("Aktualisieren", $MenuItem4)
    $MenuItem27 = GUICtrlCreateMenuItem("", $MenuItem4)
    $MenuItem31 = GUICtrlCreateMenuItem("Zoom", $MenuItem4)
    $MenuItem30 = GUICtrlCreateMenuItem("Codierung", $MenuItem4)
    $MenuItem32 = GUICtrlCreateMenuItem("", $MenuItem4)
    $MenuItem34 = GUICtrlCreateMenuItem("Quelltext", $MenuItem4)
    $MenuItem33 = GUICtrlCreateMenuItem("Vollbild", $MenuItem4)
    $MenuItem3 = GUICtrlCreateMenu("&Favoriten")
    $MenuItem2 = GUICtrlCreateMenu("&Extras")
    $MenuItem37 = GUICtrlCreateMenuItem("Sperrung von Internet Seiten", $MenuItem2)
    $MenuItem35 = GUICtrlCreateMenuItem("Radio", $MenuItem2)
    $MenuItem36 = GUICtrlCreateMenuItem("Fernsehn", $MenuItem2)
    $MenuItem1 = GUICtrlCreateMenu("&Hilfe")
    $MenuItem18 = GUICtrlCreateMenuItem("Versions Info", $MenuItem1)
    $MenuItem17 = GUICtrlCreateMenuItem("Hilfe Forum", $MenuItem1)
    $MenuItem19 = GUICtrlCreateMenuItem("", $MenuItem1)
    $MenuItem20 = GUICtrlCreateMenuItem("nach Updates suchen", $MenuItem1)
    $MenuItem21 = GUICtrlCreateMenuItem("", $MenuItem1)
    $MenuItem22 = GUICtrlCreateMenuItem("Über Browser", $MenuItem1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button2
    If StringInStr(FileRead("sperrung.ini"), GUICtrlRead($Input2)) Then
    MsgBox(48, "Sperrung", "Diese Seite ist gesperrt!")
    Else
    _IENavigate($ie,GUICtrlRead($Input2),0)
    EndIf
    Case $Button3
    $ie.GoBack
    Case $Button4
    $ie.GoForward
    ;~ Case $Combo1
    ;~ If GUICtrlRead($Combo1,$Input1) = "Google" then $ie.navigate("http://www.google.de/")
    ;~ If GUICtrlRead($Combo1,$Input1) = "Fireball" then $ie.navigate("http://www.Fireball.de/")
    ;~ If GUICtrlRead($Combo1,$Input1) = "Yahoo" then $ie.navigate("http://www.Yahoo.de/")
    ;~ If GUICtrlRead($Combo1,$Input1) = "MSN"then $ie.navigate("http://www.Msn.de/")
    Case $Button1
    Switch GUICtrlRead($Combo1)
    Case "Google"
    $ie.navigate('http://www.google.de/search?hl=de&q='&GUICtrlRead($Input1))
    Case "Fireball"
    $ie.navigate('http://suche.fireball.de/cgi-bin/pursuit?cat=fb_loc&enc=utf-8&query='&GUICtrlRead($Input1))
    Case "Yahoo"
    $ie.navigate('http://de.search.yahoo.com/search?p='&GUICtrlRead($Input1))
    Case "MSN"
    $ie.navigate('http://search.live.com/results.aspx?q='&GUICtrlRead($Input1))
    EndSwitch
    EndSwitch
    WEnd

    [/autoit]
  • 1.Frage ist wichtig
    brauche mal hilfe bei Case $MenuItem9 in der Zeile 130
    und zwar soll er die datein so schreiben wie ich sie angebe nicht so wie er es jetzt macht test.xml.php.html so speichert er sie mir ab und es ist nichts drin soll aber bitte so sein wie im browser üblich ist danke

    2.Farge kann noch warten


    ist wie baue ich mehre
    $Form1 ein und wo müssen dann die befehle für die $Form´s hin die ich mit rein mache bächte mal ein bei spiel

    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.2.10.0
    Author: Sirocool

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

    Script Function: Browser
    Template AutoIt script.
    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here
    #include <GUIConstants.au3>
    #include <IE.au3>
    #include <INet.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>
    #include <StructureConstants.au3>
    #cs------------------------------------------------
    Fragt ab ob du online bist
    #ce ------------------------------------------------
    ; Script_-
    _waitinetconnect()
    MsgBox(0,"Devil Browser","Jetzt bist du online!!")

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

    Func _waitinetconnect()
    While Not Ping("www.Autoit.de")
    Sleep(1000)
    WEnd
    EndFunc
    ;-------------------------------------------------

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

    If FileExists("") Then
    Else
    DirCreate("C:\Browser\images\toolbar\thema\")
    FileInstall("images\toolbar\thema\zurrück.bmp","C:\Browser\images\toolbar\thema\zurrück.bmp")
    FileInstall("images\toolbar\thema\vorwärts.bmp","C:\Browser\images\toolbar\thema\vorwärts.bmp")
    FileInstall("images\toolbar\thema\aktualisiren.bmp","C:\Browser\images\toolbar\thema\aktualisiren.bmp")
    FileInstall("images\toolbar\thema\stop.bmp","C:\Browser\images\toolbar\thema\stop.bmp")
    FileInstall("images\toolbar\thema\home.bmp","C:\Browser\images\toolbar\thema\home.bmp")
    FileInstall("images\toolbar\thema\logo.bmp","C:\Browser\images\toolbar\thema\logo.bmp")
    EndIf

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

    Local $SperrungINI = @ScriptDir & "\Sperrung.ini"

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

    Dim $version = "0.0.8"
    ;..A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z.

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

    #Region ### START Koda GUI section ###
    $Form1=GUICreate("Devil Browser",@DesktopWidth,@DesktopHeight, 0, 0)
    GUISetIcon("Icon\favicon.ico")
    GUISetStyle(0xffffff)
    GUISetCursor (0)
    GUISetBkColor(0xFFFFFF)
    $ie = _IECreateEmbedded()
    $Group1 = GUICtrlCreateObj($ie, 0, 25, @DesktopWidth, 950)
    GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")
    $ie.navigate("http://autoit.de/")
    $Combo1 = GUICtrlCreateCombo("Suchmaschienen", 653, 0, 129, 21)
    GUICtrlSetData(-1,"-----------------------------------------|Fireball|Google|MSN|Yahoo|-----------------------------------------|Versandhäuser|-----------------------------------------|Bauer|Neckermann|Otto|Schwab|Quelle|-----------------------------------------|Internet Versand|-----------------------------------------|Amazon|Ebay|")
    $Input1 = GUICtrlCreateInput("Input1",782, 0, 129, 21)
    $Button1 = GUICtrlCreateButton("Suchen", 911, 0, 75, 21, 0)
    $Icon = GUICtrlCreateInput("Icon", 238, 0, 33, 21)
    $Input2=GUICtrlCreateInput("", 271, 0, 297, 21)
    $Button2 = GUICtrlCreateButton("OK", 568, 0, 75, 21, 0)
    ;$Button3 = GUICtrlCreateButton("Zurrück", 0, 0, 75, 21, 0)
    $Button4 =GUICtrlCreatePic("C:\Browser\images\toolbar\thema\vorwärts.bmp",25, 0, 28, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Button3 = GUICtrlCreatePic("C:\Browser\images\toolbar\thema\zurrück.bmp",0, 0, 33, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Button5 = GUICtrlCreatePic("C:\Browser\images\toolbar\thema\aktualisiren.bmp",50, 0, 36, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Button6 =GUICtrlCreatePic("C:\Browser\images\toolbar\thema\stop.bmp",86, 0, 32, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Button7 =GUICtrlCreatePic("C:\Browser\images\toolbar\thema\home.bmp",118, 0, 29, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Button8 =GUICtrlCreatePic("C:\Browser\images\toolbar\thema\logo.bmp",144, 0, 93, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $MenuItem6 = GUICtrlCreateMenu("&Datei")
    ;$MenuItem13 = GUICtrlCreateMenuItem("neues Fenster Strg+N", $MenuItem6)
    ;$MenuItem12 = GUICtrlCreateMenuItem("neuer Tab Strg+T", $MenuItem6)
    ;$MenuItem11 = GUICtrlCreateMenuItem("", $MenuItem6)
    ;$MenuItem10 = GUICtrlCreateMenuItem("Datei öffnen Strg+O", $MenuItem6)
    $MenuItem9 = GUICtrlCreateMenuItem("Seite speichern Strg+S", $MenuItem6)
    ;$MenuItem8 = GUICtrlCreateMenuItem("", $MenuItem6)
    ;$MenuItem15 = GUICtrlCreateMenuItem("Druckvorschau", $MenuItem6)
    ;$MenuItem14 = GUICtrlCreateMenuItem("Drucken Strg+P", $MenuItem6)
    ;$MenuItem7 = GUICtrlCreateMenuItem("", $MenuItem6)
    $MenuItem16 = GUICtrlCreateMenuItem("Beenden", $MenuItem6)
    $MenuItem5 = GUICtrlCreateMenu("&Bearbeiten")
    $MenuItem4 = GUICtrlCreateMenu("&Ansicht")
    ;$MenuItem26 = GUICtrlCreateMenuItem("Symbolleisten", $MenuItem4)
    ;$MenuItem25 = GUICtrlCreateMenuItem("Statusleiste", $MenuItem4)
    ;$MenuItem24 = GUICtrlCreateMenuItem("Sidebar", $MenuItem4)
    ;$MenuItem23 = GUICtrlCreateMenuItem("", $MenuItem4)
    ;$MenuItem29 = GUICtrlCreateMenuItem("Stoppen", $MenuItem4)
    ;$MenuItem28 = GUICtrlCreateMenuItem("Aktualisieren", $MenuItem4)
    ;$MenuItem27 = GUICtrlCreateMenuItem("", $MenuItem4)
    ;$MenuItem31 = GUICtrlCreateMenuItem("Zoom", $MenuItem4)
    ;$MenuItem30 = GUICtrlCreateMenuItem("Codierung", $MenuItem4)
    ;$MenuItem32 = GUICtrlCreateMenuItem("", $MenuItem4)
    $MenuItem34 = GUICtrlCreateMenuItem("Quelltext", $MenuItem4)
    ;$MenuItem33 = GUICtrlCreateMenuItem("Vollbild", $MenuItem4)
    $MenuItem3 = GUICtrlCreateMenu("&Favoriten")
    $MenuItem2 = GUICtrlCreateMenu("&Extras")
    $MenuItem37 = GUICtrlCreateMenuItem("Sperrung von Internet Seiten", $MenuItem2)
    ;$MenuItem35 = GUICtrlCreateMenuItem("Radio", $MenuItem2)
    ;$MenuItem36 = GUICtrlCreateMenuItem("Fernsehn", $MenuItem2)
    $MenuItem1 = GUICtrlCreateMenu("&Hilfe")
    ;$MenuItem18 = GUICtrlCreateMenuItem("Versions Info", $MenuItem1)
    ;$MenuItem17 = GUICtrlCreateMenuItem("Hilfe Forum", $MenuItem1)
    ;$MenuItem19 = GUICtrlCreateMenuItem("", $MenuItem1)
    ;$MenuItem20 = GUICtrlCreateMenuItem("nach Updates suchen", $MenuItem1)
    ;$MenuItem21 = GUICtrlCreateMenuItem("", $MenuItem1)
    ;$MenuItem22 = GUICtrlCreateMenuItem("Über Browser", $MenuItem1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button2
    If StringInStr(FileRead("sperrung.ini"), GUICtrlRead($Input2)) Then
    MsgBox(48, "Sperrung", "Diese Seite ist gesperrt!")
    Else
    _IENavigate($ie,GUICtrlRead($Input2),0)
    EndIf
    Case $MenuItem9
    $szSaveFile = FileSaveDialog( "Bitte Dateiname und Speicherort eingeben.", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Webseite Komplett (*.*)|Webseite,nur Html(*.html)|Textdatei (*.txt)", 2)
    If Not @error Then
    If StringRight($szSaveFile,4) <> ".xml" Then $szSaveFile &= ".xml"
    If StringRight($szSaveFile,4) <> ".php" Then $szSaveFile &= ".php"
    If StringRight($szSaveFile,4) <> ".html" Then $szSaveFile &= ".html"
    If StringRight($szSaveFile,4) <> ".txt" Then $szSaveFile &= ".txt"
    $hFile = FileOpen($szSaveFile,2)
    FileWrite($hFile, Guictrlread($Group1))
    FileClose($hFile)
    EndIf
    Case $MenuItem16
    ExitLoop
    Case $MenuItem34
    $sHTML = _IEDocReadHTML ($ie)
    MsgBox(0, "Quelltext", $sHTML)
    Case $MenuItem37
    _Sperrung()
    Case $Button3
    _zurruck()
    Case $Button7
    _home()
    Case $Button4
    _vorwarts()
    Case $Button5
    _()
    Case $Button1
    Switch GUICtrlRead($Combo1)
    Case "Fireball"
    $ie.navigate('http://suche.fireball.de/cgi-bin/pursuit?cat=fb_loc&enc=utf-8&query='&GUICtrlRead($Input1))
    Case "Google"
    $ie.navigate('http://www.google.de/search?hl=de&q='&GUICtrlRead($Input1))
    Case "MSN"
    $ie.navigate('http://search.live.com/results.aspx?q='&GUICtrlRead($Input1))
    Case "Yahoo"
    $ie.navigate('http://de.search.yahoo.com/search?p='&GUICtrlRead($Input1))
    Case "Bauer"
    $ie.navigate('http://www.baur.de/service/baur-de;sid=kraJWfseRLTQW7JebMQzMJcUXykaq6GFppsKlt-EIRVjqTPRgu6dWzbcYQiFMQ==?ls=0&prodDetailUrl=http%3A%2F%2Fwww.baur.de%2Fis-bin%2FINTERSHOP.enfinity%2FWFS%2FBaur-BaurDe-Site%2Fde_DE%2F-%2FEUR%2FBV_DisplayProductInformation-ProductRef%3Bsid%3DkraJWfseRLTQW7JebMQzMJcUXykaq6GFppsKlt-EIRVjqTPRgu6dWzbcYQiFMQ%3D%3D%3Fls%3D0%26ProductRef%3D%253CSKU%253E%2540Baur-BaurDe%26SearchBack%3D-1%26SearchDetail%3Dtrue&source=&Template=search%2Fsearch_fh&resultsPerPage=24&searchandbrowse=&category2=&query='&GUICtrlRead($Input1))
    Case "Neckermann"
    $ie.navigate('http://www.amazon.de/s/ref=nb_ss_b?__mk_de_DE=%C5M%C5Z%D5%D1&url=search-alias%3Daps&field-keywords='&GUICtrlRead($Input1))
    Case "Otto"
    $ie.navigate('http://www.otto.de/is-bin/INTERSHOP.enfinity/WFS/Otto-OttoDe-Site/de_DE/-/EUR/OV_ViewFHSearch-Search;sid=wd46KPGs8MGYKLjtwR4CQZ2myvvXv6gY3HpV71Al5Z51QoK2X0JJMm8w5Z51QmgjEL4A5Qam?ls=0&commit=true&fh_search=hose&fh_search_initial='&GUICtrlRead($Input1))
    Case "Schwab"
    $ie.navigate('http://www.schwab.de/is-bin/INTERSHOP.enfinity/WFS/Schwab-SchwabDe-Site/de_DE/-/EUR/ViewTemplate-Search?ls=0&Template=searchff%2Fsearch_result_frame&query='&GUICtrlRead($Input1))
    Case "Quelle"
    $ie.navigate('http://www.quelle.de/is-bin/INTERSHOP.enfinity/WFS/Quelle-quelle_de-Site/de_DE/-/EUR/Q_FreeSearch-Start?catelogCategoryList=QuelleRoot&search_free='&GUICtrlRead($Input1))
    Case "Amazon"
    $ie.navigate('http://www.amazon.de/s/ref=nb_ss_b?__mk_de_DE=%C5M%C5Z%D5%D1&url=search-alias%3Daps&field-keywords='&GUICtrlRead($Input1))
    Case "Ebay"
    $ie.navigate('http://search.ebay.de/'&GUICtrlRead($Input1))
    EndSwitch
    EndSwitch
    WEnd

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

    Func _zurruck()
    $ie.GoBack
    EndFunc
    Func _vorwarts()
    $ie.GoForward
    EndFunc
    Func _home()
    $ie.navigate("http://sirocool.si.funpic.de/Clan/00/")
    EndFunc
    Func _Sperrung()
    ShellExecute ( @ScriptDir & "\Sperrung.exe" )
    EndFunc

    [/autoit]

    Ich bedanke mich schon mal im vorraus für die antworten

    • Offizieller Beitrag

    Also mal zu deinem Script . Hast ein Fehler in Zeile 19 da gehört hinter cs ein Freizeichen . Die Function _() in Zeile 155 gibt es nicht .Am Scriptanfang nach den Includes solltest du folgendes einfügen :

    [autoit]

    _IEErrorHandlerRegister ()

    [/autoit]

    sonst wird dein Script bei drücken der Vorwärts- und Zurücktaste irgendwann abstürzen .
    Dein Speichern kann gar nicht gehen .Du fragst hintereinander ab, ob die Datei nicht die Endung (.xml,.php,.html,.txt) hat .
    Und das schlimme ist wenn die Datei nicht die Endung hat ,hängst du die Endung vor jeder weiteren Abfrage hintenan.
    Zum Beispiel . Du speichers unter c:\ Dateiname Test Dateityp Webseite(*.*), dann ergibt deine Abfrage c:\Test.xml.php.html.txt.

    Auch wenn du das mit der Endung hinbekommst, bezweifle ich das die Seite richtig gespeichert wird .Alleine durch die Endung wird das Dateiformat nicht definiert. Du hast zwar die Dateiendung aber immer den selben Inhalt.