找回密码
 注册帐号
查看: 2476|回复: 5

教大家以GET的方法获取网络时间(WinHttp基础入门)

[复制链接]
发表于 2017-5-24 21:17:51 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册帐号

×
准备工具: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/ h

VB6.0代码

3.运行,看看效果!

效果图


WinHttp比XMLHTTP灵活性更高,可以通过构造协议头,来达到真实的访问效果!
当然WinHttp的应用还不仅仅这个简单!
/ c4 A0 J6 k$ P% L) g3 D
欢迎来到安全之家
悄悄告诉你善用本站的【 搜索 】功能,那里可能会有你要找的答案哦

0

主题

139

回帖

327

积分

筑基

发表于 2017-6-23 21:19:10 | 显示全部楼层
真心顶
欢迎来到安全之家
悄悄告诉你善用本站的【 搜索 】功能,那里可能会有你要找的答案哦
发表于 2017-6-23 21:45:46 | 显示全部楼层
说的非常好
欢迎来到安全之家
悄悄告诉你善用本站的【 搜索 】功能,那里可能会有你要找的答案哦

0

主题

156

回帖

366

积分

筑基

发表于 2017-6-23 22:10:45 | 显示全部楼层
难得一见的好帖
欢迎来到安全之家
悄悄告诉你善用本站的【 搜索 】功能,那里可能会有你要找的答案哦
您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

Archiver|sitemap|小黑屋|手机版原版|安全之家

GMT+8, 2025-4-16 07:42 , Processed in 0.043382 second(s), 7 queries , Gzip On, Redis On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表