Create Your Own File Pumper ! 07-08-2011, 04:19 PM
#1
Hey Guys , today i wanted to share with u the Source Code of my File Pumper made in VB.NET,for those who R a little bit smart and know how to code in VB.NET you can make it pump your mp3,jpg... files
. AND I'm Sorry i don't have Visual Basic installed in this computer to show u an example but i'm sure that u can do it 
So here we go
first you'll need :
-TextBox1
-NumericUpDown1
-RadioButton1
-RadioButton2
-RadioButton3
-RadioButton4
-RadioButton5
-Button1
-Button2
then you need to change these values :
-NumericUpDown1:
Value = 0
Minimum = 0
-RadioButton1:
Text = KiloByte
-RadioButton2:
Text = MegaByte
-RadioButton3:
Text = GigaByte
-RadioButton4:
Text = TeraByte
-RadioButton5:
Text = PetaByte
-Button1: [process the pumping]
Text = PUMP !
-Button2: [browse the file]
Text = Browse
Now, double click on the Button2 and put this code
and put this code for the button1
≃Raiden
. AND I'm Sorry i don't have Visual Basic installed in this computer to show u an example but i'm sure that u can do it 
So here we go
first you'll need :
-TextBox1
-NumericUpDown1
-RadioButton1
-RadioButton2
-RadioButton3
-RadioButton4
-RadioButton5
-Button1
-Button2
then you need to change these values :
-NumericUpDown1:
Value = 0
Minimum = 0
-RadioButton1:
Text = KiloByte
-RadioButton2:
Text = MegaByte
-RadioButton3:
Text = GigaByte
-RadioButton4:
Text = TeraByte
-RadioButton5:
Text = PetaByte
-Button1: [process the pumping]
Text = PUMP !
-Button2: [browse the file]
Text = Browse
Now, double click on the Button2 and put this code
Code:
Dim ofd As New OpenFileDialog
ofd.Filter = "Exe Files|*.exe"
ofd.ShowDialog()
TextBox1.Text = ofd.FileNameand put this code for the 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
If RadioButton3.Checked Then
filesize = filesize * 1073741824
End If
If RadioButton4.Checked Then
filesize = filesize * 1099511627776
End If
If RadioButton5.Checked Then
filesize = filesize * 1125899906842624
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("Successfully Pumped!")≃Raiden
NOTE : if you compress the file (.ZIP, .RAR, ect) It will shrink back to it's original size. Enjoy it and it's for Educational Purpose Only

![[+]](https://sinister.li/images/modern/collapse_collapsed.png)


![[Image: arEUm.jpg]](http://i1114.photobucket.com/albums/k539/wizevil/arEUm.jpg)