Hello la foule,
Désolé du petit détournement, quoique, mais... où pourrais-je trouver un
truc clair et concis pour que je comprenne la différence entre post et get?
Merci,
J.-F.
Le 30/12/2015 12:07, Yannick Youalé a écrit :
Salut les mecs,
une petite astuce aujourd'hui.
Comment envoyer une requête http post via l'API inet en vbScript.
J'avoue avoir cherché un moment parce que sans bidouille, ce n'est
que la requête http get qui est autorisée. D'où le fait que j'ai pensé
que c'était important de vous le soumettre.
Le code que je vais vous collé plus bas peut être amélioré notamment
en le transformant en fonction qui va retourner le code html résultat
à la requête, mais il contient assurément tout ce qu'il faut pour au
moins exécuter la requête.
Si d'aventure vous voulez utiliser une telle fonctionnalité sans avoir
à installer quoi que ce soit hormis un petit script vbScript, ce code
peut être adéqoit.
Début du code vbScript
' envoi une requête http post en vbScript
' URL de la page à exécuter
url = "http://localhost/visuweb.net/test.php?test=bonjour";
' création d'un objet Inet
Set Inet1 = WScript.CreateObject("InetCtls.Inet.1")
' déclarations utiles
Dim s
Dim sURL
Dim strFormData
Dim StrQuery
' préparation de l'objet inet
' Inet1.Cancel
Inet1.Protocol = 2
' Post to the form'sReturn process page.
sURL = url
' les paramètres post
' séparés les uns des autres par des "&"
strFormData = "utilisateur=moi&password=azerty&code_candidat=1982"
' lancement
Inet1.Execute CStr(sURL), _
CStr("POST"), _
CStr(strFormData), _
CStr("Content-Type: application/x-www-form-urlencoded")
' traitement et renvoi du code html retourné
Dim vtData
Dim strData
Dim bDone: bDone=false
On Error Resume Next
WScript.Sleep 50
strData = vbNullString
Do While Inet1.StillExecuting
bDone = False
vtData = Inet1.GetChunk(1024, 0)
WScript.Sleep 50
Do While Not bDone
'
strData = strData & vtData
WScript.Sleep 50
'
' Get next chunk.
vtData = Inet1.GetChunk(1024, 0)
If Len(vtData) = 0 Then
bDone = True
End If
Loop
WScript.Sleep 50
Loop
' transfert de valeur
s = strData
' affichage du résultat dans un dialogue
MsgBox s
' libération
Set Inet1 = Nothing
Fin du code vbScript
Puisse cela être utile à quelqu'un !
Yannick Daniel Youalé
La programmation est une religion. Aimez-la, ou quittez-la.
mon site: www.visuweb.net <http://www.visuweb.net>
Progliste :
Pour se désinscrire de la liste :
mailto:progliste-requ...@ml.free.fr?subject=unsubscribe
Pour voir les archives de la liste :
http://www.mail-archive.com/progliste@ml.free.fr/
Je vous rappelle que les pièces jointe sont activés leur taille est limité à 2 MO
Pour accéder aux fichiers de la liste
http://outils.archive-host.com/partage.php?id=2Qar9Hy6ftzr
Ou en utilisant la nouvelle page de partage :
http://outils-n.archive-host.com/partage-fm0m7b947vglikp9Efpso94gt
Pour y ajouter des fichiers demandez-moi le ou sur la liste ou en privé, je
vous répondrez en privé.
