解説 HTTPにてGET及びPOSTを行う方法。レスポンスは下記サンプルではbufに格納される。 ソース Dim Http Dim buf As String Dim targetURI As String 'POSTサンプル targetURI = "http://sample.com/piyo.cgi" Set Http = CreateObject("MSXML2.XMLHTTP") Http.Open "POST", targetURI, False Http.send "piyo=hoge&hoge=piyo" buf = StrConv(Http.ResponseBody, vbUnicode) Set Http = Nothing 'GETサンプル targetURI = "http://sample.com/piyo.cgi?id=" & text_id & "&pw="