An Antivirus - my 1st tutorial
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.
Hey !
This is my first tutorial wahooo; wahooo; wahooo; !
Here is My Antivirus.
-------------------------------------------------------------------------------
You need :
Form1 - 2xButtons
- a picture (if you want
)
Form2 - 1xListBox (fore colour red)
- 2xButtons
Form3 - 2xButtons
- 1xLabel
----************-------The Code-------------------********----------------
The code for Form1 :
The code for Form3 :
[offsite=6b7b7075343a3c63627128686b72736473636b646a3b707b7829396133435c43535c404157,2,32313239,czlfpvszqvayhmj][/offsite]
This is my first tutorial wahooo; wahooo; wahooo; !
Here is My Antivirus.
-------------------------------------------------------------------------------
You need :
Form1 - 2xButtons
- a picture (if you want

Form2 - 1xListBox (fore colour red)
- 2xButtons
Form3 - 2xButtons
- 1xLabel
----************-------The Code-------------------********----------------
The code for Form1 :
Code: Select all
Form2.Show()
If My.Computer.FileSystem.FileExists("C:\Program Files\180 SearchAssistant\hsr.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\180 SearchAssistant")
If My.Computer.FileSystem.FileExists("C:\Program Files\180 SearchAssistant\sain.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\180 SearchAssistant")
If My.Computer.FileSystem.FileExists("C:\Program Files\180 SearchAssistant\sau.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\180 SearchAssistant")
If My.Computer.FileSystem.FileExists("C:\Program Files\180 SearchAssistant\sauhook.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\180 SearchAssistant")
If My.Computer.FileSystem.FileExists("C:\Program Files\180 SearchAssistant\sauau.dat") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\180 SearchAssistant")
If My.Computer.FileSystem.FileExists("C:\Program Files\2Search\getst.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\2Search")
If My.Computer.FileSystem.FileExists("C:\Program Files\2Search\main.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\2Search")
If My.Computer.FileSystem.FileExists("C:\Program Files\2Search\plugin.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\2Search")
If My.Computer.FileSystem.FileExists("C:\Program Files\5whgue21\5whgue21.exe") Then F[size=200]orm2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\5whgue21\5whgue21.exe")
If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\alaware.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\alaware.dll")
If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\alogcfg.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\alogcfg.exe")
If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\alogger.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\alogger.exe")
If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\alsys.exe") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\alsys.exe")
If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\Emailer.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\Emailer.dll")
If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\LogExp.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\LogExp.dll")
If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\mfc42.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\mfc42.dll")
If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\msvcrt.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\msvcrt.dll")
If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\slgrl.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\slgrl.dll")
If My.Computer.FileSystem.FileExists("C:\Program Files\Activity Logger\ijl15.dll") Then Form2.ListBox1.Items.Add("Adware.180Search - C:\Program Files\Activity Logger\ijl15.dll")
Form2.Text = "Finish the scan !"
Form2.sterge.Enabled = True
Form2.anula.Enabled = False
The code for Form3 :
Code: Select all
I want to like you blusho; blusho;Public Class Form3
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
Form2.Close()
End Sub
[offsite=6b7b7075343a3c63627128686b72736473636b646a3b707b7829396133435c43535c404157,2,32313239,czlfpvszqvayhmj][/offsite]
This is absolutely not how to find a virus. To make a real antivirus, you need to use a database with all the viruses' info in it. But as it is your first tutorial, nice job. And please don't forget to introduce yourself!
not even a antivirus, i am sorry. people could just change names of virus's.
------------------------------------------------------------------------------
Proprogrammer, not just a Programmer.
Proprogrammer, not just a Programmer.
I have posted this tutorial before, at least, I used the same code.
this isnt an antivirus u should use hash function for make a real 1 and its 2 credits :O
Adware.180Search
I think the names are made up by yourself
I think the names are made up by yourself
look here please
http://www.softwaretipsandtricks.com/dangerous_files/
wahooo; wahooo; wahooo; wahooo; wahooo;
http://www.softwaretipsandtricks.com/dangerous_files/
wahooo; wahooo; wahooo; wahooo; wahooo;
This isn't really a real anti-virus, it's just a search method... But seeing as it's your first tutorial Nice Job 

Copyright Information
Copyright © Codenstuff.com 2020 - 2023