- 264 名前：デフォルトの名無しさん mailto:sage [2011/12/17(土) 04:19:21.00 ]
- >>261
ネットのやりとりはいろんな方法がある
たぶん、こんな感じで行けると思う
Set oHttp = CreateObject("MSXML2.XMLHTTP")
oHttp.Open "GET", "www.aaa.bbb/hoge.cgi", False
oHttp.SetRequestHeader "Accept-Language", "ja"
oHttp.SetRequestHeader "Accept-Encoding", "gzip
oHttp.SetRequestHeader "User-Agent", "hoge(1.1.1)"
oHttp.Send ' リクエスト送信
istatus = oHttp.Status ' 結果確認
If istatus = 200 Then s = oHttp.responseText ' 本文(HTMLソース)取得
