16 lines
522 B
VB.net
16 lines
522 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", "http://rosettacode.org/robots.txt"
|
|
#If USE_PROXY Then
|
|
HttpReq.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "my_proxy:80"
|
|
#End If
|
|
HttpReq.SetTimeouts 1000, 1000, 1000, 1000
|
|
HttpReq.Send
|
|
Debug.Print HttpReq.ResponseText
|
|
End Sub
|