Full Anti Virus code - Antivirus services - about Antivirus - Resources

Full Anti Virus code \ Antivirus services \ about Antivirus \ Resources

Full Anti Virus code - Antivirus services - about Antivirus - Resources

The important thing in glad programming user interface is the "Resources".
Each Visual Studio.NET project has Resources folder to store all type of images and bitmaps or icons etc...
In our tutorials you must download the Resources folder and paste it to your project folder, to make sure that your project will working as we programming.
Download the About Antivirus / Resources folder from Google Drive.

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

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

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

Full Anti Virus code \ Antivirus services \ about Antivirus

About Antivirus \ Main.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class Main
3.     Inherits System.Windows.Forms.Form
4.  
5.     'Form overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.
20.     <System.Diagnostics.DebuggerStepThrough()> _
21.     Private Sub InitializeComponent()
22.         Me.components = New System.ComponentModel.Container
23.         Me.Label1 = New System.Windows.Forms.Label
24.         Me.Label4 = New System.Windows.Forms.Label
25.         Me.AnimationManager = New System.Windows.Forms.Timer(Me.components)
26.         Me.RTXT = New System.Windows.Forms.RichTextBox
27.         Me.PictureBox1 = New System.Windows.Forms.PictureBox
28.         Me.UpdateLBL = New System.Windows.Forms.LinkLabel
29.         Me.AntiVirusLBL = New System.Windows.Forms.LinkLabel
30.         Me.SiteLBL = New System.Windows.Forms.LinkLabel
31.         Me.ActivateLBL = New System.Windows.Forms.Label
32.         Me.ExitBTN = New System.Windows.Forms.Button
33.         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
34.         Me.SuspendLayout()
35.         '
36.         'Label1
37.         '
38.         Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
39.         Me.Label1.BackColor = System.Drawing.Color.Transparent
40.         Me.Label1.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
41.         Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
42.         Me.Label1.Location = New System.Drawing.Point(403, 431)
43.         Me.Label1.Name = "Label1"
44.         Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
45.         Me.Label1.Size = New System.Drawing.Size(310, 37)
46.         Me.Label1.TabIndex = 0
47.         Me.Label1.Text = "NJWM Anti Virus"
48.         Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
49.         '
50.         'Label4
51.         '
52.         Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Top
53.         Me.Label4.BackColor = System.Drawing.Color.Transparent
54.         Me.Label4.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
55.         Me.Label4.ForeColor = System.Drawing.SystemColors.HotTrack
56.         Me.Label4.ImageAlign = System.Drawing.ContentAlignment.TopCenter
57.         Me.Label4.Location = New System.Drawing.Point(188, 9)
58.         Me.Label4.Name = "Label4"
59.         Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.Yes
60.         Me.Label4.Size = New System.Drawing.Size(346, 50)
61.         Me.Label4.TabIndex = 3
62.         Me.Label4.Text = "NJWM Group Corporation"
63.         Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopCenter
64.         '
65.         'AnimationManager
66.         '
67.         Me.AnimationManager.Interval = 1
68.         '
69.         'RTXT
70.         '
71.         Me.RTXT.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
72.                     Or System.Windows.Forms.AnchorStyles.Left) _
73.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
74.         Me.RTXT.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
75.         Me.RTXT.Location = New System.Drawing.Point(12, 85)
76.         Me.RTXT.Name = "RTXT"
77.         Me.RTXT.ShortcutsEnabled = False
78.         Me.RTXT.Size = New System.Drawing.Size(698, 342)
79.         Me.RTXT.TabIndex = 88
80.         Me.RTXT.Text = ""
81.         '
82.         'PictureBox1
83.         '
84.         Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.Top
85.         Me.PictureBox1.Image = Global.About.My.Resources.Resources.شعار_بدون_ماوس
86.         Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
87.         Me.PictureBox1.Name = "PictureBox1"
88.         Me.PictureBox1.Size = New System.Drawing.Size(64, 64)
89.         Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
90.         Me.PictureBox1.TabIndex = 89
91.         Me.PictureBox1.TabStop = False
92.         '
93.         'UpdateLBL
94.         '
95.         Me.UpdateLBL.Anchor = System.Windows.Forms.AnchorStyles.Bottom
96.         Me.UpdateLBL.AutoSize = True
97.         Me.UpdateLBL.BackColor = System.Drawing.Color.Transparent
98.         Me.UpdateLBL.Location = New System.Drawing.Point(449, 446)
99.         Me.UpdateLBL.Name = "UpdateLBL"
100.         Me.UpdateLBL.Size = New System.Drawing.Size(57, 13)
101.         Me.UpdateLBL.TabIndex = 92
102.         Me.UpdateLBL.TabStop = True
103.         Me.UpdateLBL.Text = "- Supports"
104.         '
105.         'AntiVirusLBL
106.         '
107.         Me.AntiVirusLBL.Anchor = System.Windows.Forms.AnchorStyles.Bottom
108.         Me.AntiVirusLBL.AutoSize = True
109.         Me.AntiVirusLBL.BackColor = System.Drawing.Color.Transparent
110.         Me.AntiVirusLBL.Location = New System.Drawing.Point(351, 446)
111.         Me.AntiVirusLBL.Name = "AntiVirusLBL"
112.         Me.AntiVirusLBL.Size = New System.Drawing.Size(92, 13)
113.         Me.AntiVirusLBL.TabIndex = 91
114.         Me.AntiVirusLBL.TabStop = True
115.         Me.AntiVirusLBL.Text = "- NJWM Anti Virus"
116.         '
117.         'SiteLBL
118.         '
119.         Me.SiteLBL.Anchor = System.Windows.Forms.AnchorStyles.Bottom
120.         Me.SiteLBL.AutoSize = True
121.         Me.SiteLBL.BackColor = System.Drawing.Color.Transparent
122.         Me.SiteLBL.Location = New System.Drawing.Point(209, 446)
123.         Me.SiteLBL.Name = "SiteLBL"
124.         Me.SiteLBL.Size = New System.Drawing.Size(136, 13)
125.         Me.SiteLBL.TabIndex = 90
126.         Me.SiteLBL.TabStop = True
127.         Me.SiteLBL.Text = "- NJWM Group Corporation"
128.         '
129.         'ActivateLBL
130.         '
131.         Me.ActivateLBL.Anchor = System.Windows.Forms.AnchorStyles.Top
132.         Me.ActivateLBL.BackColor = System.Drawing.Color.Transparent
133.         Me.ActivateLBL.Font = New System.Drawing.Font("Andalus", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
134.         Me.ActivateLBL.ForeColor = System.Drawing.Color.DarkSlateGray
135.         Me.ActivateLBL.Location = New System.Drawing.Point(131, 59)
136.         Me.ActivateLBL.Name = "ActivateLBL"
137.         Me.ActivateLBL.RightToLeft = System.Windows.Forms.RightToLeft.Yes
138.         Me.ActivateLBL.Size = New System.Drawing.Size(460, 23)
139.         Me.ActivateLBL.TabIndex = 93
140.         Me.ActivateLBL.Text = "المُنتج غير مُفعل NJWM Anti Virus يحتاج للتفعيل"
141.         Me.ActivateLBL.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
142.         '
143.         'ExitBTN
144.         '
145.         Me.ExitBTN.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
146.         Me.ExitBTN.Location = New System.Drawing.Point(12, 433)
147.         Me.ExitBTN.Name = "ExitBTN"
148.         Me.ExitBTN.Size = New System.Drawing.Size(75, 23)
149.         Me.ExitBTN.TabIndex = 94
150.         Me.ExitBTN.Text = "إغلاق"
151.         Me.ExitBTN.UseVisualStyleBackColor = True
152.         '
153.         'Main
154.         '
155.         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
156.         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
157.         Me.BackColor = System.Drawing.Color.White
158.         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
159.         Me.ClientSize = New System.Drawing.Size(722, 468)
160.         Me.Controls.Add(Me.ExitBTN)
161.         Me.Controls.Add(Me.PictureBox1)
162.         Me.Controls.Add(Me.ActivateLBL)
163.         Me.Controls.Add(Me.UpdateLBL)
164.         Me.Controls.Add(Me.AntiVirusLBL)
165.         Me.Controls.Add(Me.SiteLBL)
166.         Me.Controls.Add(Me.RTXT)
167.         Me.Controls.Add(Me.Label4)
168.         Me.Controls.Add(Me.Label1)
169.         Me.DoubleBuffered = True
170.         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
171.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
172.         Me.MaximizeBox = False
173.         Me.Name = "Main"
174.         Me.Opacity = 0
175.         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
176.         Me.Text = "About NJWM Group Corporation"
177.         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
178.         Me.ResumeLayout(False)
179.         Me.PerformLayout()
180.  
181.     End Sub
182.     Friend WithEvents Label1 As System.Windows.Forms.Label
183.     Friend WithEvents Label4 As System.Windows.Forms.Label
184.     Friend WithEvents AnimationManager As System.Windows.Forms.Timer
185.     Friend WithEvents RTXT As System.Windows.Forms.RichTextBox
186.     Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
187.     Friend WithEvents UpdateLBL As System.Windows.Forms.LinkLabel
188.     Friend WithEvents AntiVirusLBL As System.Windows.Forms.LinkLabel
189.     Friend WithEvents SiteLBL As System.Windows.Forms.LinkLabel
190.     Friend WithEvents ActivateLBL As System.Windows.Forms.Label
191.     Friend WithEvents ExitBTN As System.Windows.Forms.Button
192.  
193. End Class