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 <0Then
MsgBox( 4096, "软件过期", "请向作者购买新的激活码" )
Exit
EndIf


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

;根据   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 http://www.autoitx.com/images/common/back.gif

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

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

很不错！谢谢楼主分享！

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

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

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

{:face (84):}收藏嘞..支持下~~

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

支持一下，学习

mlrw923 发表于 2011-6-11 05:34:47

挺好的代码~~~
页: 1 2 3 [4] 5 6
查看完整版本: 简单获取网络日期时间