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

用户中心 游戏论坛 社区服务
发帖 回复
阅读:920 回复: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就好了`呵呵`
yzsbbt

ZxID:1347309


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

ZxID:1352883

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

ZxID:1021108

等级: 牛刀小试
漫步人生
举报 只看该作者 地板   发表于: 2008-03-30 0
试了,好象没效果!!!
要么就是我笨蛋!
发帖 回复