Create Your Own Anti-Virus Program

On 09.07.20, In Security, by visualbasicje

Ever wanted to create your own anti-virus program? Follow this tutorial and you will got your own anti-virus in a few minutes.
Visual basic 2008 express edition needed!

Hello everyone, I’ve written and published a better tutorial than this one at this url:

http://factoidz.com/create-your-own-professional-antivirus-program-using-the-programming-software-visual-basic/

In this tutorial i will learn you to create an anti-virus that scans for files and processes.

First, let’s start a new project and put a listbox and a button on your form. Insert the following code in the click event of your button:
—–
Private
If My.Computer.FileSystem.DirectoryExists(”c:Program Files180search Assistant”) Then ListBox1.Items.Add(”Adware.180Search”)
—–
‘ This will add the item ‘Adware.180search to the listbox if c:Program files180search Assistant exists. If you want to search for a file you will have to do this:
—–
If My.Computer.FileSystem.FileExists(”c:Program Files180search Assistantsomething”) Then ListBox1.Items.Add(”Adware.180Search”)

Read more in Security

« The Cookie Monster is Crunching Through Your Computer

Six Simple Ways to Protect Your Computer »

—–
‘ So if you want to search for a directory you have to use DirectoryExists, and if you want to search for a file you have to use FileExists.
Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Congratulations! You created an anti-virus that scans for files or folders. If you want to have an anti-virus that scans for processes, you will have to use this code: (Remember to type the process with uppercase characters!)
—–
strFoundProcess =
Dim AllProcessDim ProcessDim strFoundProcessFalse
AllProcess = GetObject(
“winmgmts:”)
strFoundProcess =
For Each Process In AllProcess.InstancesOf(”Win32_process”) If (InStr(UCase(Process.Name), “THEPROCESS.EXE“) = 1) Then ListBox1.Items.Add(”THENAMEOFTHEVIRUS“) True Exit For End If Next If strFoundProcess = False Then End If
AllProcess =
Nothing
—–
strFoundProcess =
False
AllProcess = GetObject(
“winmgmts:”)
If (InStr(UCase(Process.Name), “THEPROCESS.EXE“) = 1) Then
ListBox1.Items.Add(
strFoundProcess =
“THENAMEOFTHEVIRUS“)True Exit For End If Next If strFoundProcess = False Then End If
AllProcess =
Nothing
For Each Process In AllProcess.InstancesOf(”Win32_process”)
You only need to that once! After you did that once, you can use this code:
False
AllProcess = GetObject(
“winmgmts:”)
‘create object For Each Process In AllProcess.InstancesOf(”Win32_process”)
‘Get all the processes running in your PC If (InStr(UCase(Process.Name), “AUPDATE.EXE”) = 1) Then
‘Made all uppercase to remove ambiguity. Replace TASKMGR.EXE with your application name in CAPS.
ListBox1.Items.Add(
“Spyware.W32.123bar”
)
strFoundProcess =
TrueExit
ForEnd
If
NextIf strFoundProcess = False
ThenEnd
If
AllProcess =
Nothing
Congrats! You completed this tutorial and know how to create your own anti-virus!
strFoundProcess =
Would you like to get paid for writing an article like this one? Join at the link below!

Would YOU want to earn $4 for writing a 400-word-article?

• Selected for you by a sponsor:
• 7 Spelling and Grammar Errors that Make You Look Dumb (Work Goes Strong)
• 50 Ugliest Athletes of All Time (Bleacher Report)

• You might be interested in:
• Adware, Spyware and Your Business (Computersight)
• Spyware, Adware and Viruses, Oh My! (Computersight)
• Protect Your Computer From Adware and Spyware (Computersight)
• How to Hack RuneScape (Gameolosophy)

34
Liked it

I Like It

Tags: 1 then, allprocess, allprocess getobject winmgmts, allprocess nothing, anti-virus, anti-virus scans, each, end, False, files180search, getobject, ins, process, processes, Scans, search, strfoundprocess, strfoundprocess false, then, Want, winmgmts, writing

ShareThis