马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册帐号
×
准备工具:VB6.0,HttpWatch(网页数据分析工具) HttpWatch的安装方法就先不介绍了,百度上很多这样的教程。 - 打开IE浏览器,打开HttpWatch工具。登录百度官网。反馈回来的头文件如下:
( P! W# P2 l; K* F, P4 f0 I/ ?
/ F9 M$ \4 b6 t; [; p
HttpWatch截取的数据 2.复制下来头文件信息,打开VB6.0,首先:工程 -引用-Microsoft WinHTTP Services, version 5.1 建立一个Command1控件,复制以下代码到代码框中。 [mw_shl_code=actionscript3,true]Private Sub Command1_Click() '模拟GET
' b$ W1 ^# [$ q6 U- b. y4 ^Dim WinHttp As WinHttp.WinHttpRequest '声明一个对象
k2 k9 ]3 Q6 g# ?' H7 }7 KSet WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1"), J# ^* R! _% D. ^, U3 y
WinHttp.Open "GET", "http://www.baidu.com/", True
, @# K2 H; [8 P' O% ?WinHttp.SetTimeouts 30000, 30000, 30000, 30000 '设置超时时间
; ?/ X- t7 o1 W1 AWinHttp.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300 '忽略错误
' ?6 O' W1 d6 S'''''构造头文件
. {, _# T I7 @3 t# C4 m) ZWinHttp.SetRequestHeader "Host", "www.baidu.com"( y. z6 d; W! f2 J
WinHttp.SetRequestHeader "Connection", "Keep-Alive"3 y2 G3 S" O$ b2 D
WinHttp.SetRequestHeader "User-Agent", "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)"
0 v9 }( F% M, m! c" L; aWinHttp.SetRequestHeader "Accept", "text/html, application/xhtml+xml, */*"
+ C; w* k8 O) J/ b$ U+ e" pWinHttp.SetRequestHeader "Accept-Language", "zh-CN"
# b! M/ A8 Z* L# Y' N0 q* N$ @$ t& f9 fWinHttp.SetRequestHeader "Cookie", "BAIDUID=66DBD46A250716EA497857E0C132A685:FG=1; BIDUPSID=1443C9CE60AA9BBD903A0B923CE142C7; PSTM=1487160408; H_PS_PSSID=22164_1443_21108_17001_22037; BD_UPN=1124314351; BD_HOME=0"2 z% v k8 l1 D) @
''''''
# V- J% w& j0 q6 ]WinHttp.Send '发送
2 c: \+ \$ I" Q/ [* hWinHttp.WaitForResponse '异步发送
2 T2 K# s' e5 ]) ]( U6 a% kMe.Caption = CDate(1 / 3 + CDbl(CDate(Mid$(WinHttp.GetResponseHeader("Date"), 5, 21))))/ z4 ~5 O5 D0 k% X# A; |& ~
''''''获取反馈回来的DATE数据
; V0 a1 c& t2 [( o. }Set WinHttp = Nothing
+ N6 D! b" U+ N3 REnd Sub[/mw_shl_code]
4 f. P8 ]+ a$ M+ j/ hVB6.0代码 3.运行,看看效果! 效果图
WinHttp比XMLHTTP灵活性更高,可以通过构造协议头,来达到真实的访问效果! 当然WinHttp的应用还不仅仅这个简单! / c4 A0 J6 k$ P% L) g3 D
|