Member Avatar for alone882

Hi,

I have created web browser that surf to the internet through proxy and now I need to create a browser that surf to internet via proxy authentication server (server required enter username and password) and I dont know how to begin program... :/

Maybe something has a small example ?

Pls, help

  • 1 Contributor
  • 2 Replies
  • 707 Views
  • 4 Days Discussion Span
  • Latest Post Latest Post by alone882
Member Avatar for alone882

Finally I got something, what is wrong ?

Private Sub Command6_Click()
Dim header As String
Inet1.UserName = username
Inet1.Password = password
Inet1.Proxy = "192.168.120.120:17890"
Inet1.AccessType = icNamedProxy

header = "Proxy-Authorization: Basic " & Inet1.UserName & ":" & Inet1.Password

Inet1.Execute , "GET", , header, Combo1
Inet1.Execute "192.168.120.120:17890", "GET", header
Text1.Text = Inet1.OpenURL("http://www.google.com")
WebBrowser1.Navigate Inet1.OpenURL("http://www.microsoft.com")

End Sub
Member Avatar for alone882

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
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.