欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-08-27 14:34:38
以前写过一个利用adsl拨号变ip刷流量的vbs,只要把刷新的页面稍微改一下(添加个自动提交的js)就是了,可是怎么找都找不到了,没法重新写。 还有种办法就是vbs直接提交...
以前写过一个利用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 & "\root\cimv2")
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 & "\root\cimv2")
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引用