読者です 読者をやめる 読者になる 読者になる

Fight the Future

何かを始めたら、半分成功したのと同じ

XmlHttpRequestを送る

VBEでツール→参照設定でMicrosoft XMLを追加しておく。

Dim req As MSXML2.XMLHTTP50
Set req = New XMLHTTP50

'GETの場合
'第3引数はリクエストとマクロの同期をとるか
'Trueは同期しない
'Falseは同期する
Call req.Open("GET", "http://", False)
'POSTの場合
Call req.Open("POST", "http://", False)
Call req.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")

'リクエスト送信
'引数はパラメータ(名前=値&名前=値...の形式)
Call req.send("a=b&c=d")

'レスポンスの内容がXMLのときにXMLを取得
req.responseXML.XML

'レスポンスの内容をテキストで取得
req.responseText