找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 【已解决，谢谢】简洁的时间校正代码，XP下非常完美，为 ...
返回列表 发新帖
查看: 4252|回复: 6

[AU3基础] 【已解决，谢谢】简洁的时间校正代码，XP下非常完美，为什么在Win7严重错误

 火 [复制链接]
lxsh010
发表于 2012-2-21 00:10:06 | 显示全部楼层 |阅读模式
本帖最后由 lxsh010 于 2012-2-21 00:49 编辑

一段非常简洁好用的时间校准代码，来自ACN。在XP下测试非常完美。


可为什么在Win7下测试，竟是严重错误：

提示：错误的数组或数组超过界限。


这是怎么回事呢？恳求高手给予帮忙，指正。不胜感激！！！
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <Date.au3>

_Timecheck()
Exit


Func _Timecheck() ;时间校正
        If Ping('www.baidu.com', 550) Then
                $_Now_date = _GetSrv_Date()
                $_Now_Splt = StringSplit($_Now_date, " ")
                $NowData = StringSplit($_Now_Splt[1], "-")
                $NowTime = StringSplit($_Now_Splt[2], ":")
                _SetDate($NowData[3], $NowData[2], $NowData[1])
                _SetTime($NowTime[1], $NowTime[2], $NowTime[3])
                MsgBox(64, "电脑时间校准", "" & @CR & "   -------时间校准完成！-------" _
                                 & @CR & @CR & " 现在您的电脑时间已经和北京时间同步!    " & @CR & @CR & "   TIME NOW：" & $_Now_date, 30, "")
        Else
                MsgBox(16, "出错啦", "网络已断开，连接服务器失败！请保持联网状态，再进行时间校准。 ", 5,"")
        EndIf
EndFunc   ;==>_Timecheck

Func _GetSrv_Date()
        Global $_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()
        Global $_Time_Srv
        For $TimcheckX = 0 To UBound($_Srvlist) - 1
                $_Time_Srv = $_Srvlist[$TimcheckX]
                Global $Socket = UDPOpen(TCPNameToIP($_Time_Srv), 123)
                If @error <> 0 Then ContinueLoop
                $Status = UDPSend($Socket, MakePacket())
                If $Status = 0 Then ContinueLoop
                Global $jzData = "", $Timchecki = 0
                While $jzData = ""
                        $Timchecki += 1
                        $jzData = UDPRecv($Socket, 100)
                        If $Timchecki = 5 Then ContinueLoop (2)
                        Sleep(88)
                WEnd
                UDPCloseSocket($Socket)
                UDPShutdown()
                ExitLoop
        Next
        If $jzData = "" Then Return 0
        $jzData = UnsignedHexToDec(StringMid($jzData, 83, 8))
        $jzData = _DateTimeFormat(_DateAdd("s", $jzData, "1900/01/01 08:00:00"), 0)
        Return $jzData
EndFunc   ;==>_GetSrv_Date

Func MakePacket()
        Local $TimcheckP, $TimcheckD = "1b0e01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
        While $TimcheckD
                $TimcheckP &= Chr(Dec(StringLeft($TimcheckD, 2)))
                $TimcheckD = StringTrimLeft($TimcheckD, 2)
        WEnd
        Return $TimcheckP
EndFunc   ;==>MakePacket

Func UnsignedHexToDec($TimcheckData)
        Return Dec(StringTrimRight($TimcheckData, 1)) * 16 + Dec(StringRight($TimcheckData, 1))
EndFunc   ;==>UnsignedHexToDec
include, 不胜感激, 测试, 非常完美, 时间校准

本帖子中包含更多资源

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

×

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
lixiaolong
发表于 2012-2-21 00:47:45 | 显示全部楼层
回复 1# lxsh010

$NowData = StringSplit($_Now_Splt[1], "-") （第15行）
改为
$NowData = StringSplit($_Now_Splt[1], "/")
回复

举报

lxsh010
 楼主| 发表于 2012-2-21 00:48:27 | 显示全部楼层
非常非常感谢大海兄tryhi ：http://www.autoitx.com/forum.php ... 3%B5%C4%CA%FD%D7%E9
您的技术人品，永远是我学习的榜样！当然，还有许许多多ACN上的牛人们。向你们致敬！
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_outfile=..\时间呀时间.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <Misc.au3>
#include <Date.au3>
;~ #include <Array.au3>
Opt("WinTitleMatchMode", 2);标题的任意子串皆可匹配
Opt("GUICloseOnESC", 0);在按下 ESC 时不退出

;~ MsgBox(64, "时间同步中...完成后自动退出!", 3)

;~ If _Singleton(@ScriptName, 1) = 0 Then
;~         MsgBox(16, "警告", "该程序已经运行，禁止重复运行！", 5)
;~         Exit
;~         EndIf
        
_Timecheck()
Exit

Func _Timecheck() ;时间校正        
If Ping('www.baidu.com', 550) Then        
$_Now_date = _GetSrv_Date()
MsgBox(64, "电脑时间校准", "" & @CR & "   -------时间校准完成！-------" _
                                 & @CR & @CR & " 现在您的电脑时间已经和北京时间同步! " & @CR & @CR & "   TIME NOW：" & $_Now_date, 30, "")
$_Now_Splt = StringSplit($_Now_date, " ")
$NowData = StringSplit($_Now_Splt[1], "-")
$NowTime = StringSplit($_Now_Splt[2], ":")
;~ _SetDate($NowData[3], $NowData[2], $NowData[1])
;~ _SetTime($NowTime[1], $NowTime[2], $NowTime[3])
;~ _ArrayDisplay($_Now_Splt)
;~ _ArrayDisplay($NowTime)
Else
                MsgBox(16, "出错啦", "网络已断开，连接服务器失败！请保持联网状态，再进行时间校准。 ", 5,"")
        EndIf

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

举报

lxsh010
 楼主| 发表于 2012-2-21 00:49:22 | 显示全部楼层
回复 2# lixiaolong

谢谢李小龙大侠。已经解决。你的方法也非常的棒！！！晚安
回复

举报

leibin0121
发表于 2012-5-6 21:03:40 | 显示全部楼层
怎么没效果。。
回复

举报

kkk123
发表于 2013-1-18 17:15:07 | 显示全部楼层
好像没效果
回复

举报

jneyxwry
发表于 2013-3-13 00:58:04 | 显示全部楼层
回复  lxsh010

$NowData = StringSplit($_Now_Splt[1], "-") （第15行）
改为
$NowData = StringSpli ...
lixiaolong 发表于 2012-2-21 00:47




如果将- 改为了 / 之后在XP下会出错吗？
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-9-29 09:19 , Processed in 0.091749 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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