VBからPOSTするには？

解決

素人さん 2006-02-16 03:03:27 No: 130267

EXCEL VB から JPNIC の whois を利用したいのですがうまくいきません。
GET はうまくいくので，POSTのやり方，相手サイトとの相性の問題かもしれません。
Sub test2()
Dim HttpRequest As Object
Set HttpRequest = CreateObject("MSXML2.XMLHTTP.3.0")
HttpRequest.Open "POST", "http://whois.nic.ad.jp/cgi-bin/whois_gw/", False
HttpRequest.Send "codecheck-sjis=%82%C9%82%D9%82%F1%82%CB%82%C1%82%C6%82%ED%81%5B%82%AD%82%A2%82%F1%82%D3%82%A7%82%DF%81%5B%82%B5%82%E5%82%F1%82%B9%82%F1%82%BD%81%5B&key=219.118.171.113&type=&rule="
Dim S As String
S = HttpRequest.responseText
MsgBox S
End Sub
どなたか教えてください。

魔界の仮面弁士 2006-02-16 04:41:15 No: 130268

HttpRequest.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

素人さん 2006-02-16 16:55:17 No: 130269

やったー。できました。魔界の仮面弁士様，ご教示ありがとうございました。実は元のソースも2003/09/01に魔界の仮面弁士様がレスされたものを引用させていただいていました。長きにわたりプログラミング技術の発展に尽力されておられます魔界の仮面弁士様の今後のご活躍をお祈りいたします。ありがとうございました。