|
|
|
|
|
|
|
Author Rank :
|
|
|
Page Views :
|
67656
|
|
Downloads :
|
1934
|
|
Rating :
|
Rate it
|
|
Level :
|
Beginner
|
|
|
|
|
Download
Files:
|
|
|
|
|
|
|
|
|
|
|
Introduction
Web Proxy Server is HTTP proxy server written in VB.NET. It is Multithreaded so many clients can access the web through this WebProxy Server.
Technology Used
System.NET, System.IO ,System.Threading and VB.NET
About the sample
This sample is a console application which acts as a multithreaded WebProxy server.If you want to use any specific port to Listen then use that as a command line parameter other wise default 8089 port is used. It is multithreade Proxy Server that means multiple clients can communicate with Proxy server. Good luck and Enjoy VB.NET
Imports System ' Imports System.Net Imports System.Net.Sockets Imports System.Text Imports System.IO Imports System.Threading Namespace WebProxy2 Class WebProxy2 Private clientSocket As Socket Private read() As [Byte] = New Byte(1024) {} Private Buffer As [Byte]() = Nothing Private ASCII As Encoding = Encoding.ASCII Private HTTP_VERSION As String = "HTTP/1.0" Private CRLF As String = ControlChars.Cr + ControlChars.Lf Private RecvBytes(4096) As [Byte] Public Sub New(ByVal socket As Socket) Me.clientSocket = socket End Sub 'New Public Sub run() Dim clientmessage As [String] = " " Dim sURL As [String] = " " Dim bytes As Integer = readmessage(read, clientSocket, clientmessage) If bytes = 0 Then Return End If Dim index1 As Integer = clientmessage.IndexOf(" "c) Dim index2 As Integer = clientmessage.IndexOf(" "c, index1 + 1) If index1 = -1 Or index2 = -1 Then Throw New IOException End If Console.WriteLine("Connecting to Site: {0}", clientmessage.Substring(index1 + 1, index2 - index1)) Console.WriteLine("Connection from {0}", clientSocket.RemoteEndPoint) Dim part1 As String = clientmessage.Substring(index1 + 1, index2 - index1) Dim index3 As Integer = part1.IndexOf("/"c, index1 + 8) Dim index4 As Integer = part1.IndexOf(" "c, index1 + 8) Dim index5 As Integer = index4 - index3 sURL = part1.Substring(index1 + 4, part1.Length - index5 - 8) Try Dim IPHost As IPHostEntry = Dns.Resolve(sURL) Console.WriteLine("Request resolved: ", IPHost.HostName) Dim aliases As String() = IPHost.Aliases Dim address As IPAddress() = IPHost.AddressList Console.WriteLine(address(0)) Dim sEndpoint As New IPEndPoint(address(0), 80) Dim IPsocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) IPsocket.Connect(sEndpoint) If IPsocket.Connected Then Console.WriteLine("Socket connect OK") End If Dim [GET] As String = clientmessage Dim ByteGet As [Byte]() = ASCII.GetBytes([GET]) IPsocket.Send(ByteGet, ByteGet.Length, 0) Dim rBytes As Int32 = IPsocket.Receive(RecvBytes, RecvBytes.Length, 0)Console.WriteLine("Recieved {0}", +rBytes) 'Buffer = RecvBytes; Dim strRetPage As [String] = Nothing strRetPage = strRetPage + ASCII.GetString(RecvBytes, 0, rBytes) While rBytes > 0 rBytes = IPsocket.Receive(RecvBytes, RecvBytes.Length, 0) strRetPage = strRetPage + ASCII.GetString(RecvBytes, 0, rBytes) End While IPsocket.Shutdown(SocketShutdown.Both) IPsocket.Close() sendmessage(clientSocket, strRetPage) Catch exc2 As Exception Console.WriteLine(exc2.ToString()) End Try End Sub 'run Private Function readmessage(ByVal ByteArray() As Byte, ByRef s As Socket, ByRef clientmessage As [String]) As Integer Dim bytes As Integer = s.Receive(ByteArray, 1024, 0) Dim messagefromclient As String = Encoding.ASCII.GetString(ByteArray)clientmessage = CType(messagefromclient, [String]) Return bytes End Function 'readmessage Private Sub sendmessage(ByVal s As Socket, ByVal message As String) Buffer = New [Byte](message.Length + 1) {} Dim length As Integer = ASCII.GetBytes(message, 0, message.Length, Buffer, 0)s.Send(Buffer, length, 0) End Sub 'sendmessage 'Entry point which delegates to C-style main Private Function Public Overloads Shared Sub Main() Main(System.Environment.GetCommandLineArgs()) End Sub Overloads Shared Sub Main(ByVal args() As String) Const port As Integer = 8889 Dim tcplistener As New TcpListener(port) Console.WriteLine("Listening on port {0}", +port) tcplistener.Start() While True Dim socket As Socket = tcplistener.AcceptSocket() Dim webproxy As New WebProxy2(socket) Dim thread As New Thread(New ThreadStart(webproxy.run)) thread.Start() End While End Sub 'Main End Class 'WebProxy2 End Namespace 'WebProxy2
|
|
Comment Request!
Thank you for reading this post. Please post your feedback, question, or comments about this post
Here.
|
|
|
|
|
Login
to add your contents and source code to this article
|
|
|
|
|
|
|
|
|
|
|
|
Pramod Singh
Pramod is working with ConcretioIndia Pvt Ltd, Nagpur Maharashtra India. He is MCP in VB6 desktop,VB6 distributed,SQL Server 7.0. He has been working with Microsoft Technologies since 1995.
|
|
|
|
|
|
|
|
|
C# Consulting is founded in 2002 by the founders of C# Corner. Unlike a traditional
consulting company, our consultants are well-known experts in .NET and many of them
are MVPs, authors, and trainers. We specialize in Microsoft .NET development and
utilize Agile Development and Extreme Programming practices to provide fast pace
quick turnaround results. Our software development model is a mix of Agile Development,
traditional SDLC, and Waterfall models.
|
|
Click here to learn more about C# Consulting. |
|
|
|
|
|
|
|
Introducing MaxV - one click. infinite control. Hyper-V Hosting from MaximumASP.
Finally – a virtual platform that delivers next-generation Windows Server 2008 Hyper-V virtualization technology from a managed hosting partner you can truly depend on. Visit www.maximumasp.com/max for a FREE 30 day trial. Hurry offer ends soon.
Climb aboard the MaxV platform and take advantage of High Availability, Intelligent Monitoring, Recurrent Backups, and Scalability – with no hassle or hidden fees.
As a managed hosting partner focused solely on Microsoft technologies since 2000, MaximumASP is uniquely qualified to provide the superior support that our business is built on. Unparalleled expertise with Microsoft technologies lead to working directly with Microsoft as first to offer IIS 7 and SQL 2008 betas in a hosted environment; partnering in the Go Live Program for Hyper-V; and product co-launches built on WS 2008 with Hyper-V technology.
|
Dynamic PDF
ceTE software specializes in components for dynamic PDF generation and manipulation. The DynamicPDF™ product line allows you to dynamically generate PDF documents, merge PDF documents and new content to existing PDF documents from within your applications.
|
Nevron Chart for .NET 2010.1 Now Available
The leading .NET charting control now features PDF, Flash and Silverlight export, visualization of large datasets and more. Deliver true charting functionality to your BI, Scorecard, Presentation or Scientific apps. Download evaluation now.
|
ASP.NET 4 Hosting
Get 2 Months Free of ASP.NET Hosting for Only $4.95/month! Receive FREE MS SQL and MySQL Databases Including ASP.NET 4/3.5, MVC 3.0, Silverlight 4, Windows 2008/IIS 7.0 Plus FREE IIS 7 Modules. Host UNLIMITED ASP.NET Web Sites – Click Here!
|
|
|
|
|
|
|
|
|
|
|
|
|