http://forums.egullet.org/ ana arama çubuğunda basit bir posta isteği yapmaya çalışıyorum. (Bu bir örnektir, ancak çok fazla çalışacak bir araç oluşturmaya çalışıyorum.)VBA HTTP İletim İsteğinde Geçiş Parametreleri
Sorun şu ki, parametrelerin yapılandırılması/yerleştirilmesi için doğru yolu anlayamıyorum. sunucu isteğimi işler. (Bir yanıt alıyorum, ama sadece bir tarayıcıda arama yaptığımda elde ettiğim sonuçtan ziyade, aramayı tekrar denememi isteyen bir sayfa. Argüman dizgisi ateş böceğinin dışına doğru çekildi. doğru olduğuna emin olduğumu, doğru yere yerleştirmediğimi/yapmam gerektiğini/yapmam gereken her şeyi söylediğimi, ama neyi değiştireceğimi bilmediğim izlenimini edindim. çok daha hızlı Yardımlarınız için/daha güvenilir. Teşekkür çünkü bu bir internet gezgini nesnenin DOM düzenleyerek çalışma ama XMLHTTP geçmek için çalışıyorum!
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