Visual Basic Proxy

Every time that our PC connects itself to a server, it leaves its " digital " imprints in the logs of access. To less than not to use a PROXY; here is the list to create one of it :idea:
it's written in Visual Basic :p


Private Sub Command2_Click()
'close permanently and forcedly
'the connection
On Error Resume Next
Winsock1.Close
Winsock1.Listen
Winsock2.Close
Label1.Caption = 'DISCONNECTED'
End Sub

Private Sub Form_Load()
'I hardly open the program I put me in listening
Winsock1.Listen
End Sub

Private Sub Timer1_Timer()
'I verify the state of the connection
'and I visualize it
If Winsock1.State <> sckConnected Then
Label1.Caption = "DISCONNECTED"
Else
Label1.Caption = "Connected"
End If
End Sub

Private Sub Winsock1_ConnectionResquest
(ByVal BytesTotal As Long)
'When an application self comes I accept it
If Winsock1.State <> sckClosed Then
Winsock1.Close
Winsock1.Accept (request ID)
Label1.Caption = "Connected"
End Sub

Private Sub Winsock1_DataArrival (By Val bytestTotal As
Long)
'The browser has formulated the application: it begins
to work
Dim bufgfer As String
Winsock1.GetData Buffer, , bytesTotal
Text1.Text = buffer
DoEvents
If Winsock2.State <> sckClosed Then
Winsock2.Close
Winsock2.RemotePort = CDbl (Text2.Text)
Winsock2.RemoteHost = Text3.Text
On Error GoTo Error
Winsock2.Connect
Exit Sub
Error:
Msg Err.Description
Command2_Click
End Sub

Private Sub Winsock1_Error(byVal Number As Integer,
Description As String, ByVal Scode As Long, ByVal
Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'It comments by itself........
Winsock1.Close
Winsock1.Listen
Label1.Caption = "Disconnected"
End Sub

Private Sub Winsock1_SendComplete()
'finish the transmission you close the connections
On Error Resume next
Winsock1.Close
Winsock1.Listen
Label1.Caption = "Disconnected"
Winsock2.Close
End Sub

Private Sub Winsock2_connect()
'When the server responds you send the application
On Error GoTo error3
Dim buffer3 As String
buffer3 = Text1.Text
DoEvents
Winsock2.SendData (buffer3)
Exit Sub
error3:
MsgBox Err.Description
End Sub

Private Sub Winsock2_DataArrival (ByVal bytesTotal As Long)
'The server has responded: tell it the browser
On Error GoTo error2
Dim buffer2 As String
Winsock2.GetData buffer2, , bytesTotal
RichTextBoxl.Text = RichTextBowl.Text + buffer2
DoEvents
Winsock1.SendData ""
Winsock1.SendData RichTextBoxl.Text
Exit Sub
Error2:
MsgBox Err.Description
Command2_Click
End Sub

Private Sub Winscok2_error(ByVal Number as Integer,
Description As String, ByVal Scode As Long, ByVal
Source As String, By Val HelpFile As String, ByVal
HelpContext As Long, CancelDisplay As Boolean)
'Problems? you Close the socket!
Winsock2:Close
End Sub


If there's some trouble please make me know it....
if you like it please tell me...
I also attach the copy in. TXT :D