刷票器

来源：互联网发布：java标准时间格式编辑：程序博客网时间：2024/05/16 12:24

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

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

然后输入如下代码：

Option Explicit
 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim str As String
If Len(Command) > 2 Then 
str = Mid(Command, 2, Len(Command) - 2) '处理引号 
WebBrowser1.Navigate str
End If
Sleep 1000
End
End Sub

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

批处理文件的内容为：

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

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

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

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

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

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