重装网吧收费机后会员第一次刷卡自动改密码为123的脚本

昨天晚上搞定万象以后，重新安装了实名插件，所有会员刷卡都要手动输入一下密码，真的很烦，找出以前这个VBS自动输入密码就舒服多了

我们的计费是万象OL+任子行。

保存下面的代码为*.VBS文件运行：

set WshShell = CreateObject("WScript.Shell")  
do
if WshShell.AppActivate("卡发行") = true then  
Wscript.sleep 200 
WshShell.sendkeys "123" 
Wscript.sleep 200 
WshShell.sendkeys "{TAB}" 
Wscript.sleep 200 
WshShell.sendkeys "123456"
Wscript.sleep 200 
WshShell.sendkeys "{TAB}" 
Wscript.sleep 200 
WshShell.sendkeys "{ENTER}" 
Wscript.sleep 500 
WshShell.sendkeys "%y"
end if 
Wscript.sleep 300 
loop

还可以建立一个批处理，用来结束这个VBS，毕竟大多收银都是傻的要命，不知道怎么关闭这个VBS程序

@echo off
taskkill /im wscript.exe /f

其实仅限于重装收费机以后，会员卡第一次刷卡的时候要输入密码的问题，第2次以后可以打开万象的循环刷卡功能就可以了。