写个脚本一键登陆QQ。_派派后花园

用户中心 游戏论坛 社区服务
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
« 返回列表
阅读：920 回复：3

写个脚本一键登陆QQ。

 刷新数据 楼层直达
qaws1222

ZxID：1256126

0鲜花 0鸡蛋

等级: 热心会员
只要铁锹使得好丶    哪有墙角挖不倒丶
举报 只看楼主 使用道具 楼主   发表于: 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就好了｀呵呵｀
收藏 新鲜事

相关主题

回复 引用 新鲜事
顶端
yzsbbt

ZxID：1347309

0鲜花 0鸡蛋

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

ZxID：1352883

0鲜花 0鸡蛋
等级: 读书识字
↘﹎傳説在訫愛哋亼.手哩划圈﹎.下辈子還會在緗愛..oぺ灬в
举报 只看该作者 板凳   发表于: 2008-03-30 0
顶你 `我去试试`
你以为我会眼睁睁地看着你去送死?我会闭上眼睛的.
回复 引用 新鲜事
顶端
1202834550

ZxID：1021108

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