中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-12 15:08
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [求助]克盘后自动解锁万象脚本 查看 1,100 回复 5
楼 主 [求助]克盘后自动解锁万象脚本 发表于 2008-09-27 21:10 ·  中国 四川 绵阳 电信
初级用户
积分 75
发帖 46
注册 2007-09-25 22:21
18年会员
UID 98274
性别 男
状态 离线
网吧克盘后,全部重启都是同一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)
运行后出错,不知道是不行还是怎么回事!
高手请帮帮忙哈!用的是万象最新版
2 发表于 2008-09-27 21:28 ·  中国 四川 绵阳 电信
初级用户
积分 75
发帖 46
注册 2007-09-25 22:21
18年会员
UID 98274
性别 男
状态 离线
查资料发现,有的Wscript是Ws cript但不管怎么改都会提示错误
3 发表于 2008-09-27 21:48 ·  中国 四川 绵阳 电信
初级用户
积分 75
发帖 46
注册 2007-09-25 22:21
18年会员
UID 98274
性别 男
状态 离线
终于搞定!
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")
4 发表于 2009-09-10 00:02 ·  中国 江苏 淮安 金湖县 电信
新手上路
积分 10
发帖 8
注册 2009-09-09 08:36
16年会员
UID 151734
性别 男
状态 离线
太好了~~

多谢你!!!
5 发表于 2009-10-25 22:28 ·  中国 湖北 十堰 电信
新手上路
积分 6
发帖 6
注册 2008-12-16 17:14
17年会员
UID 134062
性别 男
状态 离线
CreateObject("WScript.Shell").SendKeys "^{ESC}~"


着样不更好用~?
6 发表于 2009-10-28 20:23 ·  中国 山东 移动
中级用户
★★
积分 208
发帖 97
注册 2006-12-28 22:08
19年会员
UID 74845
性别 男
状态 离线
很好,对网吧维护很管用。
论坛跳转: