存档
‘QQ一键登陆代码
‘Design:MiaoQiyuan.cn
dim program
program="D:\Program Files\Tencent\QQ\QQ.exe"
rem
set Wshell=CreateObject("Wscript.Shell")
set oexec1=Wshell.Exec(program)
rem
wscript.Sleep 500
Wshell.SendKeys "QQ密码{TAB}"
wscript.Sleep 1
wshell.Sendkeys "QQ账号{ENTER}"
rem
set oexec2=Wshell.Exec(program)
rem
wscript.Sleep 1000
Wshell.appactivate "QQ密码"
Wshell.SendKeys "mqycn521{TAB}"
wscript.Sleep 1
Wshell.SendKeys "QQ账号{ENTER}"
rem