找回密码
 加入
搜索
查看: 18772|回复: 64

(V1.1新版本)时间精灵 TimeGhost 下载帖

[复制链接]
发表于 2016-10-4 12:49:29 | 显示全部楼层 |阅读模式
本帖最后由 alwaystick 于 2016-10-4 12:51 编辑

附件(EXE+源码)回复可见。
游客,如果您要查看本帖隐藏内容请回复

原帖链接:http://www.autoitx.com/thread-53493-1-1.html

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×

评分

参与人数 1金钱 +20 收起 理由
cashiba + 20

查看全部评分

发表于 2016-10-4 19:06:41 | 显示全部楼层
下面代码来自本论坛,感觉更简便,可靠.
#include-once
#include <Date.au3>
_Timecheck()
Func _Timecheck() ;时间校正        
;If Ping('www.baidu.com', 550) Or Ping ('www.163.com') Then 
Local $_Now_date, $year, $mon, $mday, $hour, $min, $sec 
$_Now_date = _GetSrv_Date()
If @error Then Return SetError(2, '', 0)
$year = StringRegExpReplace($_Now_date, '/.+, '')
$mon = StringRegExpReplace($_Now_date, '.+?/(\d{1,2})/.+', '\1')
$mday = StringRegExpReplace($_Now_date, '.+/(\d{1,2})\D.+', '\1')
$hour = StringRegExpReplace($_Now_date, '.+?(\d{1,2}):.+', '\1')
$min = StringRegExpReplace($_Now_date, '.+?:(\d{1,2}):.+', '\1')
$sec = StringRegExpReplace($_Now_date, '.+:', '')
_SetDate($mday, $mon, $year)
_SetTime($hour, $min, $sec)
ConsoleWrite($year & '\' & $mon & '\' & $mday & ' ' & $hour & ':' & $min & ':' & $sec & @CRLF)
Return 1
;EndIf
;Return SetError(1, '', 0)
EndFunc   ;==>_Timecheck
 
 
Func _GetSrv_Date()
        Local $_Srvlist[14] = ["time-nw.nist.gov", _
                        "time-a.nist.gov", _
                        "time-b.nist.gov", _
                        "time-a.timefreq.bldrdoc.gov", _
                        "time-b.timefreq.bldrdoc.gov", _
                        "time-c.timefreq.bldrdoc.gov", _
                        "utcnist.colorado.edu", _
                        "time.nist.gov", _
                        "nist1.datum.com", _
                        "nist1.dc.glassey.com", _
                        "nist1.ny.glassey.com", _
                        "nist1.sj.glassey.com", _
                        "nist1.aol-ca.truetime.com", _
                        "nist1.aol-va.truetime.com"]
        UDPStartup()
        Local $_Time_Srv
        For $x = 0 To UBound($_Srvlist) - 1
                $_Time_Srv = $_Srvlist[$x]
                Local $Socket = UDPOpen(TCPNameToIP($_Time_Srv), 123)
                If @error <> 0 Then ContinueLoop
                $Status = UDPSend($Socket, MakePacket())
                If $Status = 0 Then ContinueLoop
                Local $Data = "", $i = 0
                While $Data = ""
                        $i += 1
                        $Data = UDPRecv($Socket, 100)
                        If $i = 5 Then ContinueLoop (2)
                        Sleep(88)
                WEnd
                UDPCloseSocket($Socket)
                UDPShutdown()
                ExitLoop
        Next
        If $Data = "" Then Return SetError(1, '', '')
        $Data = UnsignedHexToDec(StringMid($Data, 83, 8))
        $Data = _DateTimeFormat(_DateAdd("s", $Data, "1900/01/01 08:00:00"), 0)
        Return $Data
EndFunc   ;==>_GetSrv_Date
 
Func MakePacket()
        Local $P, $D = "1b0e01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
        While $D
                $P &= Chr(Dec(StringLeft($D, 2)))
                $D = StringTrimLeft($D, 2)
        WEnd
        Return $P
EndFunc   ;==>MakePacket
 
Func UnsignedHexToDec($_Data)
        Return Dec(StringTrimRight($_Data, 1)) * 16 + Dec(StringRight($_Data, 1))
EndFunc   ;==>UnsignedHexToD
发表于 2016-10-4 13:24:17 | 显示全部楼层
看一下,学习一下。win10生效吗?
 楼主| 发表于 2016-10-4 14:03:48 | 显示全部楼层
回复 2# pchome2000
本软件的开发环境就是Win10。
发表于 2016-10-4 15:53:59 | 显示全部楼层
第一次看到的軟件
來學習一下並看看是甚麼功用^^
发表于 2016-10-4 17:17:54 | 显示全部楼层
本软件的开发环境就是Win10。
发表于 2016-10-4 19:01:15 | 显示全部楼层
  看看
发表于 2016-10-4 20:44:38 | 显示全部楼层
感谢楼主分享,学习了
 楼主| 发表于 2016-10-4 21:20:04 | 显示全部楼层
回复 7# Alam
是NTP协议校时吗?我的软件原理不是NTP协议,是正则提取时间。虽然我的方法的确有点麻烦,不过在有些采用防火墙的网络,能更好地穿透防火墙校时,毕竟一般防火墙不会封锁80端口。
发表于 2016-10-4 21:50:42 | 显示全部楼层
看起来不错的哟
发表于 2016-10-5 08:45:26 | 显示全部楼层
嗯.看起来还不错..
发表于 2016-10-5 09:28:40 | 显示全部楼层
感谢分享,收藏学习一下。
发表于 2016-10-6 11:44:45 | 显示全部楼层
支持,看看东西
发表于 2016-10-7 22:23:27 | 显示全部楼层
谢谢分享!!!!!!!!!!!!
发表于 2016-10-8 01:37:19 | 显示全部楼层
有什么用呢?系统自身就带这个功能吧?
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 06:39 , Processed in 0.080507 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表