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

　　If ProxyType = 2 Then '@@@@@@@@@@@@@@@@@@@@@@@@HTTP1.1代理

　　If PStep = 1 Then '无用户名密码验证

　　If Form1.Check1.Value = 0 Then

　　HTTPHeader = "CONNECT " & Form1.Text5.Text & ":" & Form1.Text6.Text & _

　　" HTTP/1.1" & Chr(13) & Chr(10) & "Host: " & Form1.Text5.Text & ":" & Form1.Text6.Text & Chr(13) & Chr(10) & Chr(13) & Chr(10)

　　ConnStep = PStep + 1

　　Form1.Winsock1.SendData HTTPHeader

　　Exit Function

　　End If

　　If Form1.Check1.Value = 1 Then ' 有用户名密码验证

　　HTTPHeader = "CONNECT " & Form1.Text5.Text & ":" & Form1.Text6.Text & _

　　" HTTP/1.1" & Chr(13) & Chr(10) & "Host: " & Form1.Text5.Text & ":" & _

　　Form1.Text6.Text & Chr(13) & Chr(10) & "Authorization: Basic " & StrtoBase64(Form1.Text3.Text & _

　　":" & Form1.Text4.Text) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Proxy-Authorization: Basic " & _

　　StrtoBase64(Form1.Text3.Text & ":" & Form1.Text4.Text) & Chr(13) & Chr(10) & Chr(13) & Chr(10)

　　' 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

　　本文中提及的程序可在 枕善居 http://www.mndsoft.com/blog/blogview.asp?logID=494 下载

查看本文来源