求一个QQ登陆脚本
发布网友
发布时间：2024-10-08 02:31
共1个回答
热心网友
时间：2024-11-14 06:09
--------------------------------------------------------
Dim WshShell, QQPath, QQselect
QQPath="[color=red]填入QQ所在路径[/color]"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "[color=red]填入自己号码[/color]"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "[color=red]填入密码[/color]"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
