网克后自动解锁万象的VBS

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,休闲)