Global udp_stream=CreateUDPStream(2000)
Global adresse$="127.0.0.1"

Print udp_stream + " ID vom Netzwerk"

WriteString udp_stream,"hi"
SendUDPMsg udp_stream,INT_IP(adresse$),2000

Print ReadString(udp_stream)

WaitKey()


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