QQ一键登录的小程序怎样制作

显示全部楼层 · 2010-6-19 06:35:28

Dim Program1
Program1= "F:\Program Files\Bin"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate "Q登陆"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号码"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "QQ密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
高手指点

千问 · 2010-6-19 06:35:28

现在的QQ程序2010版，如果你是自己的计算机，可以在登录的时候选择自动登录，当你打开计算机选择QQ程序的时候就会自动登录了！注意：必须是自己的计算机！