[经验分享] 一键登陆QQ，省去了每天输入的麻烦

主题	好友	1046 积分

金牌会员

发消息

发表于 2009-9-6 10:20:04 |显示全部楼层

Dim Program1
Program1="你QQ在你电脑的地址"
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}"
桌面新建文档，在另存为，格式很主重，一定要VBS
就行了，