神剑山庄资源网 Design By www.hcban.com
以前写过一个利用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引用
还有种办法就是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引用
标签:
vbs,投票
神剑山庄资源网 Design By www.hcban.com
神剑山庄资源网
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
神剑山庄资源网 Design By www.hcban.com
暂无用vbs实现的利用ADSL拨号变ip刷投票的代码的评论...
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。
更新日志
2024年06月27日
2024年06月27日
- 瑞鸣音乐《中国音乐地图之听见河南豫剧经典唱段》2020[WAV分轨]
- 【伊比萨沙发】VA-2024-IbizaSpring2024(LoungeCocktailsfromtheHeart)[FLAC]
- 群星《世界顶级汽车音响试音王》4K金碟16CD[WAV+CUE]
- 群星-音效环绕天碟《极致环绕人声天碟天品》7CD[WAV]
- 泰拉克SACD古典试音碟7SACD-ISO
- 群星《红歌宝典》20CD[WAV/分轨]
- 《101系列:好歌101首 细听年代精选》[WAV+CUE][3.6GB]
- 《101系列 6CD 国语经典101首歌曲 张学友 王菲代表作》[APE+CUE][2.8GB]
- 《101系列:国语经典101 VOL2 6CD 精选最经典101首》[WAV+CUE][2.3GB]
- 群星《十年网络红歌》15CD[WAV分轨]
- 宝丽金-环球10周年至50周年经典金曲15CD[低速原抓WAV+CUE]
- FIM唱片《十大男伶》[低速原抓WAV+CUE]
- 《101系列:情歌101 6CD》[WAV+CUE][3.1GB]
- 庄心妍《降调版合集》[320K/MP3][52.96MB]
- 庄心妍《降调版合集》[FLAC/分轨][118.78MB]