Code: Alles auswählen
InitNetwork()
Procedure LoadSite(Site.s, Info.s, TimeOUT = 5000)
Protected Header.s, Cid, R, Pos, T
Protected *Buffer = AllocateMemory($10000)
If *Buffer
Cid = OpenNetworkConnection(Site, 80)
If Cid
Header = "POST /index.php HTTP/1.1" + #CRLF$
Header + "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" + #CRLF$
Header + "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)" + #CRLF$
Header + "Host: " + Site + #CRLF$
Header + "Content-Length: " + Str(Len(Info)) + #CRLF$
Header + "Content-Type: application/x-www-form-urlencoded" + #CRLF$
Header + "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" + #CRLF$
Header + "Cache-Control: no-cache" + #CRLF$
Header + "Cookie: keep-alive" + #CRLF$ + #CRLF$
Header + Info + #CRLF$
SendNetworkString(Cid, Header)
T = ElapsedMilliseconds() + TimeOUT
Repeat
Select NetworkClientEvent(Cid)
Case 0
Delay(5)
Case #PB_NetworkEvent_Data
R = ReceiveNetworkData(Cid, *Buffer + Pos, MemorySize(*Buffer) - Pos)
If R > -1
Pos + R
If Pos >= 11
If PeekS(*Buffer + Pos - 11, 11, #PB_UTF8) = "</html>" + #CRLF$ + #CRLF$
Break
EndIf
EndIf
EndIf
EndSelect
Until T < ElapsedMilliseconds()
If CreateFile(0, GetTemporaryDirectory() + "Buffer.htm")
WriteData(0, *Buffer, Pos)
CloseFile(0)
RunProgram(GetTemporaryDirectory() + "Buffer.htm")
EndIf
CloseNetworkConnection(Cid)
EndIf
FreeMemory(*Buffer)
EndIf
EndProcedure