IP change mit Autoit

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

$IP = _GetIP()

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 338, 126, 193, 115)
$Button1 = GUICtrlCreateButton("IP Changen", 16, 16, 313, 49, 0)
$Label1 = GUICtrlCreateLabel("IP:", 8, 88, 17, 17)
$Input1 = GUICtrlCreateInput($IP, 32, 88, 201, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			_IPChange()
	EndSwitch
WEnd

Func _IPChange()
$oIE = _IECreateEmbedded ()
GUICreate("IPChange", 800, 600)
GUICtrlCreateObj($oIE, 0, 0, 800, 600)
GUISetState(@SW_HIDE)
_IENavigate ($oIE, "https://speedport.ip/cgi-bin/disconnect.exe")
Sleep (2000)
$IP = _GetIP()
GUICtrlSetData ( $Input1, $IP)
EndFunc