[VB6] Autenticazione proxy

[fradipa]

Vi mando il codice che sto cercando di far girare :

'WinHttpRequest proxy settings.
Const HTTPREQUEST_PROXYSETTING_DEFAULT = 0
Const HTTPREQUEST_PROXYSETTING_PRECONFIG = 0
Const HTTPREQUEST_PROXYSETTING_DIRECT = 1
Const HTTPREQUEST_PROXYSETTING_PROXY = 2
 
Private Sub Command1_Click()
 
Dim HttpReq As Object
 
    ' Create the WinHTTPRequest ActiveX Object.
    Set HttpReq = New WinHttpRequest
    
    ' Switch the mouse pointer to an hourglass while busy.
    MousePointer = vbHourglass
    
    'Set proxy settings.
    'HttpReq.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, _
     '   "proxy_server:80", "*.microsoft.com"
    
    ' Open an HTTP connection.
    HttpReq.Open "GET", "http://www.google.com", False
 
    ' Send the HTTP Request.
    HttpReq.Send
  
    ' Get all response text.
    Text1.Text = HttpReq.ResponseText
 
    ' Switch the mouse pointer back to default.
    MousePointer = vbDefault
 
 
 
End Sub

...INUTILE DIRVI CHE NON FUNZIONA