VB6中使用Winsock穿越各种代理的实现

　　所以我们只要判断返回的信息是否以"http"开头,是否存在" 200 "字眼即可.

　　以下是关键函数的源代码:

　　Public Function ProxyStep(ProxyType As Integer, PStep As Integer)

　　Dim SendByte() As Byte

　　If ProxyType = 0 Then '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sock4代理

　　If PStep = 1 Then

　　ReDim SendByte(0 To 8) As Byte

　　SendByte(0) = 4 ' 04

　　SendByte(1) = 1 ' 01

　　SendByte(2) = Int(DestPort / 256)

　　SendByte(3) = DestPort Mod 256

　　SendByte(4) = GetIPByte(1, DestIP)

　　SendByte(5) = GetIPByte(2, DestIP)

　　SendByte(6) = GetIPByte(3, DestIP)

　　SendByte(7) = GetIPByte(4, DestIP)

　　SendByte(8) = 0 '最后要以 0 结束

　　Form1.Winsock1.SendData SendByte()

　　ConnStep = PStep + 1

　　Exit Function

　　End If

　　If PStep = 2 Then '代理回复，第二字节为 90 为成功，其余值为失败

　　If Asc(Mid(RevBuffer, 2, 1)) <> 90 Then

　　Debug.Print Asc(Mid(RevBuffer, 2, 1))

　　MsgBox "连接sock4代理失败!", 48, "错误"

　　Form1.Winsock1.Close

　　ConnStep = 0

　　Exit Function

　　Else

　　Form1.Label8.Caption = "连接目标服务器成功!"

　　ConnStep = -1

　　Form2.Show

　　Exit Function

　　End If

　　End If

　　End If