Shulou(Shulou.com)06/03 Report--

Editor to share with you how to use vbs to achieve the use of ADSL dialing to change ip to vote, I believe most people do not know much about it, so share this article for your reference, I hope you can learn a lot after reading this article, let's go to know it!

I used to write a vbs that uses ADSL dialing to change ip traffic, as long as I change the refreshed page slightly (add an auto-submit js), but I can't find it and can't rewrite it.

Another way is to submit the vbs directly, but it has been written for a long time, but it has not been run, and it has been modified and posted later.

There is a problem when writing, that is, when you use the js of the web page to submit, it will jump to the page that displays the voting results, and a dialog box with a successful vote will pop up, which will affect the opening of the web page below. There is no way to block it, so a compromise is adopted by ending the browser process each time and browsing the back page.

The code is as follows:

Const ForAppending = 8

Const ForReading = 1

Const FileName = "iplog.txt"

Set objFSO = CreateObject ("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile (FileName, ForAppending, True)

ObjTextFile.WriteLine "- use ADSL dialing to change ip to swipe voting -"

ObjTextFile.WriteLine "& Now"

ObjTextFile.Close

How many tickets are there for For iTunes 1 To 300'

Do

'--Dial--

Set pp = WScript.CreateObject ("WScript.Shell")

Pp.run "rasdial Public Network / DISCONNECT", 0

Wscript.sleep 2000

Pp.run "rasdial Public Network LAN245561315 11811", 0

Set pp = Nothing

Wscript.sleep 2000

'--read 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

Local connection of If IPConfig.IPAddress (0) "169.254.1.232" Then 'adsl

IPAddress = IPConfig.IPAddress (0)

End If

Next

'--determine whether the IP is duplicated--

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

'--keep the IP record--

Set objFSO = CreateObject ("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile (FileName, ForAppending, True)

ObjTextFile.WriteLine IPAddress & "," & Now

ObjTextFile.Close

'--Open the browser and start browsing

Set ie=WScript.CreateObject ("InternetExplorer.Application")

Ie.visible=1'1 browser visible 0 not visible

Ie.navigate "http://www.169ol.com/

"'solve the Netcom redirection problem (Netcom is so annoying)

Wscript.sleep 3000

'The submitted modified form is also fine locally. You need to set the ie security lower, or you will be prompted every time.

Ie.navigate "http://www.link888.net/testspeed.html"

Wscript.sleep 10000

'- end the browser process-

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

The code is as follows:

SetTimeout ("document.form1.submit ()", 3000) / / submit in 3 seconds

This is submitted by browsing the web page (which contains an auto-submitted js). A better way is to submit the form directly using the vbs script.

However, this will have limitations. The voting system I tested does not restrict the submission address, but only limits the ip, so it can be submitted locally. If some servers are restricted, you can't submit the form directly.

You can use a frame to include the original web page, and then use the js script to submit the form in frame to break through.

If he disabled the frame reference, it would not be sent, and it would have to be implemented through software.

Prevent ticket brushing:

1. Restrict ip

two。 CAPTCHA (something a little more complicated, not too simple)

3. Limit the source of the form submission.

4. Prohibit external frame references

The above is all the contents of the article "how to use vbs to change ADSL dialing to ip to vote". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.