Function NetRun()

 Local n=0,IP1=0,IP2=0

 NetServerIP=0
 NetLocalIP=0

 If Len(NetServerName$)=0 Then Return

 n = CountHostIPs(NetServerName$) ;hier den Server Namen eingeben
 If n=>1 Then IP1 = HostIP(1)
 n = CountHostIPs("") ;wenn leer dann bekommt man den lokalen Rechner
 If n=>1 Then NetLocalIP = HostIP(1)

 If IP1=NetLocalIP Then NetServer=1 Else NetServer=0

 If NetServer=1 Then
  n = CountHostIPs("") ;wenn leer dann bekommt man den lokalen Rechner
  If n=>1 Then NetServerIP = HostIP(1)
  DebugLog "Network UDP Server"
  DebugLog "Server IP " + DottedIP(NetServerIP)
  NetStreamIn=CreateUDPStream(NetServerPort) ;auf dem hört der immer
  NetStreamOut=CreateUDPStream(NetServerPort+1) ;spricht
  DebugLog "NetStreamIn "+NetStreamIn
  DebugLog "NetStreamOut "+NetStreamOut 
 Else
  n = CountHostIPs(NetServerName$) ;hier den Server Namen eingeben
  If n=>1 Then NetServerIP = HostIP(1)
  DebugLog "Network UDP Client"
  DebugLog "Server IP " + DottedIP(NetServerIP)
  NetStreamIn=CreateUDPStream(NetServerPort+1) ;hört
  NetStreamOut=CreateUDPStream(NetServerPort) ;sendet dahin wo der Server hört
  NetListCheck(NetServerIP,NetServerPort) ;an dem senden wir dann
 EndIf

End Function

stream_in=CreateUDPStream(7022)
stream_out=CreateUDPStream(7023)

If stream_in=0 Then RuntimeError "Fehler! UDP konnte nicht erstellt werden!"
If stream_out=0 Then RuntimeError "Fehler! UDP konnte nicht erstellt werden!"

ip_count=CountHostIPs(GetEnv("localhost"))
For i=1 To ip_count
   own_ip=HostIP(1)
Next
broadcast=own_ip-(own_ip And 255)+255

While Not KeyHit(1)
   
   If KeyHit(57)
      
      WriteLine stream_out,"SEARCH"
      SendUDPMsg stream_out,broadcast,7022
      Print "Sende Broadcast!"
      last_time=MilliSecs()
      
   EndIf
   
   d=RecvUDPMsg(stream_in)
   While d<>0 And d<>own_ip
      While ReadAvail(stream_in)
         s$=ReadLine$(stream_in)
         Select s$
            Case "FOUND"
               Print "Server:  "+DottedIP$(d)+" Ping: "+(MilliSecs()-last_time)
            Case "SEARCH"
               WriteLine stream_out,"FOUND"
               SendUDPMsg stream_out,d,7022
               Print "Antwort: "+DottedIP$(d)
            Case s$<>"FOUND" And s$<>"SEARCH"
               Print s$
         End Select
         Delay 1
      Wend
      d=RecvUDPMsg(stream_in)
      Delay 1
   Wend
   
   Delay 10
   
Wend

CloseUDPStream stream_in
CloseUDPStream stream_out

End

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