简单获取网络日期时间

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

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

MsgBox(0,"",_Hdate())

Func _Hdate()
Local $oHTTP,$H_time,$str,$Date
Local $mon[13]=[12,"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"]
$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[5],2) + 8
If $H_time >=24 Then $H_time -= 24
$H_time &= StringTrimLeft($str[5],2)
$Date = $str[4]&"-"&$str[3]&"-"&$str[2]&" "&$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

很好。。

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

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

		自动登录	找回密码
密码			加入

[原创] 简单获取网络日期时间

评分

评分