[问题求助] VBS时间校对 win7 64位有点小问题:cmd.exe不会自动关闭

Heykuz

'VBS校准系统时间 BY BatMan http://www.bathome.net
Dim objXML, Url, Message
Message = "恭喜你，本机时间非常准确无需校对！"
Set objXML = CreateObject("MSXML2.XmlHttp")
Url = "http://open.baidu.com/special/time/"
objXML.open "GET", Url, False
objXML.send()
Do Until objXML.readyState = 4 : WScript.Sleep 200 : Loop
Dim objStr, LocalDate
objStr = objXML.responseText
LocalDate = Now()
Set objXML = Nothing
Dim objREG, regNum
Set objREG = New RegExp
objREG.Global = True
objREG.IgnoreCase = True
objREG.Pattern = "window.baidu_time\((\d{13,})\)"
regNum = Int(objREG.Execute(objStr)(0).Submatches(0)) /1000
Dim OldDate, BJDate, Num, Num1
OldDate = "1970-01-01 08:00:00"
BJDate = DateAdd("s", regNum, OldDate)
Num = DateDiff("s", LocalDate, BJDate)
If Abs(Num) >=1 Then
  Dim DM, DT, TM, objSHELL
  DM = DateAdd("S", Num, Now())
  DT = DateValue(DM)
  TM = TimeValue(DM)
  If InStr(Now, "午") Then
    Dim Arr, Arr1, h24
    Arr = Split(TM, " ")
    Arr1 = Split(Arr(1), ":")
    h24 = Arr1(0)
    If Arr(0) = "下午" Then
      h24 = h24 + 12
      Else
      If h24 = 12 Then h24 = 0
    End If
    TM = h24 & ":" & Arr1(1) & ":" & Arr1(2)
  End If
  Set objSHELL = CreateObject("Wscript.Shell")
  objSHELL.Run "cmd /cdate " & DT, False, True
  objSHELL.Run "cmd /ctime " & TM, False, True
  Num1 = Abs(DateDiff("s", Now(), BJDate))
  Message = "【校准前】" & vbCrLf _ 
    & "标准北京时间为：" & vbTab & BJDate & vbCrLf _
    & "本机系统时间为：" & vbTab & LocalDate & vbCrLf _
    & "与标准时间相差：" & vbTab & Abs(Num) & "秒" & vbCrLf & vbCrLf _
    & "【校准后】" & vbCrLf _
    & "本机系统时间为：" & vbTab & Now() & vbCrLf _
    & "与标准时间相差：" & vbTab & Num1 & "秒"
  Set objSHELL = Nothing
End If
WScript.Echo Message
复制代码

==============================================================

问题是，进程里面的cmd.exe不会自动关闭，当cmd.exe关闭时Message正常弹出来。
有没有好的方法让它自动关闭。呢

win7 32位运行正常。win764位的精简版也运行正常。我现在的系统为"正版"win7 64位。
就是cmd.exe不会自动关闭。求大神们指点。

pcl_test

察，出自论坛的还贴源码，发个链接不就可以了？而且论坛上也有相应的修改版和改进版

Heykuz

粗口累累，我尊重论坛我才贴出来。真不明白你是如何想的。心胸好窄。

pcl_test

回复 3# Heykuz

无视版规，何以见得尊重，说得真有那么一回事似的

yu2n

这个代码确实是本论坛的帖子，楼主可以直接到原作者帖子回复。

VBS校准系统时间
http://www.bathome.net/thread-21616-1-1.html#pid177334

CrLf

回复 3# Heykuz


怎么说呢，这个明显能搜到旧帖，确实不太有必要把源码重发一次，虽然版规没严格到引用旧帖只能发链接，但是——

论坛是非盈利的，除了毫无存在感的一点广告收入，主要依赖坛友捐助和 Batcher 的腰包，所以能省一点是一点吧
如果支持批处理之家，请在坛友们发帖时不要太随意：

1、稍大的文件用网盘存储
2、非必要，不发图
3、发帖前先搜索旧帖
4、避免提交重复信息

节约也是一种捐助

依山居

oh,我简直该杀，代码里各种空行和废话。

CrLf

回复 7# 依山居


    空行也就占俩字节，适量使用的话，可读性上的所得高于空间上的浪费，所以还是很有必要的

yu2n

回复 7# 依山居


    嘿嘿，确实该杀，建议杀之前“净身出户”，卖血卖精…，捐出所有身家，多为论坛做贡献。

Heykuz

好的，都感谢楼上的，除了粗口那位版主。说真的，我没看版规的习惯。这段代码是我不知道什么时候得来的。我知道是在这论坛得的，但没看过原贴。搜索的时候，搜索“校时”没结果。没想到是“校准时间”。既然版规是这样我服，以后不乱贴代码就是。贴出一段代码让人指点，好象也没什么错。只是不知道原贴在哪儿罢了。体谅体谅。