| 标题 | 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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。