简单获取网络日期时间

731106

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

twomax

正好在找同步對時的方法

zysanjing

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

ynkmdcs

新手学习学习

万能群发器售

回复 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

这个不是很好啊。

dyd

这个不错..

cocoazhang

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

ssjoe

研究下，谢谢分享

boyhong

回复  风行者

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

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

eymou

很不错！谢谢楼主分享！

angelalek

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

zengshihao1988

收藏嘞..支持下~~

linzi

支持一下，学习

mlrw923

挺好的代码~~~