; Permet d'appeler une page en PHP (par exemple) et de récupérer la valeur de retour

InitNetwork()

EOL$ = Chr(13)+ Chr(10)
HOST$ = "luchezl.free.fr"
PORT = 80
GET$ = "/test.php"



; Ouvre le stream HTTP
ClientID = OpenNetworkConnection(HOST$, PORT)

; OpenConsole()
If ClientID
  ; PrintN("conneciton réussi")
 
  ; StrConn$ = "GET "+GET$+"?par1 = Coucou&par2 = hello HTTP/1.1"+EOL$
  StrConn$ = "GET " + GET$ +"?par1 = Coucou&par3 = hello HTTP/1.1" + EOL$
  SendNetworkString(ClientID, StrConn$)
  SendNetworkString(ClientID, "HOST: " + HOST$ + EOL$)
  SendNetworkString(ClientID, EOL$)
 
  ; PrintN("émission terminer")
 
  Buffer = AllocateMemory(32000)
  ReceiveNetworkData(ClientID, Buffer, 32000)
  a$ = PeekS(Buffer)
  a$ = ReplaceString(a$, Chr(13), "")
  a$ = ReplaceString(a$, Chr(10), Chr(13)+ Chr(10))
  ; Debug CountString(a$, Chr(10))
  ; Debug CountString(a$, Chr(13))
  
  DeleteFile("c:\test.txt")
  hFile = OpenFile(#PB_Any, "c:\test.txt")
  If hFile
    WriteString(a$)
    CloseFile(hFile)
  EndIf
 
  ; PrintN("récéption réussi")
  ; PrintN(PeekS(Buffer))

  CloseNetworkConnection(ClientID)
Else
  ; PrintN("connection echoué")
EndIf
End

; Input()