简单获取网络日期时间

fhefh · 发表于 2011-3-17 13:49:37

认真学习他谢谢

731106 · 发表于 2011-3-20 10:11:32

好东西啊,正在学习中,谢谢发布

twomax · 发表于 2011-3-30 21:01:32

正好在找同步對時的方法

zysanjing · 发表于 2011-3-30 22:19:49

http://www.autoitx.com/?fromuid=7655462更多资料查看这里~

ynkmdcs · 发表于 2011-4-11 19:17:11

新手学习学习

万能群发器售 · 发表于 2011-4-12 06:33:36

回复 1# 风行者

;简单的取网络时间判断软件是否过期

#include <Date.au3>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$ShiYongShiJianXianZhi="1";有效期1天
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$JiSuanShiFouDaoQi = _DateDiff( 'd',_Hdate()&" 00:00:00",_NowCalc())

If $JiSuanShiFouDaoQi >$ShiYongShiJianXianZhi Or $JiSuanShiFouDaoQi <0 Then
MsgBox( 4096, "软件过期", "请向作者购买新的激活码" )
Exit
EndIf

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

;根据 http://www.autoitx.com/forum.php?mod=viewthread&tid=16328 修改
;

pingfan5888 · 发表于 2011-4-12 17:59:26

这个不是很好啊。

dyd · 发表于 2011-5-8 10:30:03

这个不错..

cocoazhang · 发表于 2011-5-9 22:58:29

新手学习了~~~~~~~~~~

ssjoe · 发表于 2011-5-13 17:41:41

研究下，谢谢分享

boyhong · 发表于 2011-5-14 10:28:17

回复风行者

发现一个小问题，一直弄不明白，
问题：先运行一下你的脚本，显示出时间了，显示：（2 ...
qq123123 发表于 2011-1-9 22:55

我也发现这个问题，原因可能在那台时间服务器上。。。。我也想弄明白究竟是怎么一回事

eymou · 发表于 2011-5-15 17:28:36

很不错！谢谢楼主分享！

angelalek · 发表于 2011-5-17 08:15:56

不知道是不是后台的学习下

zengshihao1988 · 发表于 2011-5-17 08:50:21

收藏嘞..支持下~~

linzi · 发表于 2011-5-20 17:55:38

支持一下，学习

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

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