16 lines
583 B
VB.net
16 lines
583 B
VB.net
Sub Main()
|
|
Dim HttpReq As WinHttp.WinHttpRequest
|
|
' in the "references" dialog of the IDE, check
|
|
' "Microsoft WinHTTP Services, version 5.1" (winhttp.dll)
|
|
Const HTTPREQUEST_PROXYSETTING_PROXY As Long = 2
|
|
#Const USE_PROXY = 1
|
|
Set HttpReq = New WinHttp.WinHttpRequest
|
|
HttpReq.Open "GET", "https://www.abc.com/xyz/index.html"
|
|
HttpReq.SetCredentials "<username>", "<password>", 0&
|
|
#If USE_PROXY Then
|
|
HttpReq.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "10.167.1.1:80"
|
|
#End If
|
|
HttpReq.SetTimeouts 1000, 1000, 1000, 1000
|
|
HttpReq.Send
|
|
Debug.Print HttpReq.ResponseText
|
|
End Sub
|