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 通信