刷票器

最近玩某游戏，有个推荐活动，也就是给你个特定的链接，让你发给朋友，凡是被点击一次，则给你一点积分，将那个链接复制到地址栏打开，就加了1分，试了试刷新，分并没加，看来是限制了IP了，一个IP只能点一次。以前看过网上的一篇文章就提到过利用ADSL每次联网的IP都是随机分配的这个特点来反复投票，具体怎么做已经忘了，不过幸好还不复杂，想一想也就做出来了。本来是想用批处理做的，但点击的步骤不好写，如果用：explorer 目标地址，则会不停的弹窗口，这显然不行的，就想用VB来写，但又太麻烦了点，干脆就将两者结合起来用算了:)

VB做的程序在里面相当于一个浏览器，不过不会显示出窗口，而且1秒钟后就会自动退出了，这样就不会有很多的窗口了。先在工程里引用Microsoft Internet Controls控件，然后把控件拖到窗体上，控件名称就按默认的。

然后输入如下代码：

1. Option  Explicit
2.   Private   Declare   Sub  Sleep  Lib   "kernel32"  ( ByVal  dwMilliseconds  As   Long )
4. Private   Sub  Form_Load()
5. Dim  str  As   String
6. If  Len(Command) > 2  Then  
7. str = Mid(Command, 2, Len(Command) - 2)  '处理引号
8. WebBrowser1.Navigate str
9. End   If
10. Sleep 1000
11. End
12. End   Sub

有些网络链接带“&”，这在批处理里面不用引号括起来的话会出错的，所以程序里才会加上一段处理引号的代码。

 

批处理文件的内容为：

1. @echo off
2. :begin
3. rasdial /disconnect
4. REM 将下面的"连接名"、"用户名"、"密码"都改成你自己的，连接名一般都是“宽带连接”，用户名一般是你的电话号码
5. rasdial "连接名" "用户名" "密码"
6. REM 将下面的"地址"改成你要刷的地址
7. SIE.exe "地址"
8. goto begin

 

rasdial是windows自带的命令行拨号软件，这里调用它来实现联网和断开。

rasdial /disconnect是断开网络的意思。

 rasdial "连接名" "用户名" "密码"是进行拨号连接。

 SIE.exe是前面用VB做的那个小程序的名字，后面的地址必须用引号括起来，原因之前已经说过了。

程序我已经传到我的网络硬盘了，http://tianqiju.ys168.com ，没有安装VB的话，就去下载我编译好的。