| 标题 | 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 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。