QQ2013多帐号自动登录.docx

《QQ2013多帐号自动登录.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1，右键单击QQ快捷方式-属性-目标。复制该路径。2.新建txt文档——粘贴下面代码——输入三个qq号的账号密码——保存为QQstart.vbs。Seta=CreateObject("WScript.Shell")SetoExec=a.Exec("D:ProgramFilesQQ2013BinQQ.exe")WScript.Sleep1000a.AppActivate"Q登录"a.SendKeys"+{TAB}"a.SendKeys"第1个QQ号"WScript.Sleep200a.SendKeys"{TAB}"a.SendKeys"第1个QQ号密码"WScript.Sleep20

2、0a.SendKeys"{ENTER}"WScript.Sleep2000Setb=CreateObject("WScript.Shell")SetoExec=a.Exec("D:ProgramFilesQQ2013BinQQ.exe")WScript.Sleep3000b.AppActivate"Q登录"b.SendKeys"+{TAB}"b.SendKeys"第2个QQ号"WScript.Sleep200b.SendKeys"{TAB}"b.SendKeys"第2个QQ号密码"WScript.Sleep200b.SendKeys"{ENTER}"WScript.Sleep200

3、0Setc=CreateObject("WScript.Shell")SetoExec=a.Exec("D:ProgramFilesQQ2013BinQQ.exe")WScript.Sleep1000c.AppActivate"Q登录"c.SendKeys"+{TAB}"c.SendKeys"第3个QQ号"WScript.Sleep200c.SendKeys"{TAB}"c.SendKeys"第3个QQ号密码"WScript.Sleep200c.SendKeys"{ENTER}"seta=nothingsetb=nothingsetc=nothing注：1，用自己的qq路径替换掉代

4、码中红色部分。2，想添加更多QQ号码就复制下图所示的代码，把c替换为如d、e、f….等。再后面加上setd=nothing等。3.双击QQstart.vbs，大功告成！