vb6编写代理服务器

'工程说明
  '程序中有三个WINSOCK对像
  'SERVER是一个监听对像,监听被代理(即ID)是的请求,如果IE发来请求,则打开一个
  'Winsock2对像,接受联接,并继续监听
  'Winsock2对像,用来联接客户端,如果对方传来请求消息,则经过判断,用相应的
  '       Winsock3与要请求的服务器进行接接
  'Winsock3对像,用来联接服务端,如果发来消息,传给相应的Winsock2,让其传给客
  '       户端
  '
   
   
  Private Sub Command1_Click()
  '打或是关闭服务
  If Command1.Caption = "停止" Then
          SERVER.Close
          Command1.Caption = "开始"
  Else
          Form_Load
          Command1.Caption = "停止"
  End If
  End Sub
   
  Private Sub Form_Load()
  '窗体启动时,打开Server,定议监听端口,开始监听
  SERVER.LocalPort = 810
  SERVER.Listen
  End Sub
   
  Private Sub Server_ConnectionRequest(ByVal requestID As Long)
  '如果客户传来请求,先判断是不是有空闲的Winsock2如果有使用它,无则新建一个
  On Error Resume Ne