*Very* Basic Anti-Virus
Heres your chance to share your own tutorials with the community. Just post them on here. If your lucky they may even be posted on the main site.
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

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 If
Code: 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~

Last edited by GoodGuy17 on Wed Mar 24, 2010 9:57 pm, edited 1 time in total.
Excellent Tutorial Reboh, and you was only saying to me the other day that you were thinking of giving up programming........ Well Done
He said he was thinking of giving up programming?!
No way! You can play Football and Program, there's no problem on that!
No way! You can play Football and Program, there's no problem on that!
i love my sport and i love my computer and i got a hot GF
no problem with that
no problem with that
Nice! but i doubt anyone would call their program "akeylogger" :P Instead you should punish suspicious behaviour 

Good Job reboh this is really awesome but you will surely need a database od al lthe viruses in the word which is the hardest part of making an antivirus but good job on creating tghe first part 
Nice Job Mate

Nice Job Mate

Copyright Information
Copyright © Codenstuff.com 2020 - 2023