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

　　affecting the protocol.

　　Status-Code =

　　"100" ; Section 10.1.1: Continue

　　| "101" ; Section 10.1.2: Switching Protocols

　　| "200" ; Section 10.2.1: OK

　　| "201" ; Section 10.2.2: Created

　　| "202" ; Section 10.2.3: Accepted

　　| "203" ; Section 10.2.4: Non-Authoritative Information

　　| "204" ; Section 10.2.5: No Content

　　| "205" ; Section 10.2.6: Reset Content

　　| "206" ; Section 10.2.7: Partial Content

　　| "300" ; Section 10.3.1: Multiple Choices

　　| "301" ; Section 10.3.2: Moved Permanently

　　| "302" ; Section 10.3.3: Found

　　| "303" ; Section 10.3.4: See Other

　　| "304" ; Section 10.3.5: Not Modified

　　| "305" ; Section 10.3.6: Use Proxy

　　| "307" ; Section 10.3.8: Temporary Redirect

　　| "400" ; Section 10.4.1: Bad Request

　　| "401" ; Section 10.4.2: Unauthorized

　　| "402" ; Section 10.4.3: Payment Required

　　| "403" ; Section 10.4.4: Forbidden

　　| "404" ; Section 10.4.5: Not Found

　　| "405" ; Section 10.4.6: Method Not Allowed

　　| "406" ; Section 10.4.7: Not Acceptable

　　| "407" ; Section 10.4.8: Proxy Authentication Required

　　| "408" ; Section 10.4.9: Request Time-out

　　| "409" ; Section 10.4.10: Conflict

　　| "410" ; Section 10.4.11: Gone

　　| "411" ; Section 10.4.12: Length Required

　　| "412" ; Section 10.4.13: Precondition Failed

　　| "413" ; Section 10.4.14: Request Entity Too Large

　　| "414" ; Section 10.4.15: Request-URI Too Large

　　| "415" ; Section 10.4.16: Unsupported Media Type

　　| "416" ; Section 10.4.17: Requested range not satisfiable

　　| "417" ; Section 10.4.18: Expectation Failed

　　| "500" ; Section 10.5.1: Internal Server Error

　　| "501" ; Section 10.5.2: Not Implemented

　　| "502" ; Section 10.5.3: Bad Gateway

　　| "503" ; Section 10.5.4: Service Unavailable

　　| "504" ; Section 10.5.5: Gateway Time-out

　　| "505" ; Section 10.5.6: HTTP Version not supported

　　| extension-code

可知,如果连接成功,服务器返回的信息是 "HTTP/" + 代理版本 + "200" + 描述("Connection established")

　　所以我们只要判断返回的信息是否以"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

查看本文来源