游客

标题:VB 实现获得标准北京时间
正文:
主要是通过http://www.time.ac.cn/timeflash.asp?user=flash这个网站获得时间，获取到的源码是XML格式的，按理来说用Microsoft.XMLDOM来分析比较方便，不过俺对这个组件不太熟悉，还是直接用正则好了。呵呵~以下代码通过获取源码然后用正则提取出时、分、秒……等。边框 小边框 Private Function GetHtml(Url As String) Dim xmlHttp As Object Set xmlHttp = CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET", Url, True xmlHttp.send (Null) While xmlHttp.ReadyState <> 4 DoEvents Wend GetHtml = xmlHttp.responseTextEnd FunctionPrivate Function getTime() As Date Dim Regex As Object, ms As Object, m As Object Dim HTML As String HTML = GetHtml("http://www.time.ac.cn/timeflash.asp?user=flash") Set Regex = CreateObject("VBSCRIPT.REGEXP") Regex.IgnoreCase = True &nbsp
[<<][[1]][2][3][>>]

查看评论(0)
发表评论



首页