Set tx=CreateObject("Wscript.Shell")
Wscript.Sleep 8000
tx.SendKeys "{F3}"
Wscript.Sleep 3000
tx.SendKeys "Password"
Wscript.Sleep 3000
tx.SendKeys "{Enter}"
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(WScript.ScriptName)
很简单的一个东东，用VBS的SendKeys而已，见没人发过所以发下，也许有人会用得着。放在启动项，解锁后会删除自身。把那个Password改成万象的管理密码
Wscript.Sleep 8000
tx.SendKeys "{F3}"
Wscript.Sleep 3000
tx.SendKeys "Password"
Wscript.Sleep 3000
tx.SendKeys "{Enter}"
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(WScript.ScriptName)
很简单的一个东东，用VBS的SendKeys而已，见没人发过所以发下，也许有人会用得着。放在启动项，解锁后会删除自身。把那个Password改成万象的管理密码
∨ 展开
