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

　　'' Chr(13) & Chr(10) 能否直接用vbCrLf ? 我不知道

　　Debug.Print HTTPHeader

　　ConnStep = PStep + 1

　　Form1.Winsock1.SendData HTTPHeader

　　Exit Function

　　End If

　　End If

　　If PStep = 2 Then ''代理服务器回复，格式：HTTP/[代理版本] [状态代码] [状态说明]

　　If LCase(Left(RevBuffer, 4)) = "http" And Mid(" 200 ", 1) <> 0 Then ''状态代码为 200 为成功

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

　　Form2.Show

　　ConnStep = -1

　　Else

　　MsgBox "HTTP1.1代理连接目标服务器失败!", 48, "错误"

　　ConnStep = 0

　　Form1.Winsock1.Close

　　Exit Function

　　End If

　　End If

　　End If

　　End Function