Wie wäre es mit PureBasic 4.51 Full Final Version?!AND51 hat geschrieben:Hab zwar schon/noch 4.50 Beta 1 installiert

Wie wäre es mit PureBasic 4.51 Full Final Version?!AND51 hat geschrieben:Hab zwar schon/noch 4.50 Beta 1 installiert
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
Code: Alles auswählen
; http://msdn.microsoft.com/en-us/library/ms738573(VS.85).aspx
If InitNetwork() = 0
End
EndIf
*buffer = AllocateMemory(1024)
If *buffer = 0
End
EndIf
con = OpenNetworkConnection("www.google.de", 80)
Debug "con: " + Str(con)
If con
sock = ConnectionID(con)
Debug "sock: " + Str(sock)
EndIf
If con
arg = 1
res = ioctlsocket_(sock, #FIONBIO, @arg)
Debug "res: " + Str(res)
rdata = ReceiveNetworkData(con, *buffer, 1024)
Debug "rdata: " + Str(rdata)
CloseNetworkConnection(Con)
arg = 0
res = ioctlsocket_(sock, #FIONBIO, @arg)
Debug "res: " + Str(res)
EndIf