An Antivirus - my 1st tutorial
Posted: Sun Feb 13, 2011 5:46 pm
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]