吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 3452|回复: 1
收起左侧

[会员申请] wen52juan申请会员

 关闭 [复制链接]
吾爱游客  发表于 2011-9-8 18:24
申请id:wen52juan
邮箱:wen52juan@126.com
性别:男
简介:新人毕业
刚刚毕业别的不怎么会写点小的程序还是可以的,还有就是小行的游戏脚本都可以,想加入52来学习下,在学校都学理论没有实践经验。
刚刚在好多论坛上看到申请需要申请QQ号的申请器也看到好多人下载了都有中毒的什么,其实没必要那么麻烦很简单的只要掌握了点程序的人都知道怎么做的下面我把我刚刚写的发出来,
希望大家不要笑话。
Dim a
Set a=WScript.CreateObject("WScript.shell")
a.run ("http://cht.reg.qq.com") '
WScript.Sleep 5000 'a.SendKeys "1212"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "123456qq" '
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "123456qq" '
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"



然后保存下把TXT改成VBS就可以了其实很简单的,由于时间仓促有点粗糟了。希望能给个学习的机会。

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

Hmily 发表于 2011-10-6 15:42
http://blog.sina.com.cn/s/blog_801c2efc0100rxt5.html
这个网上有不少,还有没有其他作品?
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-1 06:45

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表