以前写过一个利用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引用
您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。