PureBasic

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)