#include <GUIConstants.au3>
#include <IE.au3>

$IE = _IECreateEmbedded ()

#Region ### START Koda GUI section ### Form=
$Web_main = GUICreate("Web Browser Beta", 828, 599, 1207, 124)
$Web_lb_adresse = GUICtrlCreateLabel("Adresse:", 8, 16, 58, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Web_adresszeile = GUICtrlCreateInput("http://www.youtube.com/", 80, 16, 577, 21)
$Web_btn_Start = GUICtrlCreateButton("Start!", 672, 16, 57, 25, 0)
$Web_btn_Startseite = GUICtrlCreateButton("Startseite", 752, 16, 57, 25, 0)
$browser = GUICtrlCreateObj($IE, 8, 40, 817, 553)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_IENavigate($IE, "http://www.youtube.com/")


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Web_btn_Start
			$html = GUICtrlRead($Web_adresszeile)
			_IENavigate($IE,$html)
		Case $Web_btn_Startseite
			_IENavigate($IE,"http://www.youtube.com/")
	EndSwitch
WEnd