找回密码
 加入网盟
分割线
官方精品推荐
昨天晚上搞定万象以后,重新安装了实名插件,所有会员刷卡都要手动输入一下密码,真的很烦,找出以前这个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
分享至 : QQ空间
收藏

5 个回复

倒序浏览
感谢{author}楼主
回复 使用道具 举报
czkyo520 列兵 2020-11-5 15:24:01
3#
奥利给
回复 使用道具 举报
373325480 列兵 2020-11-5 15:24:30
4#
支持,顶一下。
回复 使用道具 举报
a8585345 列兵 2020-11-5 19:23:44
5#
膜拜大神3秒钟
回复 使用道具 举报
{author} 感谢楼主分享
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 加入网盟
关闭

华夏网盟推荐 上一条 /1 下一条