Vom webbrowser immer die aktuelle seite in einem inputfeld anzeigen

_IEErrorHandlerRegister ()
If FileExists ("webbrowser.dll") = 0 Then
$favorit1 = ("favorit1")
$favorit2 = ("favorit2")
$favorit3 = ("favorit3")
$favorit4 = ("favorit4")
$favorit5 = ("favorit5")
$favorit6 = ("favorit6")
$favorit7 = ("favorit7")
ElseIf FileExists ("webbrowser.dll") = 1 Then
$favorit1 = IniRead("webbrowser.dll", "favoriten", "favorit1",@ScriptDir)
$favorit2 = IniRead("webbrowser.dll", "favoriten", "favorit2",@ScriptDir)
$favorit3 = IniRead("webbrowser.dll", "favoriten", "favorit3",@ScriptDir)
$favorit4 = IniRead("webbrowser.dll", "favoriten", "favorit4",@ScriptDir)
$favorit5 = IniRead("webbrowser.dll", "favoriten", "favorit5",@ScriptDir)
$favorit6 = IniRead("webbrowser.dll", "favoriten", "favorit6",@ScriptDir)
$favorit7 = IniRead("webbrowser.dll", "favoriten", "favorit7",@ScriptDir)
EndIf
$internet = _IECreateEmbedded ()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("WebBrowser by 93lucas",$erste,$zweite,0,0)
$objekt = GUICtrlCreateObj ($internet,8,64,1265,665)
$Input1 = GUICtrlCreateInput("www.google.de", 232, 8, 529, 21)
$Button1 = GUICtrlCreateButton("Suchen", 768, 8, 145, 25, 0)
$Button2 = GUICtrlCreateButton($favorit1, 0, 32, 177, 25, 0)
$Button3 = GUICtrlCreateButton($favorit2, 184, 32, 177, 25, 0)
$Button4 = GUICtrlCreateButton($favorit3, 368, 32, 177, 25, 0)
$Button5 = GUICtrlCreateButton($favorit4, 552, 32, 177, 25, 0)
$Button6 = GUICtrlCreateButton($favorit5, 736, 32, 177, 25, 0)
$Button7 = GUICtrlCreateButton($favorit6, 920, 32, 177, 25, 0)
$Button8 = GUICtrlCreateButton($favorit7, 1104, 32, 169, 25, 0)
$Button9 = GUICtrlCreateButton("Zurück", 8, 0, 97, 33, 0)
$Button10 = GUICtrlCreateButton("Vor", 120, 0, 97, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate ($internet, "www.google.de")
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_IENavigate ($internet,GUICtrlRead($Input1))
Case $Button2
If $favorit1 = ("favorit1") Then
$favorit1 = InputBox ("Favorit1","Bitte gebe Hier den link zu Favorit1 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit1)
Case $Button3
If $favorit2 = ("favorit2") Then
$favorit2 = InputBox ("Favorit2","Bitte gebe Hier den link zu Favorit2 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit2)
Case $Button4
If $favorit3 = ("favorit3") Then
$favorit3 = InputBox ("Favorit3","Bitte gebe Hier den link zu Favorit3 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit3)
Case $Button5
If $favorit4 = ("favorit4") Then
$favorit4 = InputBox ("Favorit4","Bitte gebe Hier den link zu Favorit4 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit4)
Case $Button6
If $favorit5 = ("favorit5") Then
$favorit5 = InputBox ("Favorit5","Bitte gebe Hier den link zu Favorit5 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit5)
Case $Button7
If $favorit6 = ("favorit6") Then
$favorit6 = InputBox ("Favorit6","Bitte gebe Hier den link zu Favorit6 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit6)
Case $Button8
If $favorit7 = ("favorit7") Then
$favorit7 = InputBox ("Favorit7","Bitte gebe Hier den link zu Favorit7 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit7)
Case $Button9
_IEAction ($internet,"back")
Case $Button10
_IEAction ($internet,"forward")
EndSwitch
IniWrite("webbrowser.dll","favoriten","favorit1",$favorit1)
IniWrite("webbrowser.dll","favoriten","favorit2",$favorit2)
IniWrite("webbrowser.dll","favoriten","favorit3",$favorit3)
IniWrite("webbrowser.dll","favoriten","favorit4",$favorit4)
IniWrite("webbrowser.dll","favoriten","favorit5",$favorit5)
IniWrite("webbrowser.dll","favoriten","favorit6",$favorit6)
IniWrite("webbrowser.dll","favoriten","favorit7",$favorit7)
HotKeySet ("{F5}","erneuern")
GuiCtrlSetData($Input1,$internet.LocationURL)
WEnd
Func erneuern()
_IEAction ($internet,"refresh")
EndFunc