si object browser 9i 时间 破解

WSH活用 某些试用软件过期之后

有些试用版软件很好用，但又舍不得花钱，试用期过了以后还想尽办法继续使用。

 

有些软件的试用期检查非常的简单，就是根据程序最初安装时候的系统日期来判断的。对于这类的软件，过期之后只要把系统日期修改到最初安装的时候就能继续使用了。

 

不过么，每次打开软件的时候都要修改系统日期也很烦吧？

于是就想了个简单的办法（StartOB.vbs）：

 

Dim WshShell, oExec
Dim MyDate, InstallDate
Set WshShell = CreateObject("WScript.Shell")
 
'程序最初安装时候的日期
InstallDate = "2007-12-20"

 

'并把原先的系统日期备份
Set oExec = WshShell.Exec("cmd /C date /T " )
MyDate = oExec.StdOut.ReadLine()
'修改系统日期，
Set oExec = WshShell.Exec("cmd /C date  " & InstallDate)
 
'启动OB
Set oExec = WshShell.Exec("D:\Program Files\OB9\ob9.exe")

 

'等待1秒
WScript.Sleep 1000

 

'在OB窗口下按下回车
WshShell.SendKeys "{ENTER}"
 
'回复备份的系统日期
Set oExec = WshShell.Exec("cmd /C date " & MyDate)