VB6中使用Winsock穿越各种代理的实现(TCP协议)

   |VER | REP |  RSV  | ATYP | BND.ADDR | BND.PORT |
        +----+-----+-------+------+----------+----------+
        | 1  |  1  | X''''00'''' |  1   | Variable |    2     |
        +----+-----+-------+------+----------+----------+

     Where:

          o  VER    protocol version: X''''05''''          ------------ 固定 05
          o  REP    Reply field:
             o  X''''00'''' succeeded                      ------------ 若为 00 成功 其余可以都看成失败
             o  X''''01'''' general SOCKS server failure
             o  X''''02'''' connection not allowed by ruleset
             o  X''''03'''' Network unreachable
             o  X''''04'''' Host unreachable
             o  X''''05'''' Connection refused
             o  X''''06'''' TTL expired
             o  X''''07'''' Command not supported
             o  X''''08'''' Address type not supported
             o  X''''09'''' to X''''FF'''' unassigned
          o  RSV    RESERVED
          o  ATYP   address type of following address

             o  IP V4 address: X''''01''''
             o  DOMAINNAME: X''''03''''
             o  IP V6 address: X''''04''''
          o  BND.ADDR       server bound address
   &n