Gui in einer Gui

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$IE = _IECreateEmbedded ()
Global $html

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

$startseite = IniRead("Browser.ini","Seite","Startseite","N/A")
if $startseite = "N/A" then
$startseite = "google.de"
EndIf

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

sleep(150)
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Webbrower", @DesktopWidth-100, @DesktopHeight-100)
$Menu_Datei = GUICtrlCreateMenu("&Datei")
$Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)
$Menu_beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
$GUI_url = GUICtrlCreateInput("http://", 92, 8, 801, 21)
$Label1 = GUICtrlCreateLabel("Adresse:", 8, 8, 67, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$GUI_go = GUICtrlCreateButton("Go!", 900, 6, 65, 25, $WS_GROUP)
$GUI_home = GUICtrlCreateButton("HOME", 1072, 6, 89, 25, $WS_GROUP)
$browser = GUICtrlCreateObj($IE,0, 40, 1217, 673)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_IENavigate($IE,$startseite)
GUICtrlSetData($GUI_url,$startseite)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_Exit()
Case $Menu_beenden
_Exit()
case $GUI_go
_go()
case $GUI_home
_Home()

case $Menu_Einstellungen
$form2 = GUICreate("Einstellungen",250,250)
GUISetState(@SW_SHOW,$form2)
GUICtrlCreateLabel("Startseite",5,18)
$startseite = GUICtrlCreateInput($startseite,70,15,170)
$bestaetigen = GUICtrlCreateButton("Bestätigen",10,220,230)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
case $bestaetigen
$startseite_r = GUICtrlRead($startseite)
IniWrite("Browser.ini","Seite","Startseite",$startseite_r)

endswitch
wend
EndSwitch
WEnd

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

#region ---------------- FUNC ----------------

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

Func _go()
$html = GUICtrlRead($gui_url)
_IENavigate($IE,$html)
EndFunc

Func _Exit()
Exit
Endfunc

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

Func _Home()
_IENavigate($IE,$startseite)
GUICtrlSetData($GUI_url,$startseite)
EndFunc

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

#endregion ---------------- FUNC ----------------

[/autoit]