Hacker WarRock

[Ṗяø] ◄Яɪɢнτ · Posted: Tue 2 Nov 2010 - 06:53 Post subject: [tuto] File pumper !

Outils:

1 TextBox
2 RadioButton <Kilobyte><Megabyte>
2 Button <Pump><...>
1 NumericUpDown <10>

Button1

Code :

Dim sfd As New SaveFileDialog
        sfd.Filter = \"Exe Files|*.exe\"
        sfd.ShowDialog()
        Dim filesize As Double = Val(NumericUpDown1.Value)
        IO.File.Copy(TextBox1.Text, sfd.FileName)
        If RadioButton1.Checked Then
            filesize = filesize * 1024
        End If
        If RadioButton2.Checked Then
            filesize = filesize * 1048576
        End If
        Dim filetopump = IO.File.OpenWrite(sfd.FileName)
        Dim size = filetopump.Seek(0, IO.SeekOrigin.[End])
        While size < filesize
            filetopump.WriteByte(0)
            size += 1
        End While
        filetopump.Close()
        MsgBox(\"Pumped!\")

Button2

Code :

Dim ofd As New OpenFileDialog
        ofd.Filter = \"Exe Files|*.exe\"
        ofd.ShowDialog()
        TextBox1.Text = ofd.FileName

PS: Le forum affiche / avec les guillemets vous devez les enlever

xToXxYkOzx · Posted: Sat 22 Oct 2011 - 19:40 Post subject: [tuto] File pumper !

Sa sert à rendre un fichier plus volumineux ???
_________________
Si "Dieux" nous a crée, alors il serait fort en programmation. ('Owned')

ImageShack.us