QQ多帐号自动登录批处理脚本
摘要：复制代码代码如下:'定义QQ程序路径、帐名、密码DimProgram1,a,bProgram1="C:ProgramFilesTencent...
复制代码 代码如下:
'定义QQ程序路径、帐名、密码
Dim Program1,a,b
Program1= "C:Program FilesTencentQQBinQQ.exe"
Set WshShell=createobject("wscript.shell")
'运行QQ主程序
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 1000
'激活QQ窗口
WshShell.AppActivate "QQ2010"
wshShell.SendKeys "+{TAB}"
'输入帐号
a="QQ帐号"
WshShell.SendKeys a
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
'输入密码
b="你的密码"
WshShell.SendKeys b
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
【QQ多帐号自动登录批处理脚本】相关文章：
下一篇：
cmd模式下中文乱码的解决方法(注册表)