Doesnt Seem To Work =S

[AzKay]

Ok, So, I didnt know if it was actually using the proxy, because the download wouldnt work, (you have to be in korea, or else it doesnt download, so im using proxy), So, I wasnt sure if they were working or not, So, I decided to put 5 msgbox's, and set the random to do 1-5, but nothings poping up, so I know its not working atall. help?

expandcollapse popup

DirCreate("Downloads")
_RandomProxy(Random(1,5))

$FileUrl = InputBox("Download", "Url:", "", "", -1, 10)
$FileName = InputBox("Save As", "Save As:", "", "", -1, 10)

  _Download($FileUrl, @scriptDir & "/Downloads/" & $FileName )
  Sleep(100)

Func _Download($File, $name)
    $FileSize1 = InetGetSize($file)
    InetGet($file, $name, 1, 1)
    While @InetGetActive
        
        $filedownload = Round(@InetGetBytesRead / 1048576, 5)
        $Percent = $filedownload / $FileSize1
        
        Traytip("", "" & $filedownload & "Mb", 10, 16)
        Sleep(250)
    WEnd
    Sleep(500)
EndFunc

Func _RandomProxy($Number)
     Select
          Case $Number = 1
               HttpSetProxy(2, "59.6.208.61:8080")
               MsgBox(1, "", "1")
          Case $Number = 2
               HttpSetProxy(2, "61.73.65.90:8080")
               MsgBox(1, "", "2")
          Case $Number = 3
               HttpSetProxy(2, "211.196.143.74:8080")
               MsgBox(1, "", "3")
          Case $Number = 4
               HttpSetProxy(2, "211.180.114.222:8080")
               MsgBox(1, "", "4")
          Case $Number = 5
               HttpSetProxy(2, "59.186.67.28:8080")
               MsgBox(1, "", "5")
          Case $Number = 6
               HttpSetProxy(2, "218.49.166.103:8080")
          Case $Number = 7
               HttpSetProxy(2, "61.38.148.33:8080")
          Case $Number = 8
               HttpSetProxy(2, "210.125.95.92:8080")
          Case $Number = 9
               HttpSetProxy(2, "61.39.139.200:8080")
          Case $Number = 10
               HttpSetProxy(2, "211.172.143.39:8080")
          Case $Number = 11
               HttpSetProxy(2, "61.40.189.91:8080")
          Case $Number = 12
               HttpSetProxy(2, "210.92.147.2:8080")
          Case $Number = 13
               HttpSetProxy(2, "61.106.76.216:8080")
          Case $Number = 14
               HttpSetProxy(2, "220.95.152.95:8080")
          Case $Number = 15
               HttpSetProxy(2, "59.19.184.42:8080")
          Case $Number = 16
               HttpSetProxy(2, "218.55.191.97:8080")
          Case $Number = 17
               HttpSetProxy(2, "61.39.28.16:8080")
          Case $Number = 18
               HttpSetProxy(2, "61.40.189.91:8080")
          Case $Number = 19
               HttpSetProxy(2, "220.89.87.40:8080")
          Case $Number = 20
               HttpSetProxy(2, "61.35.26.162:8080")
     EndSelect
EndFunc

[Skruge]

Random(1,5,1)

Edit: (Explanation) By default, a floating point value is returned.

Edited June 23, 2006 by Skruge

[AzKay]

Random(1,5,1)

Works, Thanks, but now ive a new problem, it starts, then it stops, but im guessing it has nothing to do with the script. ill try another link