无忧启动论坛

标题: 请高人帮忙修改一个改系统时间的VBS代码 [打印本页]

作者: htjyjl 时间: 2008-10-14 12:54
标题: 请高人帮忙修改一个改系统时间的VBS代码
有一个使用天数限制的软件，下面的代码可以将系统时间改到软件可以使用的日期，但回不到运行这个VBS代码之前的时间。比如今天是2008年10月14日运行了这个VBS代码，系统时间就变成了2007年4月1日。请问怎样修改才能计变回运行这个批处理之前的时间？
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&"Dim MyTime")

作者: lxl1638 时间: 2008-10-14 13:25
林子真大，你能将它改成"DATE 2007.4.1"，就不能改回"DATE 2008.10.14"？

作者: htjyjl 时间: 2008-10-14 14:39
改成"DATE 2008.10.14"的话，如果我在8月15日运行，系统时间又是2008年10月14日。我的意思是每次运行完这个VBS后系统日期都自动改回运行前的机器日期。别叫我每次都改VBS源码，那样的话还没手工修改方便。也别用BAT批处理，因为我还想加个Alt＋C的键盘动作。之前的源码应加多两行
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 5000
WshShell.SendKeys "%c"
WScript.Sleep 10000
WshSHell.Run(CMD&"Dim MyTime")

作者: 2012xiaocake 时间: 2012-11-11 22:05
Dim WshSHell,CMD
CMD="%COMSPEC% /C "
Set WshSHell=WScript.CreateObject("WScript.Shell")
WshSHell.Run(CMD & "echo %date%>%temp%\now.txt"),0,true '先保存当前系统时间至文本文档
WshSHell.Run(CMD & "date 2007.4.1"),0,true '修改系统时间
'Wscript.Echo(date) '调试时用的
WshSHell.Run("有限制的程序")
WScript.Sleep 2000 '延时足够时间,保证程序完全启动
WshSHell.Run(CMD & "date <%temp%\now.txt"),0,true '恢复系统时间
'Wscript.Echo(date) '调试时用的
WshSHell.Run(CMD & "del /q /f %temp%\now.txt"),0,true '删除临时文件
'不知道你按 Alt+C是干啥用的,上面有注释,你自己看着在合适位置添吧

'另一版本
Dim WshSHell,CMD,Now,MyTime
CMD="%COMSPEC% /C date "
Now=date '记住当前系统时间(在此假设运行该VBS之前你的系统时间是正确的)
MyTime="2007.4.1" '注意你的系统时间格式
Set WshSHell=WScript.CreateObject("WScript.Shell")
'Wscript.Echo(date) '调试时用的
WshSHell.Run(CMD & MyTime),0,true '修改系统时间为你的软件可以运行的时间
'Wscript.Echo(date) '调试时用的
WshSHell.Run( "有限制的程序" )
WScript.Sleep 3000 '延时足够时间,保证程序完全启动
WshSHell.Run(CMD & Now),0,true '恢复系统时间
'Wscript.Echo(date) '调试时用的
'按Alt+C的功能也还是你自己看着在合适位置添加.

欢迎光临无忧启动论坛 (http://wuyou.net/)