写个脚本一键登陆QQ。

社区服务
高级搜索
猴岛论坛电脑百科写个脚本一键登陆QQ。
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
« 返回列表
3个回复

写个脚本一键登陆QQ。

 楼层直达
qaws1222

ZxID：1256126

等级: 贵宾
举报 只看楼主 使用道具 楼主   发表于: 2008-03-30 0
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}"


把上面的写到写字版上．保存为XX.vbs的格式

登陆的时候点下这个XX.vbs就好了｀呵呵｀
打赏 收藏 新鲜事

相关主题

回复 引用
　 鲜花[0]　 鸡蛋[0]
yzsbbt

ZxID：1347309

等级: 大尉
乌龟一只- -

举报 只看该作者 沙发   发表于: 2008-03-30 0
这也行我爆汗
天气预报：顶本帖的人所在地区1年内将下黄金DB雨- -每秒888DB。。想拿DB的狂顶。。
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
344359525

ZxID：1352883

等级: 上尉
↘﹎傳説在訫愛哋亼.手哩划圈﹎.下辈子還會在緗愛..oぺ灬в
举报 只看该作者 板凳   发表于: 2008-03-30 0
顶你 `我去试试`
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
1202834550

ZxID：1021108

等级: 大校
漫步人生
举报 只看该作者 地板   发表于: 2008-03-30 0
试了，好象没效果！！！
要么就是我笨蛋！
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
« 返回列表
发帖 回复