*Very* Basic Anti-Virus
Posted: Wed Nov 11, 2009 11:43 pm
NOTE: THIS IS NOT A FULL ANTIVIRUS. THIS IS A START CODE OF WHAT YOU CAN EDIT TO MAKE YOUR OWN!
Hello,
I am going to show you all how to make a basic antivirus! Most people think it would be extremely hard, but with the way I'm going to show you, you won't believe your eyes
lol.
OK, let's get down to business.
First:
Add 2 Buttons
Add 1 Listbox
Next:
Name 1 button: btnScan, and make it's caption Scan
Name the other button: btnRemove, and make it's caption Remove Selected Item
Name the listbox: lstViruses
Then,
Arrange the controls as shown in this picture:
![Image]()
Finally,
Use this code for the btnScan click event:
The scan button:
~GoodGuy17~
Hello,
I am going to show you all how to make a basic antivirus! Most people think it would be extremely hard, but with the way I'm going to show you, you won't believe your eyes
lol.OK, let's get down to business.
First:
Add 2 Buttons
Add 1 Listbox
Next:
Name 1 button: btnScan, and make it's caption Scan
Name the other button: btnRemove, and make it's caption Remove Selected Item
Name the listbox: lstViruses
Then,
Arrange the controls as shown in this picture:
Finally,
Use this code for the btnScan click event:
Code: Select all
Use this code for the btnRemove click event:
If My.Computer.FileSystem.FileExists("E:\Program Files\Activity Keylogger\akeylogger.exe") Then
lstViruses.Items.Add("Keylogger.AKeyLogger")
End If
Code: Select all
If you want to add more to your "database", then google "Viruses" and they should tell you the directory and virus name. If you change the code, it should be like this: If lstViruses.SelectedItem = ("Keylogger.AKeyLogger") Then
My.Computer.FileSystem.DeleteFile("E:\Program Files\Activity Keylogger\akeylogger.exe")
MsgBox("Deleted.")
lstViruses.Items.Remove("Keylogger.AKeyLogger")
End If
The scan button:
Code: Select all
The remove button:
If My.Computer.FileSystem.FileExists(Directory of virus) Then
lstViruses.Items.Add(Virus name)
End IfCode: Select all
Congratulations on your antivirus!If lstViruses.SelectedItem = (Virus name) Then
My.Computer.FileSystem.DeleteFile(Directory of virus)
MsgBox("Deleted.")
lstViruses.Items.Remove(Virus name)
End If~GoodGuy17~
