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

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

保存下面的代码为VBS文件：

1. set WshShell = CreateObject("WScript.Shell")  
   
2. do
   
3. if WshShell.AppActivate("卡发行") = true then  
   
4. Wscript.sleep 200
   
5. WshShell.sendKEYs "123"
   
6. Wscript.sleep 200
   
7. WshShell.sendkeys "{TAB}"
   
8. Wscript.sleep 200
   
9. WshShell.sendkeys "123456"
   
10. Wscript.sleep 200
    
11. WshShell.sendkeys "{TAB}"
    
12. Wscript.sleep 200
    
13. WshShell.sendkeys "{ENTER}"
    
14. Wscript.sleep 500
    
15. WshShell.sendkeys "%y"
    
16. end if
    
17. Wscript.sleep 300
    
18. loop

复制代码

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

批处理代码：

1. @echo off
   
2. taskkill /im wscript.exe /f

复制代码

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

或者你有懒癌.你直接下载下面的附件
https://n459.com/file/1259131-469162516

{author} 感谢楼主分享

膜拜大神3秒钟

支持，顶一下。

奥利给

感谢{author}楼主