encore des Attaques ??
Purebasic derange certains concurents ?
je me demande apres coup , si ... certains clash n'ont pas été initiés par ...la concurrence ..(Trolleur Pro) mais non... je dois me tromper

oui , pour ça pas de problemes c'etait deja le casFred a écrit :oui je pense. Il faut bien que ton soft ferme les connections apres chaques requetes, sinon elle restent ouvertent pendant un timeout assez long sur le serveur.
Code : Tout sélectionner
ProcedureDLL.S Url2Text2(Url.S, OpenType.b,ProxyAndPort.S)
; 1 INTERNET_OPEN_TYPE_DIRECT Resolves all host names locally.
; 0 INTERNET_OPEN_TYPE_PRECONFIG Retrieves the proxy Or direct configuration from the registry.
; 4 INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY Retrieves the proxy Or direct configuration from the registry And prevents the use of a startup Microsoft JScript Or Internet Setup (INS) file.
; 3 INTERNET_OPEN_TYPE_PROXY Passes requests To the proxy unless a proxy bypass list is supplied And the name To be resolved bypasses the proxy. In this Case, the function uses INTERNET_OPEN_TYPE_DIRECT.
isLoop.b=1
INET_RELOAD.l = $80000000
hInet.l=0
hURL.l=0
Bytes.l=0
Buffer.S=Space(2048)
res.S=""
hInet = InternetOpen_("", OpenType, ProxyAndPort, "", 0)
hURL = InternetOpenUrl_(hInet, Url, #Null, 0, INET_RELOAD, 0)
Repeat
InternetReadFile_(hURL,@Buffer, Len(Buffer), @Bytes)
If Bytes = 0
isLoop=0
Else
res = res + Left(Buffer, Bytes)
EndIf
Until isLoop=0
InternetCloseHandle_(hURL)
InternetCloseHandle_(hInet)
ProcedureReturn res
EndProcedure
ProcedureDLL.S Url2Text(Url.S)
ProcedureReturn Url2Text2(Url,1,"")
EndProcedure
; utilisation :
text_page$=Url2Text(Site.S) ; dans text_page$ le code de la page Html
(basées sur les utilisateurs actifs des 5 dernières minutes)