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.

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)

File Pumper

Post a Reply

Similar Threads

Tags for this Thread