设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › vb Winsock 做的Post 例子

vb Winsock 做的Post 例子

[复制链接]
查看11 | 回复0 | 2008-1-1 13:23:49 | 显示全部楼层 |阅读模式
On Error GoTo ErrConnect
strCommand = "GET " & URL & " HTTP/1.1" & vbCrLf
strCommand = strCommand & "Accept: */*" & vbCrLf
strCommand = strCommand & "Referer: http://www.loveq.cn/program/" & vbCrLf
strCommand = strCommand & "Accept -Language: zh -cn" & vbCrLf
strCommand = strCommand & "Accept -Encoding: gzip , deflate" & vbCrLf
strCommand = strCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322; .NET CLR 2.0.50727)" & vbCrLf
strCommand = strCommand & "Host: www.xxx.cn" & vbCrLf
strCommand = strCommand & "Connection: Keep -Alive" & vbCrLf
strCommand = strCommand & "Cookie:" & WebBrowser1.Document.Cookie & vbCrLf & vbCrLf
rURL = ""
Winsock1.ConnectErrConnect:
If Err.Number = 91 Then
Winsock1.Close
End
End If
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行