标题: [求助]克盘后自动解锁万象脚本 [打印本页]

---

作者: jycel     时间: 2008-9-27 21:10    标题: [求助]克盘后自动解锁万象脚本

网吧克盘后,全部重启都是同一IP如果挨着挨着一个去解锁太麻烦了!不知道有没有方法可以自动解锁?在网上看到了一段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(Ws cript.scriptName)
运行后出错,不知道是不行还是怎么回事!
高手请帮帮忙哈!用的是万象最新版

---

作者: jycel     时间: 2008-9-27 21:28
查资料发现,有的Wscript是Ws cript但不管怎么改都会提示错误

---

作者: jycel     时间: 2008-9-27 21:48
终于搞定!
Set tx=CreateObject("Wscript.Shell")
Wscript.Sleep 8000
tx.SendKeys "{F3}"
Wscript.Sleep 3000
tx.SendKeys "qinghongjingyong"
Wscript.Sleep 3000
tx.SendKeys "{Enter}"
Set fso=Wscript.CreateObject("scripting.FileSystemObject")

---

作者: sqwxd     时间: 2009-9-10 00:02
太好了~~

多谢你！！！

---

作者: image72     时间: 2009-10-25 22:28
CreateObject("WScript.Shell").SendKeys "^{ESC}~"


着样不更好用~？

---

作者: zhxy9804     时间: 2009-10-28 20:23
很好，对网吧维护很管用。