用vbs实现的利用ADSL拨号变ip刷投票的代码

以前写过一个利用ADSL拨号变ip刷流量的vbs，只要把刷新的页面稍微改一下（添加个自动提交的js）就是了，可是怎么找都找不到了，没法重新写。
还有种办法就是vbs直接提交，可是写了半天，怎么也没运行起，以后改好了在贴出来。
写的时候遇到了点问题，就是利用网页的js提交的时候，会跳转跳显示投票成果的页面，会弹出个投票成功的对话框，这会影响下面的打开网页。又没法屏蔽，所以采用了个折衷办法，每次结束浏览器进程，在刷后面的页面。
复制代码代码如下:
Const ForAppending = 8
Const ForReading = 1
Const FileName = "iplog.txt"
Set objFSO = CreateObject（"Scripting.FileSystemObject"）
Set objTextFile = objFSO.OpenTextFile（FileName, ForAppending, True）
objTextFile.WriteLine "------------------利用ADSL拨号变ip刷投票-----------------"
objTextFile.WriteLine " " & Now
objTextFile.Close
For i=1 To 300 "刷多少票
Do
"----------------------------拨号---------------------------------
Set pp = WScript.CreateObject（"WScript.Shell"）
pp.run "rasdial 外网 /DISCONNECT",0
wscript.sleep 2000
pp.run "rasdial 外网 LAN245561315 11811",0
Set pp = Nothing
wscript.sleep 2000
"----------------------------读取IP-------------------------------
strComputer = "."
Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"）
Set IPConfigSet = objWMIService.ExecQuery（"Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE"）
For Each IPConfig in IPConfigSet
If IPConfig.IPAddress（0）<>"169.254.1.232" Then "adsl的本地连接
IPAddress = IPConfig.IPAddress（0）
End If
Next
"----------------------------判断IP是否重复-----------------------
Set objFSO = CreateObject（"Scripting.FileSystemObject"）
Set objTextFile = objFSO.OpenTextFile（FileName, ForReading）
Do Until objTextFile.AtEndOfStream
strIP = objTextFile.Readline
arrIPList = Split（strIP , ","）
If arrIPList（0） = IPAddress Then
IsSame = True
Exit Do
Else
IsSame = False
End If
Loop
objTextFile.Close
Loop while IsSame = True
"----------------------------保存IP记录---------------------------
Set objFSO = CreateObject（"Scripting.FileSystemObject"）
Set objTextFile = objFSO.OpenTextFile（FileName, ForAppending, True）
objTextFile.WriteLine IPAddress &","& Now
objTextFile.Close
"----------------------------打开浏览器开始刷---------------------
Set ie=WScript.CreateObject（"InternetExplorer.Application"）
ie.visible=1 "1浏览器可见0不可见
ie.navigate "http://www.169ol.com/
" "解决网通重定向问题（网通这好烦哦）
wscript.sleep 3000
"提交的修改过的表单，本地也行，需要把ie安全设置低点，不然每次都会提示的。
ie.navigate "http://www.link888.net/testspeed.html"
wscript.sleep 10000
"----------------------------结束浏览器进程------------------------
strComputer = "."
Set objWMIService = GetObject（"winmgmts:"& "{impers}！\" & strComputer & " ootcimv2"）
Set colProcessList = objWMIService.ExecQuery（"Select * from Win32_Process Where Name = "IEXPLORE.exe""）
For Each objProcess in colProcessList
objProcess.Terminate（）
Next
Next

testspeed.html
复制代码代码如下:
<form action="http://www.xxx.cn/vote/kuangquanshui/addvote.asp" method="post" name="form1" id="form1">
<input name="vote" type="checkbox" id="vote" value="35" checked="checked" />
<input type="Submit" name="Submit2" value="投票">
</form>
<script language="JavaScript" >
setTimeout（"document.form1.submit（）",3000） //3秒后提交
</script>

这个是利用刷网页（里面含有自动提交的js）来提交的，还有更好的办法就是直接利用vbs脚本提交表单。
不过这样都会有局限性，我测试的投票系统没有限制提交地址，只是限制ip，所以可以本地提交。有些服务器限制了的，就不可以利用直接提交表单了。
可以用一个frame把原来的网页包括过来，然后利用js脚本提交frame里的表单，来突破。
如果他禁用了frame引用，就没发了，就得通过软件来实现了。
防止刷票：
1.限制ip
2.验证码（稍微复杂点的，不要太简单了）
3.对提交表单的来源做限制。
4.禁止外部frame引用