HTTP Request

VBA で HTTP 通信

■準備

' [ツール]-[参照設定]で「Microsoft WinHTTP Services, version 5.1 (C:\WINDOWS\system32\WINHTTP.dll)」にチェックを入れる

'HttpRequest SetCredentials flags.

Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0

■コード

Private Sub CommandButton1_Click()

Dim MyRequest As New WinHttpRequest

MyRequest.Open "GET", "http://www.yahoo.co.jp/"

'Set credentials 基本認証

' MyRequest.SetCredentials "USERNAME", "PASSWORD", _

' HTTPREQUEST_SETCREDENTIALS_FOR_SERVER

' Send Request.

MyRequest.Send

'And we get this response

Debug.Print MyRequest.ResponseText

End Sub

■tags

---

vba http 通信