Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]一个简单的网络北京时间API


  共有82759人关注过本帖树形打印复制链接

主题：[分享]一个简单的网络北京时间API
帅哥哟，离线，有人找我吗？
lihe60
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6806 积分：43043 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2014/11/3 8:10:00 [显示全部帖子]

牛
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6806 积分：43043 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2014/11/3 9:20:00 [显示全部帖子]

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://foxtable.sinaapp.com/time/")   '=后面的日期时间格式,可以尝试各种设置
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim data As String = web.Document.Body.InnerText
MsgBox(data)

 

反复执行这个代码，结果好像不变的。
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6806 积分：43043 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2014/11/3 9:32:00 [显示全部帖子]

以下是引用lsy在2014-11-3 9:30:00的发言：

当然不会变，年月星期，还能一秒一秒的变？

秒应该变的，但实际没有变。
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6806 积分：43043 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2014/11/3 10:11:00 [显示全部帖子]

以下是引用lsy在2014-11-3 10:06:00的发言：

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://foxtable.sinaapp.com/time/?f=Y-m-d H:i:s")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim data As String = web.Document.Body.InnerText
MsgBox(data)
web.Refresh

OK
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6806 积分：43043 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2014/11/3 10:13:00 [显示全部帖子]

这个比服务器时间还准。
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6806 积分：43043 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2014/11/3 12:00:00 [显示全部帖子]

Dim url As String = "http://foxtable.sinaapp.com/time/?f=Y-m-d H:i:s"
'方法一 （感谢版主lsy提供）
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate(url)
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
web.Refresh
Dim data As String = web.Document.Body.InnerText
Output.Show(data)
'方法二（这个貌似更时时一点）
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
stm.Dispose()
Output.Show(str)

[此贴子已经被作者于2014-11-3 10:30:01编辑过]
可以注释一下每行的意思吗？

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6806 积分：43043 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2014/11/3 13:22:00 [显示全部帖子]

以下是引用飞飞在2014-11-3 13:04:00的发言：

知其然，不必知其所以然

结果是硬道理。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询