wen52juan申请会员
申请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就可以了其实很简单的，由于时间仓促有点粗糟了。希望能给个学习的机会。
http://blog.sina.com.cn/s/blog_801c2efc0100rxt5.html这个网上有不少,还有没有其他作品?
页:
[1]