File Pumper
Hey guy in this tutorial you gonna learn how to make a file pumper , it simply adds bytes to increase the file size 
first of all include Imports System**** on your source code.
first of all include Imports System**** on your source code.- 1 The tools we need:
- 2 Buttons
- 1 TextBox
- 1 NumericTextBox
- 2 Changing tool names: (Tool name not tool text)
- Button1 = Browse Exe
- Button2 = Pump File
- And set the minimum on the NumericTextBox to 10
- 3 Coding:
Browse Exe Button
Code:Dim ofd As New OpenFileDialog ofd.Filter = "Exe File|*.exe" ofd.ShowDialog() TxtFileName.Text = ofd.FileName
Pump File Button
Code:Dim sfd As New SaveFileDialog sfd.Filter = "Exe Files|*.exe" sfd.ShowDialog() Dim filesize As Double = Val(NumericUpDown2.Value) IO.File.Copy(TxtFileName.Text, sfd.FileName) If rbtnMegaByte.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() Interaction.MsgBox("File Pumped!", MsgBoxStyle.Information)
