用VB制作简易的代理服务器代码

•  
• Private Sub Form_Load()
  Winsock1(0).Listen
  For i = 1 To 255
  Load Winsock1(i)
  Load Winsock2(i)
  Winsock1(i).Close
  Next
  End Sub
•  
• Private Sub Form_Unload(Cancel As Integer)
  Winsock1(0).Close
  Unload Me
  End Sub
•  
• Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
  For i = 1 To 255
  If Winsock1(i).State = sckClosed Then
  Winsock1(i).Accept requestID
  Exit For
  End If
  Next
  End Sub
•  
• Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  'On Error GoTo OnError
  Dim Dat As String
  Winsock1(Index).GetData Dat
  Dim ProxyTmp
  Dim ProxyFile() As Byte
  ProxyTmp = Split(Dat, " ")
  Dim UrlTemp
  Dim UrlW As String
  UrlTemp = Split(ProxyTmp(1), "/")
  i = 0
• UrlW = UrlTemp(2)
  Winsock2(Index).Close