envoyer des donnees GET
-
- Messages : 510
- Inscription : dim. 25/mars/2007 13:44
- Localisation : Toulouse, France
- Contact :
envoyer des donnees GET
salut,
est-il posible d'envoyer des donnees GET a une page web ? et si oui coment?
merci
est-il posible d'envoyer des donnees GET a une page web ? et si oui coment?
merci
-
- Messages : 1202
- Inscription : sam. 31/déc./2005 23:52
Tu peux utiliser la lib network et utiliser SendNetworkString(), du genre :
Code : Tout sélectionner
SendNetworkString(id, "GET /admin/part.php?cmd=get_list HTTP/1.1" + #CRLF$ + "Accept: */*" + #CRLF$ + "Accept-Language: fr" + #CRLF$ + "User-Agent: purebasic_agent" + #CRLF$ + "Host: www.foobar.fr" + #CRLF$ + "Connection: Keep-Alive" + #CRLF$ + #CRLF$)
"Qui baise trop bouffe un poil." P. Desproges
-
- Messages : 510
- Inscription : dim. 25/mars/2007 13:44
- Localisation : Toulouse, France
- Contact :
ca ne marche pas, les variables $_GET ne semblent pas etre prise en compte:
voici le code php:
Code : Tout sélectionner
Url.s = "/mail.php?mail=" + Mail + "&corps=" + Body + "&sujet=" + Subject
SendNetworkString(Connexion, "GET /" + Url + " HTTP/1.1" + #CRLF$ + "Accept: */*" + #CRLF$ + "Accept-Language: fr" + #CRLF$ + "User-Agent: pure" + #CRLF$ + "Host: r0bots.free.fr" + #CRLF$ + "Connection: Keep-Alive" + #CRLF$ + #CRLF$)
Code : Tout sélectionner
<?php
if(isset($_GET['mail']) && isset($_GET['corps']) && isset($_GET['sujet']))
{
$email = $_GET['mail'];
$sujet = $_GET['sujet'];
$body = $_GET['corps'];
mail($email, $sujet, $body);
echo "ok";
}
?>
Voilà un code de test
Les arguments sont bien pris en compte. Ca doit venir de l'hébergeur. En tout cas niveau PB tout est ok.
Code : Tout sélectionner
InitNetwork()
Connexion = OpenNetworkConnection("www.cybertechmedia.ca", 80)
Mail.s = "test@test.com"
Body.s = "test"
Subject.s = "test"
If Connexion
Url.s = "cls/mail.php?mail=" + Mail + "&corps=" + Body + "&sujet=" + Subject
SendNetworkString(Connexion, "GET /" + Url + " HTTP/1.1" + #CRLF$ + "Accept: */*" + #CRLF$ + "Accept-Language: fr" + #CRLF$ + "User-Agent: pure" + #CRLF$ + "Host: r0bots.free.fr" + #CRLF$ + "Connection: Keep-Alive" + #CRLF$ + #CRLF$)
*b = AllocateMemory(1024)
ReceiveNetworkData(Connexion, *b, 1024)
Debug PeekS(*b)
Else
Debug "None."
EndIf