Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
MessageBox "你的电脑已经同步网络时间 : " & 让你的电脑同步网络时间()
Function 让你的电脑同步网络时间()
Dim TF, fso, f, strdate, sdate,网络日期, 网络时间
set TF=createobject("wscript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")
URLDownloadToFile 0, "http://www.time.ac.cn/stime.asp", ".\logo.txt", 0, 0
Set f = fso.OpenTextFile(".\logo.txt", 1, True)
strdate = f.ReadAll
f.Close
// fso.DeleteFile(".\logo.txt")
str = split(strdate, vbcrlf)
strdate = Filter(str, "年")(0)
sdate = Split(strdate, "'")(1)
网络日期 = CDate(sdate)
TF.run "cmd /c date " & 网络日期, vbhide
strdate = Filter(str, "var hrs =")(0)
sdate = Split(strdate, "=")(1)
strdate = Filter(str, "var min =")(0)
sdate = sdate & Split(strdate, "=")(1)
strdate = Filter(str, "var sec =")(0)
sdate = sdate & Split(strdate, "=")(1)
sdate = Replace(sdate,";",":")
sdate = Left(sdate ,len(sdate)-1)
网络时间 = CDate(sdate)
TF.run "cmd /c time " & 网络时间, vbhide
让你的电脑同步网络时间 = CDate(网络日期 & " " & 网络时间)
End Function