Code: Alles auswählen
If InitNetwork() = 0
MessageRequester("Error", "Can't initialize the network !", 0)
End
EndIf
Verbindung = OpenNetworkConnection("purechannel.ath.cx", 80 , #PB_Network_TCP)
If Verbindung
SendNetworkString(Verbindung, "GET http://meineaddy und mein script.php?mess=iwillinternet"+#CRLF$ )
EndIf
Buffer = AllocateMemory(1000)
Repeat
SEvent = NetworkClientEvent (Verbindung)
If SEvent
MessageRequester("PureBasic - Server", "Client "+Str(Verbindung)+" has send a packet !", 0)
ReceiveNetworkData(Verbindung, Buffer, 1000)
MessageRequester("Info", "String: "+PeekS(Buffer), 0)
quit=1
EndIf
Until Quit = 1
MessageRequester("PureBasic - Server", "Click to quit the server.", 0)
SendNetworkString(Verbindung, "GET http://meineaddy und mein script.php?mess=iwillhhhhhinternet"+#CRLF$ )
End
also weil das 2. mal senden geht nämlich nicht