Code:
#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