Spoiler anzeigen
#include <GUIConstants.au3>
#include <IE.au3>
#include <file.au3>
Dim $version = "0.0.5"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Browser",@DesktopWidth,@DesktopHeight, 0,0)
GUISetIcon("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\favicon.ico")
GUISetStyle(0xffffff)
GUISetBkColor(0xFFFFFF)
$Combo1 = GUICtrlCreateCombo("", 112, 0, 800, 0)
$Combo2 = GUICtrlCreateCombo("", 980, 0, 100, 0)
$ie = _IECreateEmbedded()
$Button= GUICtrlCreateButton("Go",912, 0, 37, 21, 0)
$Button1= GUICtrlCreateButton("<" ,0, 0, 37, 21, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2= GUICtrlCreateButton(">", 38, 0, 37, 21, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("icon",75, 0, 37, 0)
$Group1 = GUICtrlCreateObj($ie, 0, 25, @DesktopWidth, @DesktopHeight)
$MenuItem5 = GUICtrlCreateMenu("&Datei")
$MenuItem10 = GUICtrlCreateMenuItem("Neues Fenster", $MenuItem5)
$MenuItem11 = GUICtrlCreateMenuItem("Neuer Tab", $MenuItem5)
$MenuItem12 = GUICtrlCreateMenuItem("Adresse öffnen", $MenuItem5)
$MenuItem13 = GUICtrlCreateMenuItem("Datei öffnen", $MenuItem5)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$MenuItem14 = GUICtrlCreateMenuItem("Schließen", $MenuItem5)
$MenuItem15 = GUICtrlCreateMenuItem("", $MenuItem5)
$MenuItem16 = GUICtrlCreateMenuItem("Seite speichern"& @TAB & "Strg+S",$MenuItem5)
$MenuItem17 = GUICtrlCreateMenuItem("Link senden", $MenuItem5)
$MenuItem18 = GUICtrlCreateMenuItem("", $MenuItem5)
$MenuItem19 = GUICtrlCreateMenuItem("Seite einrichten", $MenuItem5)
$MenuItem20 = GUICtrlCreateMenuItem("Druckvorschau", $MenuItem5)
$MenuItem21 = GUICtrlCreateMenuItem("Drucken", $MenuItem5)
$MenuItem22 = GUICtrlCreateMenuItem("", $MenuItem5)
$MenuItem23 = GUICtrlCreateMenuItem("Importieren", $MenuItem5)
$MenuItem24 = GUICtrlCreateMenuItem("", $MenuItem5)
$MenuItem9 = GUICtrlCreateMenuItem("Offline arbeiten", $MenuItem5)
$MenuItem8 = GUICtrlCreateMenuItem("Beenden", $MenuItem5)
$MenuItem4 = GUICtrlCreateMenu("Bearbeiten")
$MenuItem3 = GUICtrlCreateMenu("Ansicht")
$MenuItem2 = GUICtrlCreateMenu("Chronik")
$MenuItem1 = GUICtrlCreateMenu("Lesezeichen")
$MenuItem7 = GUICtrlCreateMenu("Extras")
$MenuItem25 = GUICtrlCreateMenuItem("Internet Radio", $MenuItem7)
$MenuItem26 = GUICtrlCreateMenuItem("Internet Fernsehn", $MenuItem7)
$MenuItem27 = GUICtrlCreateMenuItem("Sperrung Seiten", $MenuItem7)
$MenuItem6 = GUICtrlCreateMenu("Hilfe")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
If GUICtrlRead($Combo1) = "www.ebay.de" Then
MsgBox (48,"Sperrung","Diese Seite ist gesperrt!")
Else
_IENavigate($ie,GUICtrlRead($Combo1),0)
EndIf
Case $Button
GUICtrlSetData($Combo1, GUICtrlRead($Combo1))
Case $MenuItem8
MsgBox(0, "Beenden-Button", "Programm wird beendet...")
ExitLoop
Case $MenuItem13
open()
Case $MenuItem16
save()
EndSwitch
WEnd
Func open()
;Datei aussuchen, mehrfachauswahl
$datei = FileOpenDialog ( "Datei aussuchen","","Alle Dateien ()| HTML-Dateien (*.html,*.php,)|Text-Dateien (*.txt,)|Grafik-Dateien (*.gif,*.bmp,)|XML-Dateien (*.)")
FileWrite($datei,$Group1&@ScriptDir);Falls nur eine Zeile, einfach onhe FileOpen und FileClose...
FileClose($datei)
EndFunc
Func save()
$datei = FileSaveDialog ( "Datei aussuchen","","Alle Dateien ()| HTML-Dateien (*.html,*.php,)|Text-Dateien (*.txt,)|Grafik-Dateien (*.gif,*.bmp,)|XML-Dateien (*.)")
EndFunc
ansonsten macht den ja kaum einer weiter ihr^^