qy8千亿国际手机版-qy8千亿国际app版网站建设第一品牌
网络营销整合专家

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

来源:   2019-08-20 19:32

 以前写过一个利用adsl拨号变ip刷流量的vbs,只要把刷新的页面稍微改一下就是了,可是怎么找都找不到了,没法重新写。
还有种办法就是vbs直接提交,可是写了半天,怎么也没运行起,以后改好了在贴出来。
写的时候遇到了点问题,就是利用网页的js提交的时候,会跳转跳显示投票成果的页面,会弹出个投票成功的对话框,这会影响下面的打开网页。又没法屏蔽,所以采用了个折衷办法,每次结束浏览器进程,在刷后面的页面。
复制代码 代码如下:
const forappending = 8
const forreading = 1
const filename = "iplog.txt"
set objfso = createobject
set objtextfile = objfso.opentextfile
objtextfile.writeline "------------------利用adsl拨号变ip刷投票-----------------"
objtextfile.writeline " " & now
objtextfile.close
for i=1 to 300 '刷多少票
do
'----------------------------拨号---------------------------------
set pp = wscript.createobject
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
set ipconfigset = objwmiservice.execquery
for each ipconfig in ipconfigset
if ipconfig.ipaddress "169.254.1.232" then 'adsl的本地连接
ipaddress = ipconfig.ipaddress
end if
next
'----------------------------判断ip是否重复-----------------------
set objfso = createobject
set objtextfile = objfso.opentextfile
do until objtextfile.atendofstream
strip = objtextfile.readline
arriplist = split
if arriplist = ipaddress then
issame = true
exit do
else
issame = false
end if
loop
objtextfile.close
loop while issame = true
'----------------------------保存ip记录---------------------------
set objfso = createobject
set objtextfile = objfso.opentextfile
objtextfile.writeline ipaddress &","& now
objtextfile.close
'----------------------------打开浏览器开始刷---------------------
set ie=wscript.createobject
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
set colprocesslist = objwmiservice.execquery
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",3000) //3秒后提交
/script

这个是利用刷网页
3.对提交表单的来源做限制。
4.禁止外部frame引用
点击进入“下一篇”继续浏览
返回列表

最新案例

最新案例

最新资讯最新资讯

品牌创意网站建设 上市公司网站建设 大型门户类网站建设 全方位网站运营代理
企业官方网站建设 B2C电子商务网站建设 专题活动网站(MINISITE)

更多 +联系我们

业务电话:0755/837391590755/33121570

业务 QQ:   传真: 0755-83739169

E-mail:   售后QQ :764390686

我们的认知

当对手还在将注意力停留在碎片化的互联网设计或程序实现时,织梦帮早已开始将数字品牌的建设和传播进一步整合。只有通过整体的互联网品牌分析,帮助品牌建立互联网品牌传播价值,并围绕价值建立品牌粘性,提升品牌与用户的互动,更好的帮助品牌传播,触发用户的行动力才是我们工作的终极目标,这正是一流品牌的成功秘诀。
不可否认,建立互联网品牌传播价值的确是门艺术,但互联网不同于艺术涂鸦,企业投资品牌绝不是希望品牌成为某个艺术家的实验品。互联网传播的对象是用户,用户拥有自己的文化体系,群落共性才是互联网品牌传播创意的源头,如果我们不能帮助企业激发目标用户的共鸣,产生购买冲动,那将是品牌的悲剧! 因此,互联网传播必须建立品牌传播价值,为梦想者创造梦想品牌,织梦帮与您同行!

合作意向表

您需要的服务

现有网站改版
我需要做微信营销
建设全新的企业网站
要找长期合作公司,需要年度服务

您最关注的地方

对功能要求比较高
对设计创意要求比较高
需要可以购物支付
搜索引擎排名

预算

3-5万 5-8万 8-10万 10万以上需招投标
验证码