window1=CreateWindow("ONLINE PATCH",050,050,200,100,0,9)
htmlview=CreateHtmlView(1,1,100,50,window1)

HtmlViewGo htmlview,"onlinepatch.funpic.de/hex.php"

Repeat
Delay 1
Status=HtmlViewStatus (htmlview)
Until Status=1

Print "OK"

senden = CreateUDPStream()
If senden = 0 Then
Print "Verbindung konnte nicht erstellt werden!"
EndIf

empfangen = CreateUDPStream()
If empfangen = 0 Then
Print "Verbindung konnte nicht erstellt werden!"
EndIf


Repeat
Delay 1
IP_Adresse = RecvUDPMsg(empfangen)
If IP_Adresse > 0 Then
senderip = DottedIP(IP_Adresse)
messenge$ = ReadLine(bekommen)
Print "Nachricht empfangen!"
Print "Sender Ip:" + senderip
Print "Nachricht:" + messenge$
EndIf

Forever