Ceci est un des moduls de mon projet PtoP:
Code : Tout sélectionner
Enumeration 0
#INET_RELOAD = $80000000
EndEnumeration
Enumeration 0
#INTERNET_OPEN_TYPE_PRECONFIG = 0
#INTERNET_OPEN_TYPE_DIRECT = 1
#INTERNET_OPEN_TYPE_PROXY = 3
#INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4
EndEnumeration
ProcedureDLL.s Url2Text(Url.s, AccessType.l = #INTERNET_OPEN_TYPE_DIRECT, ProxyName.s = #NULL$, ProxyBypass.s = #NULL$)
Protected hInet.l, hURL.l, Bytes.l, Result.s, Buffer.s{2048}
hInet=InternetOpen_(#NULL$, AccessType, ProxyName, ProxyBypass, #Null)
If hInet
hURL=InternetOpenUrl_(hInet, Url, #NULL$, #Null, #INET_RELOAD, #Null)
If hURL
While InternetReadFile_(hURL, @Buffer, 2048, @Bytes) And Bytes
Result+Left(Buffer, Bytes)
Wend
InternetCloseHandle_(hURL)
EndIf
InternetCloseHandle_(hInet)
EndIf
ProcedureReturn Result
EndProcedure
Procedure CaptIP(Regexp.s,Datatxt.s,nbpss.l)
If Datatxt
nbpss=nbpss-1
CreateRegularExpression(0,Regexp)
Dim Result$(0)
a=ExtractRegularExpression(0, Datatxt, result$())-1
If nbpss>a
nbpss=a
EndIf
For d=0 To nbpss
MessageRequester("Info", Result$(d))
;ProcedureReturn Result$(d)
Next d
Else
Debug "Aucun texte"
EndIf
EndProcedure
;a$ = Url2Text("http://monip.nofalia.com/")
a$=Url2Text("http://www.mon-ip.com/")
CaptIP("(\d{0,3}[0-9])[.](\d{0,3}[0-9])[.](\d{0,3}[0-9])[.](\d{0,3}[0-9])",a$,1)