I can`t get this to work:
Private Sub Command6_Click()
Dim header As String, Response As String
Dim temp() As String
Inet1.protocol = icHTTP
Inet1.Proxy = "87.237.126.50:2448"
Inet1.UserName = "userr"
Inet1.Password = "pass"
Inet1.URL = "http://whatismyipaddress.com/"
header = "Proxy-Authorization: Basic " & Inet1.UserName & ":" & Inet1.Password
Me.Caption = "Authenticating " & Inet1.URL & "...."
Inet1.Execute , "GET", , header
If Inet1.StillExecuting = False Then Exit Sub
Do
DoEvents
Loop Until Inet1.StillExecuting = False
Response = Inet1.GetHeader
temp = Split(Response, vbNewLine)
Me.Caption = "PROXY AUTHENTICATION USING INET CONTROL"
MsgBox temp(0)
Text1.Text = Inet1.OpenURL("http://whatismyipaddress.com/")
End Sub
I enter to website, however IP adress wont change. when authorizing with proxy server it said:
http:// 1.1 ok
|