Passer des Paramètres en VBA Requête HTTP Post

Je suis en train de faire une simple requête post sur le principal barre de recherche de http://forums.egullet.org/. (C'est un exemple, mais je suis en train de construire un outil qui permettra de travailler avec de nombreux.)

Le problème est que je n'arrive pas à trouver la bonne façon à la structure et à la place des paramètres tels que le serveur traite ma demande. (Je ne reçois pas une réponse, mais c'est juste une page me demandant d'essayer à nouveau la recherche, plutôt que le résultat que j'obtiens lorsque je fais la recherche dans un navigateur. La chaîne de l'argument a été tiré tout droit sorti de firebug, donc je suis assez sûr que c'est correct. J'ai juste l'impression que je ne suis pas le mettre à la bonne place/structurer correctement/en disant tout ce que j'ai besoin, mais je ne sais pas quoi changer. Il est intéressant de noter que j'avais déjà fait ce travail en modifiant le DOM d'un objet internet explorer, mais je suis en train de passer à XMLHTTP parce qu'il est beaucoup plus rapide/plus fiable. Merci pour votre aide!

Sub httpPost()
Dim XMLHTTP
Dim result As String
Dim argumentString
argumentString = "?search_term=eggs&search_app=forums"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
XMLHTTP.Open "POST", _
    "http://forums.egullet.org/index.php?app=core&module=search&do=search&fromMainBar=1", False
XMLHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
XMLHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
XMLHTTP.send argumentString
result = XMLHTTP.responsetext
Set XMLHTTP = Nothing
End Sub

OriginalL'auteur ebrts | 2013-08-07

  1. 5

    Je pense que vous avez besoin d'une esperluette où vous avez un point d'interrogation

    argumentString = "&search_term=eggs&search_app=forums"

    OriginalL'auteur Dick Kusleika

  2. 0

    Pour le rendre plus concis et obtenir le titre de la page cible:

    Sub httpPost()
    Dim http As New XMLHTTP60, html As New HTMLDocument
    Dim post As Object, argstr As String

    argstr = "type=all&q=eggs"

    With http
        .Open "POST", "https://forums.egullet.org/search/?", False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.115 Safari/537.36"
        .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
        .send argstr
        html.body.innerHTML = .responseText
    End With

    For Each post In html.getElementsByClassName("ipsStreamItem_title")
        With post.getElementsByTagName("a")
            If .Length Then Row = Row + 1: Cells(Row, 1) = .Item(0).innerText
        End With
    Next post
End Sub

    OriginalL'auteur SIM