Browser_by_Turk

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <IE.au3>

$IE = _IECreateEmbedded()


#Region ### START Koda GUI section ### Form=C:\Users\Rudi_Rammler\Desktop\GUI_Main.kxf
$GUI_Main = GUICreate("Webbrowser by Raphael", 1231, 751, 20, 113)
$GUI_adresszeile = GUICtrlCreateInput("http://tl-webspace.eu", 112, 16, 537, 21)
$browser = GUICtrlCreateObj($IE,8, 48, 1217, 673)
$Label1 = GUICtrlCreateLabel("Adresse:", 32, 16, 79, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$GUI_Send = GUICtrlCreateButton("Go!", 664, 16, 75, 25, 0)
$GUI_Home = GUICtrlCreateButton("Home", 1112, 16, 75, 25, 0)
$MenuItem3 = GUICtrlCreateMenu("Datei")
$GUI_bread = GUICtrlCreateButton("Breadfish", 752, 16, 75, 25, 0)
$GUI_fbook = GUICtrlCreateButton("FaceBook", 888, 16, 75, 25, 0)
$GUI_tl = GUICtrlCreateButton("TL-Webspace", 1000, 16, 75, 25, 0)
$GUI_Menu_infos = GUICtrlCreateMenuItem("Infos", $MenuItem3)
$GUI_Menu_Beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem3)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_IENavigate($IE,"http://tl-webspace.eu")




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

        Case $GUI_Menu_infos
            MsgBox(0,"Infos","Hallo und Danke das du diesen Browser Benutzt.Leider hat dieser noch nicht viele Funktionen.Dieser wird aber Versucht immer Weiter Auszubauen. damit ihr Mehr Features habt.Copyright by Raphael Kerwer ",15)
        Case $GUI_Menu_Beenden
            Exit
        Case $GUI_Send
            $html = GUICtrlRead($GUI_adresszeile)
            _IENavigate($IE,$html)
        Case $GUI_Home
            _IENavigate($IE,"http://www.google.de")
        Case $GUI_bread
            _IENavigate($IE,"http://www.Forum.sa-mp.de")
        Case $GUI_fbook
            _IENavigate($IE,"http://www.facebook.com")
        Case $GUI_tl
            _IENavigate($IE,"http://www.tl-webspace.eu.")

    EndSwitch
WEnd