标题: 求助如何改系统日期10秒后再改回来 [打印本页]
作者: wodetnt 时间: 2007-4-30 00:24 标题: 求助如何改系统日期10秒后再改回来
比如今天日期2007-4-29希望运行bat后系统日期为2007-4-1 然后运行其他程序，十秒钟后再将日期改为2007-4-29
谢谢大侠们了
作者: lxmxn 时间: 2007-4-30 01:03
@echo off
set date_=%date:~0,10%
date 2007-4-1
echo start "" "Program Path"
ping 127.1 -n 11 >nul 2>&1
date %date_%
set date_=%date:~0,10%
date 2007-4-1
echo start "" "Program Path"
ping 127.1 -n 11 >nul 2>&1
date %date_%
作者: baomaboy 时间: 2007-4-30 01:04
'Crsort.vbs
Dim WshSHell
Set WshSHell = WScript.CreateObject("WScript.Shell")
CMD="%COMSPEC% /C "
WshSHell.Run(CMD&"DATE 2007.4.1")
WScript.Sleep 1000
'WshSHell.Run("其他程序")
WScript.Sleep 10000
WshSHell.Run(CMD&"DATE 2007.4.29")
Dim WshSHell
Set WshSHell = WScript.CreateObject("WScript.Shell")
CMD="%COMSPEC% /C "
WshSHell.Run(CMD&"DATE 2007.4.1")
WScript.Sleep 1000
'WshSHell.Run("其他程序")
WScript.Sleep 10000
WshSHell.Run(CMD&"DATE 2007.4.29")
作者: wodetnt 时间: 2007-4-30 02:27
成功了，多谢二位高手的帮助