Proxy authentification
Proxy authentification
Proxy authentification
Proxy authentification
Proxy authentification
Proxy authentification Proxy authentification Proxy authentification Proxy authentification Proxy authentification Proxy authentification Proxy authentification Proxy authentification
Proxy authentification Proxy authentification
Proxy authentification
Go Back  Xtreme Visual Basic Talk > > > Proxy authentification


Reply
 
Thread Tools Display Modes
  #1  
Old 10-07-2011, 03:49 AM
whistller whistller is offline
Newcomer
 
Join Date: Oct 2011
Posts: 6
Default Proxy authentification


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
Reply With Quote
  #2  
Old 10-10-2011, 03:14 PM
whistller whistller is offline
Newcomer
 
Join Date: Oct 2011
Posts: 6
Default

Finally I got something, what is wrong ?
Code:
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
Reply With Quote
  #3  
Old 10-11-2011, 10:37 AM
whistller whistller is offline
Newcomer
 
Join Date: Oct 2011
Posts: 6
Default

I can`t get this to work:
Code:
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:
Code:
http:// 1.1 ok
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off

Forum Jump

Advertisement:





Free Publications
The ASP.NET 2.0 Anthology
101 Essential Tips, Tricks & Hacks - Free 156 Page Preview. Learn the most practical features and best approaches for ASP.NET.
subscribe
Programmers Heaven C# School Book -Free 338 Page eBook
The Programmers Heaven C# School book covers the .NET framework and the C# language.
subscribe
Build Your Own ASP.NET 3.5 Web Site Using C# & VB, 3rd Edition - Free 219 Page Preview!
This comprehensive step-by-step guide will help get your database-driven ASP.NET web site up and running in no time..
subscribe
Proxy authentification
Proxy authentification
Proxy authentification Proxy authentification
Proxy authentification
Proxy authentification
Proxy authentification Proxy authentification Proxy authentification Proxy authentification Proxy authentification Proxy authentification Proxy authentification
Proxy authentification
Proxy authentification
 
Proxy authentification
Proxy authentification
 
-->