国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

用vbs實現的利用ADSL撥號變ip刷投票的代碼

2020-07-26 11:52:28
字體:
來源:轉載
供稿:網友
以前寫過一個利用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引用
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 东城区| 潞城市| 湟源县| 湄潭县| 庆安县| 会宁县| 府谷县| 冀州市| 德保县| 谢通门县| 连江县| 扎兰屯市| 交城县| 阿合奇县| 桦川县| 南溪县| 清河县| 图片| 信阳市| 宜良县| 金阳县| 上高县| 巢湖市| 财经| 姜堰市| 金寨县| 连平县| 舟曲县| 遂宁市| 麻江县| 涟源市| 长垣县| 城步| 常山县| 金堂县| 焉耆| 革吉县| 东港市| 攀枝花市| 连江县| 惠来县|