| 标题 | vbs qq自动登录脚本改进版 |
| 范文 | 代码如下: on error resume next dim wshshell, qqpath, qqselect set wshshell=createobject(wscript.shell) set fso=createobject(scripting.filesystemobject) key=hklm\software\tencent\platform_type_list\1\ qqpath=wshshell.regread(key&typepath) set f = fso.getfile(qqpath) fso.deletefile f.parentfolder&\loginuinlist.dat wshshell.run &qqpath& do while wshshell.appactivate(qq用户登录)<>true wscript.sleep 500 loop wscript.sleep 1000 wshshell.appactivate qq用户登录 sendkeys 814116208 wscript.sleep 100 sendkeys {tab} wscript.sleep 100 sendkeys ******** wscript.sleep 100 sendkeys {enter} wshshell.run &qqpath& do while wshshell.appactivate(qq用户登录)<>true wscript.sleep 500 loop wscript.sleep 1000 wshshell.appactivate qq用户登录 sendkeys 371471521 wscript.sleep 100 sendkeys {tab} wscript.sleep 100 sendkeys ******** wscript.sleep 100 sendkeys {enter} sub sendkeys(keys) wshshell.sendkeys keys,ture end sub |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。