圆月山庄资源网 Design By www.vgjia.com
复制代码 代码如下:
'定义QQ程序路径、帐名、密码
Dim Program1,a,b
Program1= "C:\Program Files\Tencent\QQ\Bin\QQ.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,多帐号登录

圆月山庄资源网 Design By www.vgjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
圆月山庄资源网 Design By www.vgjia.com