VBS QQ自动登录的程序

懒人必备哦!

Dim WshShell,QQPath,QQselect
QQPath="D:\qq\CoralQQ.exe" '这里填写的是QQ安装路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate"Q登录"
WshShell.SendKeys"+{TAB}"
WshShell.SendKeys"123456789" '此外的123456789为你的QQ号码
WScript.Sleep 200
WshShell.SendKeys"+{TAB}"
WshShell.SendKeys"111111" '此处输入你的QQ密码111111
WScript.Sleep 200
WshShell.SendKeys"{ENTER}"

你可能感兴趣的:(qq)