VBからPOSTするには？
解決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
どなたか教えてください。
HttpRequest.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
やったー。できました。魔界の仮面弁士様，ご教示ありがとうございました。実は元のソースも2003/09/01に魔界の仮面弁士様がレスされたものを引用させていただいていました。長きにわたりプログラミング技術の発展に尽力されておられます魔界の仮面弁士様の今後のご活躍をお祈りいたします。ありがとうございました。
| ツイート |  |