En gros, si j'ai bien compris tu as besoin d'appeller une URL avec certains paramètres sans passer par le navigateur !
Essaye d'ajouter le control inet : inet transfer control (microsoft internet transfer controls)
pour le faire c'est dans le menu projet, composant ...
ajoute le control sur ton formulaire et
ensuite fais quelque chose du genre
inet1.Execute "http://www.tondomaine/ta_page.asp", "POST", "TEST=TEST"
ou
inet1.Execute "http://www.tondomaine/ta_page.asp", "POST", "TEST=TEST", "Content-Type: application/x-www-form-urlencoded"
Sinon tu peux essayer ce code si ça peut marcher
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Utilise l'objet XMLHTTP
Private Sub Send_HTTP_REquest
Dim Donnees As String
Dim objXML As Object
'tes paramètres ici
Donnees = "nom=jean Dupont=Hello World"
Donnees = replace(Donnees," ", "+")
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.Open("POST", "http://www.tondomaine/ta_page.asp", false)
objXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXML.send Donnees
End Sub |
ou lire cet article si ça peut aider
Partager