Process Modules Project

Process Modules Project source code and complete project in "Process Modules and ProcessName Collecter" e-learning section.
Coded by: Wesam Naffaa

Puzzle Game project

Full Puzzle Game source code and complete project in "Puzzle Game project" e-learning section.
NOTE: You must read "Puzzle Game - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Accounting Manager project

Full Accounting manager source code and complete project in "Universal Accounting Manager project" e-learning section.
NOTE: You must read "Universal Accounting Manager - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption project

Full File encryption center source code and complete project in "File encryption center project" e-learning section.
NOTE: You must read "File encryption center - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

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
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

Valuable E-Book

Hello,
Baby first step is a friendly flashcards offering a growing collection of creative and educational ideas to help the toddler to learn the alphabet, so I put images that would be attractive to babies.

Support independent publishing: Buy this e-book on Lulu.