当前位置 博文首页 > 用vbs实现的利用ADSL拨号变ip刷投票的代码

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

    作者:admin 时间:2021-02-13 18:03

    以前写过一个利用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" >
    <input name="vote" type="checkbox" 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引用 js
    下一篇:没有了