Visual Basic Code , VB.NET Code, VB Code
  Home   :  Code   :  Forums   :  Submit   :  Mailing List   :  About   :  Contact


Proxy authentification


Proxy authentification

Author
Message
whistler
whistler
Forum God
Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)

Group: Forum Members
Posts: 6, Visits: 7
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
whistler
whistler
Forum God
Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)

Group: Forum Members
Posts: 6, Visits: 7
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



whistler
whistler
Forum God
Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)Forum God (2.9K reputation)

Group: Forum Members
Posts: 6, Visits: 7
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


silverfunk
silverfunk
Forum God
Forum God (766 reputation)Forum God (766 reputation)Forum God (766 reputation)Forum God (766 reputation)Forum God (766 reputation)Forum God (766 reputation)Forum God (766 reputation)Forum God (766 reputation)Forum God (766 reputation)

Group: Forum Members
Posts: 2, Visits: 5
gudluck bro!!! im waiting for that!


GO


Similar Topics


Reading This Topic


Login
Existing Account
Email Address:


Password:


Social Logins

Select a Forum....

















A1VBCode Forums


Search