
CODE: [Copy to clipboard]@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_%
CODE: [Copy to clipboard]'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")
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |