port=7901
system_message$="*|"


Print system_message$+"stream open"
stream=CreateUDPStream(port)

If stream<>0
 Print system_message$+"stream opened"
Else
 Print system_message$+"stream can not be opened -Press Any Key To Exit-"
 WaitKey
 End
EndIf

While ende=0
IP_Adresse = RecvUDPMsg(stream)
If IP_Adresse <> 0 Then Print ">|"+IP_Adresse

Wend

server_ip=INT_IP("127.0.0.1")

port=7901
system_message$="*|"


Print system_message$+"stream opened"
stream=CreateUDPStream(port)

If stream<>0
 Print system_message$+"stream opened"
Else
 Print system_message$+"stream can not be opened -Press Any Key To Exit-"
 WaitKey
 End
EndIf
While ende=0
WriteByte(write_stream, 23)
SendUDPMsg Write, server_ip

WaitKey()
Wend



Function INT_IP(IP$)
   a1 = Int(Left(IP$, Instr(IP$, ".") - 1)) : IP$ = Right(IP$, Len(IP$) - Instr(IP$, "."))
   a2 = Int(Left(IP$, Instr(IP$, ".") - 1)) : IP$ = Right(IP$, Len(IP$) - Instr(IP$, "."))
   a3 = Int(Left(IP$, Instr(IP$, ".") - 1)) : IP$ = Right(IP$, Len(IP$) - Instr(IP$, "."))
   a4 = Int(IP$)
   Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) + a4
End Function