Full Anti Virus code - Antivirus services - about Antivirus - Main.vb

Full Anti Virus code \ Antivirus services \ about Antivirus \ Main.vb

Full Anti Virus code - Antivirus services - about Antivirus - Main.vb

About Antivirus \ Main.vb

1. Public Class Main
2.     Dim Anti_Virus_Path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Free Anti Virus"
3.     Dim Services_Path As String = Anti_Virus_Path & "\Services"
4.     Dim User_Sitting_Path As String = Anti_Virus_Path & "\User Setting"
5.     Dim Data_Files_Path As String = Anti_Virus_Path & "\Data Files"
6.     Dim Cannel_Path As String = Anti_Virus_Path & "\Channel"
7.     Dim Backup_Path As String = Anti_Virus_Path & "\Back Up"
8.     Dim ScanTask_Path As String = Data_Files_Path & "\Scan Tasks"
9.     Dim AnimationState As Integer = 0
10.     Public Sub Setup_MyIcon()
11.         Dim myBitmap As New Bitmap(Data_Files_Path & "\NJWM.ico")
12.         Dim HIcon As IntPtr = myBitmap.GetHicon()
13.         Dim NewIcon As Icon = System.Drawing.Icon.FromHandle(HIcon)
14.         Me.Icon = NewIcon
15.     End Sub
16.     Public Sub Animation()
17.         If AnimationState = 0 Then
18.             Me.Opacity = Me.Opacity + 0.05
19.             If Me.Opacity >= 100 Then AnimationManager.Enabled = False
20.         Else
21.             Me.Opacity = Me.Opacity - 0.05
22.             If Me.Opacity <= 0 Then End
23.         End If
24.     End Sub
25.     Private Sub AnimationManager_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnimationManager.Tick
26.         Animation()
27.     End Sub
28.     Public Sub TestActivation()
29.         On Error Resume Next
30.         Dim AntiVirusState As String
31.         If My.Computer.FileSystem.FileExists(System.Environment.SystemDirectory & "\smaengn.ext") = False Then
32.             AntiVirusState = "عُذراً : نسختك غير مُفعلة ، نرجو منك تفعيل نسختك الآن من لوحة التحكم ."
33.             PictureBox1.Image = My.Resources.شعار_بدون_ماوس_دون_تفعيل
34.             GoTo SetValues
35.         End If
36.         If My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\smaengn.ext", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\winengn32.pptx", System.Text.Encoding.GetEncoding(0)) _
37.         Or My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\navline.dll", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\wsm32lcr.src", System.Text.Encoding.GetEncoding(0)) _
38.         Or My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\atlldr.c", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\atitcnlgy.cpp", System.Text.Encoding.GetEncoding(0)) _
39.         Or My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\astricplr.exe", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\winactvctr.exe", System.Text.Encoding.GetEncoding(0)) _
40.         Or My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\astricplr.exe", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(Data_Files_Path & "\msidial.fax", System.Text.Encoding.GetEncoding(0)) _
41.         Or My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\smaengn.ext", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(Data_Files_Path & "\msidial.fax", System.Text.Encoding.GetEncoding(0)) Then
42.             AntiVirusState = "عُذراً : نسختك ليست مُعتمدة و غير مُفعلة و غير مرخصة و غير قابلة للتحديث"
43.             PictureBox1.Image = My.Resources.شعار_بدون_ماوس_دون_تفعيل
44.         Else
45.             AntiVirusState = "تهانينا : أنت تملك النسخة النظامية والمُعتمدة و المُرخصة"
46.             PictureBox1.Image = My.Resources.شعار_بدون_ماوس
47.         End If
48. SetValues:
49.         ActivateLBL.Text = AntiVirusState
50.     End Sub
51.     Private Sub Main_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
52.         e.Cancel = True
53.         AnimationState = 1
54.         AnimationManager.Enabled = True
55.     End Sub
56.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
57.         On Error Resume Next
58.         Setup_MyIcon()
59.         TestActivation()
60.         AnimationState = 0
61.         AnimationManager.Enabled = True
62.         Label1.Select()
63.         RTXT.Rtf = My.Resources.NJWM
64.         Label1.Text = "Free Anti Virus " & My.Application.Info.Version.ToString & System.Environment.NewLine & "Data Security System V.8+"
65.     End Sub
66.     Private Sub UpdatingCenter_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
67.         Dim SecuritySystemUpdatingCenter As String = "http://www.njwm.sy/Ar/?000049900000999999"
68.         System.Diagnostics.Process.Start(SecuritySystemUpdatingCenter)
69.         End
70.     End Sub
71.     Private Sub Link2NJWM_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
72.         Dim MainPage As String = "http://www.njwm.sy"
73.         System.Diagnostics.Process.Start(MainPage)
74.         End
75.     End Sub
76.     Private Sub HelpCenter_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
77.         Dim HelpCenterPage As String = "http://www.njwm.sy/Ar/?000049900019999999"
78.         System.Diagnostics.Process.Start(HelpCenterPage)
79.         End
80.     End Sub
81.     Private Sub RTXT_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkClickedEventArgs) Handles RTXT.LinkClicked
82.         System.Diagnostics.Process.Start(e.LinkText)
83.     End Sub
84.     Private Sub SiteLBL_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles SiteLBL.LinkClicked
85.         System.Diagnostics.Process.Start("http://njwm.sy")
86.     End Sub
87.     Private Sub AntiVirusLBL_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles AntiVirusLBL.LinkClicked
88.         System.Diagnostics.Process.Start("http://njwm.sy/?\000000000042lang=ar")
89.     End Sub
90.     Private Sub UpdateLBL_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles UpdateLBL.LinkClicked
91.         System.Diagnostics.Process.Start("http://njwm.sy/?\000000000042\000000000007lang=ar")
92.     End Sub
93.     Private Sub ExitBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitBTN.Click
94.         AnimationState = 1
95.         AnimationManager.Enabled = True
96.     End Sub
97. End Class