mit "\\" abfragen.
an. Hast Du sowas gesucht?
@DISPLAY 1, {Title = "Quake Serverliste", Width = 1024, Height = 768, Active = True, NoClose = False ,Color = $000000}
CreateUDPObject(1, 16000)
;SetNetworkTimeout(10000)
;Hallo = OpenConnection(1, "monster.idsoftware.com", 27950)
data$="ÿÿÿÿgetservers 68 'full'"
ip$="192.246.40.56"
port = 27950
count = SendUDPData(1, data$, ip$, port)
Wait (100)
daten$, ip$, port = ReceiveUDPData(1)
daten1$, ip1$, port1 = ReceiveUDPData(1)
Wait (100)
daten2$, ip2$, port2 = ReceiveUDPData(1)
daten3$, ip3$, port3 = ReceiveUDPData(1)
Wait (100)
daten4$, ip4$, port4 = ReceiveUDPData(1)
daten5$, ip4$, port5 = ReceiveUDPData(1)
NPrint (count)
NPrint (port)
NPrint (ip$)
;data2$, count, done = ReceiveData(1, #RECEIVELINE)
;hex$ = HexStr(daten$)
;Print (daten$)
len = StrLen(daten$)
TextOut(#CENTER, #CENTER, len)
;Function fSaveServer2 ()
daten$ = ReplaceStr(daten$, "ÿÿÿÿgetserversResponse", "")
OpenFile(1, "masterserverdata.txt", #MODE_WRITE)
;---Server und Pw werden in der writedatei$ gespeichert
;daten1$= HexStr (daten$)
WriteLine(1, daten$)
WriteLine(1, daten1$)
WriteLine(1, daten2$)
WriteLine(1, daten3$)
WriteLine(1, daten4$)
WriteLine(1, daten5$)
WriteLine(1, "-----")
WriteLine(1, "000000")
array,c=SplitStr(daten$,"\\")
For k=1 To c Do WriteLine(1,array[k-1])
WriteLine(1, "000000")
WriteLine(1, "------")
WriteLine(1, "111111")
array,c=SplitStr(daten1$,"\\")
For k=1 To c Do WriteLine(1,array[k-1])
WriteLine(1, "111111")
WriteLine(1, "------")
WriteLine(1, "222222")
array,c=SplitStr(daten2$,"\\")
For k=1 To c Do WriteLine(1,array[k-1])
WriteLine(1, "222222")
WriteLine(1, "------")
WriteLine(1, "333333")
array,c=SplitStr(daten3$,"\\")
For k=1 To c Do WriteLine(1,array[k-1])
WriteLine(1, "333333")
WriteLine(1, "------")
WriteLine(1, "444444")
array,c=SplitStr(daten4$,"\\")
For k=1 To c Do WriteLine(1,array[k-1])
WriteLine(1, "444444")
WriteLine(1, "------")
WriteLine(1, "555555")
array,c=SplitStr(daten5$,"\\")
For k=1 To c Do WriteLine(1,array[k-1])
WriteLine(1, "555555")
WriteLine(1, "------")
CloseFile(1)
OpenFile(1, "quake3serverips.txt", #MODE_WRITE)
zaehler = 1
serverip = 0
For i = 0 To len Step 6
zaehler = zaehler + 6
If zaehler = 7
zaehler = 1
i = i + 1
serverip = serverip + 1
EndIf
result1=Asc(MidStr(daten$,i,1))
result2=Asc(MidStr(daten$,i+1,1))
result3=Asc(MidStr(daten$,i+2,1))
result4=Asc(MidStr(daten$,i+3,1))
result5=Asc(MidStr(daten$,i+4,1))
result6=Asc(MidStr(daten$,i+5,1))
result7 = (result5 * 256 + result6)
Print(result1,".",result2,".",result3,".",result4,":",result7)
NPrint ("")
Serverip$ = AddStr (Serverip$, result1)
Serverip$ = AddStr (Serverip$, ".")
Serverip$ = AddStr (Serverip$, result2)
Serverip$ = AddStr (Serverip$, ".")
Serverip$ = AddStr (Serverip$, result3)
Serverip$ = AddStr (Serverip$, ".")
Serverip$ = AddStr (Serverip$, result4)
Serverip$ = AddStr (Serverip$, ":")
Serverip$ = AddStr (Serverip$, result7)
;s$ = FormatStr("The number " .. daten$ .. " is $%c in hexadecimal notation", daten$)
;a$ = TrimStr(daten$, "/", False)
;Print (a$)
;---Server und Pw werden in der writedatei$ gespeichert
;daten1$= HexStr (daten$)
WriteLine(1, Serverip$)
Serverip$ = ""
Next
NPrint ("")
NPrint (serverip, "Quake 3 Server gefunden")
Serverip$ = AddStr (Serverip$, serverip)
Serverip$ = AddStr (Serverip$, " Quake 3 Server gefunden")
WriteLine(1, Serverip$)
CloseFile(1)
CloseUDPObject(1)
Repeat
WaitEvent
Forever