论坛 › 『 中文资料 』 › 简单获取网络日期时间

风行者 发表于 2010-6-18 16:48:18

简单获取网络日期时间

本帖最后由 风行者 于 2010-6-30 15:46 编辑

MsgBox(0,"",_Hdate())

Func _Hdate()
Local $oHTTP,$H_time,$str,$Date
Local $mon=
$oHTTP = ObjCreate("microsoft.xmlhttp")
$oHTTP.Open("get","http://v.time.org.cn/com/",false)
$oHTTP.setRequestHeader("ver", "1.2")
$oHTTP.Send()
$str = StringTrimLeft($oHTTP.getResponseHeader("Date"),4)
For $i = 1 To 12
$str = StringReplace($str,$mon[$i],$i)
Next
$str = StringSplit($str," ")
$H_time = StringLeft($str,2) + 8
If $H_time >=24 Then $H_time -= 24
$H_time &= StringTrimLeft($str,2)
$Date = $str&"-"&$str&"-"&$str&" "&$H_time
Return $Date
EndFunc

yejier1983 发表于 2010-6-18 19:18:59

新手，跟着学习学习

xunzhang22 发表于 2010-6-28 07:53:37

顶一下师傅的帖子，正在解决校对定时器

guowenfu 发表于 2010-6-28 09:43:46

好像不夠好。。截取目標網站地址，MS我改了北美地址，截取回來的還是北京時間。

风行者 发表于 2010-6-30 15:47:39

获取的是北京时间

afan 发表于 2010-6-30 18:22:14

本帖最后由 afan 于 2010-12-25 17:53 编辑

改个LZ的正则版，更新于 37# 顺便加了个星期X

风行者 发表于 2010-6-30 20:27:32

版主用正则很帅,学习了

nxlm 发表于 2010-7-15 20:53:57

这个不错..

Leeben 发表于 2010-8-14 17:27:28

支持了，辛苦辛苦

javarike 发表于 2010-8-14 18:25:54

{:face (197):}很好。。

UUpig 发表于 2010-8-31 14:01:30

收藏了 认真研究下

xiaomingong1234 发表于 2010-9-1 12:51:43

来支持一下，学习学习哈

benz1979 发表于 2010-9-2 22:23:01

支持分享心得，学习学习！

fengzr 发表于 2010-9-5 01:14:19

看看                              ok

t895073 发表于 2010-9-10 17:59:24

收藏了 研究下
支持一下，学习

查看完整版本: 简单获取网络日期时间