PureBasic

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

Code : Tout sélectionner

#fin = Chr(13) + Chr(10)

Procedure.s Base64(text$)
  encode$ = Space(Len(text$) * 1.35)
  nb.l = Base64Encoder(@text$, Len(text$), @encode$, Len(encode$))
  ProcedureReturn encode$
EndProcedure

InitNetwork()

ConnectionID = OpenNetworkConnection("www.exemple.com", 80)

url$ = "http://www.truc.com/index.php"
user$ = "user"
pass$ = "pass"

If ConnectionID
  com$ = "GET ?variable=1 HTTP/1.1" + #fin
  com$ = com$ + "Authorization: Basic " + Base64(user$ + ":" + pass$) + #fin
  com$ = com$ + "Accept: */*" + #fin
  com$ = com$ + "Accept: text/html" + #fin
  com$ = com$ + "Referer: " + url$ + #fin
  com$ = com$ + "Host: exemple.com" + #fin
  com$ = com$ + "User-Agent: " + #fin
  com$ = com$ + #fin
  Res = SendNetworkData(ConnectionID, @com$, Len(com$))
  
  test = 100
  
  Repeat
    Delay(10)
    Result = NetworkClientEvent(ConnectionID)
    
    Select Result
      Case 2
        Content$ = Space(28000)
        
        Debug Len(Content$)
        
        ReceiveNetworkData(ConnectionID, @Content$, 28000)
        Ok = 1
        
        CloseNetworkConnection(ConnectionID)
    
    EndSelect
    
    test - 1
    
  Until Ok = 1 Or test < 0
EndIf

If OpenWindow(0, 0, 0, 800, 600, "test HTTP")
  If CreateGadgetList(WindowID(0))
    EditorGadget(0, 10, 10, 780, 580)
    
  EndIf
EndIf

SetGadgetText(0, Content$)

Repeat
  event = WaitWindowEvent()
  
Until event = #PB_Event_CloseWindow

End