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

Process Modules and ProcessName Collecter - Form1.vb

Process Modules and ProcessName Collecter / Form1.vb
Process Modules and ProcessName Collecter - Form1.vb
Process Modules and ProcessName Collecter - Form1.vb

Form1.vb
  1. Public Class Form1
  2.     Dim ProNum As Integer = 0
  3.     Private Sub GetBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetBTN.Click
  4.         On Error Resume Next
  5.         LB.Items.Clear()
  6.         Dim Myprocesses() As Process
  7.         Dim Myprocess As Process
  8.         Myprocesses = Process.GetProcesses
  9.         For Each Myprocess In Myprocesses
  10.             If Myprocess.ProcessName.ToLower = NameTXT.Text.ToLower Then
  11.                 LB.Items.Add(Myprocess.ProcessName & " - " & Myprocess.MainWindowTitle)
  12.                 For Addad As Integer = 0 To Myprocess.Modules.Count - 1
  13.                     ProNum = ProNum + 1
  14.                     LB.Items.Add(Myprocess.Modules.Item(Addad).FileName)
  15.                 Next
  16.             End If
  17.         Next
  18.         If LB.Items.Count <= 0 Then MsgBox("لم يتم التعرف على برنامج الطلب", MsgBoxStyle.OkOnly, "خطأ")
  19.         ProNum = 0
  20.     End Sub
  21.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  22.         Me.Left = 0
  23.     End Sub
  24.     Private Sub NameTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles NameTXT.KeyDown
  25.         If e.KeyCode = Keys.Enter Then

Process Modules and ProcessName Collecter - Form1.Designer.vb

Process Modules and ProcessName Collecter - Form1.Designer.vb

Process Modules and ProcessName Collecter - Form1.Designer.vb
Process Modules and ProcessName Collecter - Form1.Designer.vb

Form1.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Form1
  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.Manager = New System.Windows.Forms.Timer(Me.components)
  24.         Me.LB = New System.Windows.Forms.ListBox
  25.         Me.GetBTN = New System.Windows.Forms.Button
  26.         Me.NameTXT = New System.Windows.Forms.TextBox

Puzzle Game - Resources

Puzzle Game / Resources
Puzzle Game - Resources
Puzzle Game - 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 Puzzle Game - Resources folder from Google Drive.



Puzzle Game - Skill3.vb

Puzzle Game / Skill3.vb
Puzzle Game - Skill3.vb
Puzzle Game - Skill3.vb

Skill3.vb
  1. Public Class Skill3
  2.     Dim MoveState As Integer = 0
  3.     Dim MoveObject As Object
  4.     Dim SkillPics As Integer = 0
  5.     Dim CountIMG As Integer = 0
  6.     Public Sub SetubCursor(ByVal MyImage As Bitmap)
  7.         On Error Resume Next
  8.         Dim bmCur As New Bitmap(MyImage)
  9.         Dim ptrCur As IntPtr = bmCur.GetHicon
  10.         Dim cur As Cursor
  11.         cur = New Cursor(ptrCur)
  12.         Me.Cursor = cur
  13.     End Sub
  14.     Private Sub Skill3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  15.         SetubCursor(My.Resources.cursor_copy)
  16.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
  17.         Me.WindowState = FormWindowState.Maximized
  18.         SkillPics = 30
  19.     End Sub
  20.     Public Sub ImageClicks(ByRef Pictures As Object)
  21.         If MoveState = 0 Then
  22.             MoveState = 1
  23.             SetubCursor(Pictures.Image)
  24.             MoveObject = Pictures
  25.             MoveObject.visible = False
  26.         Else
  27.             MoveState = 0
  28.             SetubCursor(My.Resources.cursor_copy)

Puzzle Game - Skill3.Designer.vb

Puzzle Game / Skill3.Designer.vb
Puzzle Game - Skill3.Designer.vb
Puzzle Game - Skill3.Designer.vb

Skill3.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Skill3
  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.Label3 = New System.Windows.Forms.Label
  23.         Me.Label4 = New System.Windows.Forms.Label
  24.         Me.PictureBox16 = New System.Windows.Forms.PictureBox
  25.         Me.Pic16 = New System.Windows.Forms.PictureBox
  26.         Me.Pic14 = New System.Windows.Forms.PictureBox
  27.         Me.Pic13 = New System.Windows.Forms.PictureBox

Puzzle Game - Skill2.vb

Puzzle Game - Skill2.vb
Puzzle Game - Skill2.vb
Puzzle Game - Skill2.vb

Skill2.vb
  1. Public Class Skill2
  2.     Dim MoveState As Integer = 0
  3.     Dim MoveObject As Object
  4.     Dim SkillPics As Integer = 0
  5.     Dim CountIMG As Integer = 0
  6.     Public Sub SetubCursor(ByVal MyImage As Bitmap)
  7.         On Error Resume Next
  8.         Dim bmCur As New Bitmap(MyImage)
  9.         Dim ptrCur As IntPtr = bmCur.GetHicon
  10.         Dim cur As Cursor
  11.         cur = New Cursor(ptrCur)
  12.         Me.Cursor = cur
  13.     End Sub
  14.     Private Sub Skill2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  15.         SetubCursor(My.Resources.cursor_copy)
  16.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
  17.         Me.WindowState = FormWindowState.Maximized
  18.         SkillPics = 16
  19.     End Sub
  20.     Public Sub ImageClicks(ByRef Pictures As Object)
  21.         If MoveState = 0 Then
  22.             MoveState = 1
  23.             SetubCursor(Pictures.Image)
  24.             MoveObject = Pictures
  25.             MoveObject.visible = False
  26.         Else

Puzzle Game - Skill2.Designer.vb

Puzzle Game - Skill2.Designer.vb
Puzzle Game - Skill2.Designer.vb
Puzzle Game - Skill2.Designer.vb

Skill2.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Skill2
  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.Pic1 = New System.Windows.Forms.PictureBox
  23.         Me.Pic2 = New System.Windows.Forms.PictureBox
  24.         Me.Pic3 = New System.Windows.Forms.PictureBox
  25.         Me.Pic4 = New System.Windows.Forms.PictureBox
  26.         Me.Pic5 = New System.Windows.Forms.PictureBox
  27.         Me.Pic6 = New System.Windows.Forms.PictureBox
  28.         Me.Pic7 = New System.Windows.Forms.PictureBox
  29.         Me.Pic8 = New System.Windows.Forms.PictureBox

Puzzle Game - Skill1.vb


Puzzle Game / Skill1.vb
Puzzle Game - Skill1.vb
Puzzle Game - Skill1.vb

Skill1.vb
  1. Public Class Skill1
  2.     Dim MoveState As Integer = 0
  3.     Dim MoveObject As Object
  4.     Dim SkillPics As Integer = 0
  5.     Dim CountIMG As Integer = 0
  6.     Public Sub SetubCursor(ByVal MyImage As Bitmap)
  7.         On Error Resume Next
  8.         Dim bmCur As New Bitmap(MyImage)
  9.         Dim ptrCur As IntPtr = bmCur.GetHicon
  10.         Dim cur As Cursor
  11.         cur = New Cursor(ptrCur)
  12.         Me.Cursor = cur
  13.     End Sub
  14.     Private Sub Game_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  15.         SetubCursor(My.Resources.cursor_copy)
  16.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
  17.         Me.WindowState = FormWindowState.Maximized
  18.         SkillPics = 9
  19.     End Sub
  20.     Private Sub MPic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic1.Click
  21.         If MoveState = 0 Then
  22.             MoveState = 1
  23.             SetubCursor(MPic1.Image)
  24.             MoveObject = MPic1
  25.             MoveObject.visible = False
  26.         Else
  27.             MoveState = 0
  28.             SetubCursor(My.Resources.cursor_copy)
  29.         End If
  30.     End Sub
  31.     Private Sub MPic2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic2.Click

Puzzle Game - Skill1.Designer.vb

Puzzle Game / Skill1.Designer.vb
Puzzle Game - Skill1.Designer.vb
Puzzle Game - Skill1.Designer.vb

Skill1.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Skill1
  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.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Skill1))
  23.         Me.Label1 = New System.Windows.Forms.Label
  24.         Me.Label2 = New System.Windows.Forms.Label
  25.         Me.Label3 = New System.Windows.Forms.Label

File encryption center - Resources

File encryption center / Resources
File encryption center - Resources
File encryption center - 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 File encryption center - Resources folder from Google Drive.


File encryption center - Setup.vb

File encryption center - Setup.vb
File encryption center - Setup.vb
File encryption center - Setup.vb

Setup.vb
  1. Public Class Setup
  2.     Dim MyName As String = My.Application.Info.AssemblyName
  3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
  4.     Dim SetupStatus As Integer = 0
  5.     'Dim RMenuText As String = "۞ تشفير / فك تشفير"
  6.     Dim RMenuText As String = MyName
  7.     Dim SetupUIState As Integer = 0
  8.     Private Sub Setup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  9.         On Error Resume Next
  10.         Me.Text = MyName & " - تثبيت"
  11.         Me.MaximizeBox = False
  12.         InfoLBL.Text = "تثبيت : " & MyName
  13.         StatusLBL.Text = "مرحباً بك في تثبيت " & MyName & System.Environment.NewLine & "إضغط التالي للإنتقال للصفحة التالية ."
  14.         BrevBTN.Enabled = False
  15.         SetupStatus = 1
  16.     End Sub
  17.     Public Sub SetupProgram()
  18.         On Error Resume Next
  19.         My.Computer.FileSystem.CreateDirectory(MyDir)
  20.         My.Computer.FileSystem.CopyFile(System.Environment.CurrentDirectory & "\" & MyName & ".exe", MyDir & "\" & MyName & ".exe", False)

File encryption center - Setup.Designer.vb

File encryption center / Setup.Designer.vb
File encryption center - Setup.Designer.vb
File encryption center - Setup.Designer.vb

Setup.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Setup
  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.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Setup))
  24.         Me.InfoLBL = New System.Windows.Forms.Label
  25.         Me.NextBTN = New System.Windows.Forms.Button
  26.         Me.CloseBTN = New System.Windows.Forms.Button

File encryption center - Setting.vb

File encryption center / Setting.vb
File encryption center - Setting.vb
File encryption center - Setting.vb

Setting.vb
  1. Public Class Setting
  2.     Dim MyName As String = My.Application.Info.AssemblyName
  3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
  4.     Dim SettingsPath As String = MyDir
  5.     Private Sub Setting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         On Error Resume Next
  7.         Me.MaximizeBox = False
  8.         Me.Text = MyName & " - إعدادات البرنامج"
  9.         InfoLBL.Text = MyName & System.Environment.NewLine & My.Application.Info.Version.ToString
  10.         ReadValues()
  11.     End Sub
  12.     Public Sub ReadValues()
  13.         On Error Resume Next
  14.         Dim MyReader As Integer = 0
  15.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\prio.dll"))
  16.         prio.Text = prio.Items.Item(MyReader).ToString
  17.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\interval.dll"))
  18.         interval.Text = interval.Items.Item(MyReader).ToString
  19.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\cryptname.dll"))
  20.         cryptname.Text = cryptname.Items.Item(MyReader).ToString
  21.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\rewrpass.dll"))
  22.         rewrpass.Text = rewrpass.Items.Item(MyReader).ToString
  23.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\wrongpass.dll"))
  24.         wrongpass.Text = wrongpass.Items.Item(MyReader).ToString
  25.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\hidepro.dll"))

File encryption center - Setting.Designer.vb

File encryption center / Setting.Designer.vb
File encryption center - Setting.Designer.vb
File encryption center - Setting.Designer.vb
Setting.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Setting
  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.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Setting))
  23.         Me.SpeedLBL = New System.Windows.Forms.Label
  24.         Me.Label1 = New System.Windows.Forms.Label
  25.         Me.Label2 = New System.Windows.Forms.Label
  26.         Me.Label3 = New System.Windows.Forms.Label

File encryption center - SerialNumber.vb

File encryption center / SerialNumber.vb
File encryption center - SerialNumber.vb
File encryption center - SerialNumber.vb

SerialNumber.vb
  1. Public Class SerialNumber
  2.     Dim MyName As String = My.Application.Info.AssemblyName
  3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
  4.     Dim SettingsPath As String = MyDir
  5.     Dim ButtonClicked As Boolean = False
  6.     Dim AlphaArr() As String = {"ا", "أ", "إ", "ئ", "ء", "ى", "ة", "ؤ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "و", "ي", "لا", "ّ", "َ", "ً", "ُ", "ٌ", "لإ", "‘", "÷", "؛", "ِ", "ٍ", "[", "]", "لأ", "أ", "ـ", "،", "~", "ْ", "{", "}", "لآ", "آ", "’", ".", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", ",", ".", ";", "'", "[", "]", "!", "@", "#", "$", "%", "^", "&", "(", ")", "-", "=", "_", "+", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", " "}
  7.     Dim CryptArr() As String = {"A", "!", "B", "@", "C", "#", "D", "$", "E", "%", "F", "^", "G", "&", "H", "*", "I", "(", "J", ")", "K", "_", "L", "-", "M", "+", "N", "=", "O", "[", "P", "]", "Q", "{", "R", "}", "S", ";", "T", ":", "U", "'", "V", ",", "W", "<", "X", ".", "Y", ">", "Z", "/", "a", "?", "b", "`", "c", "~", "d", "\", "e", "|", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "!", "B", "@", "C", "#", "D", "$", "E", "%", "F", "^", "G", "&", "H", "*", "I", "(", "J", ")", "K", "_", "L", "-", "M", "+", "N", "=", "O", "[", "P", "]", "Q", "{", "R", "}", "S", ";", "T", ":", "U", "'", "V", ",", "W", "<", "X", ".", "Y", ">", "Z", "/", "a", "?", "b", "`", "c", "~", "d", "\"}
  8.     Private Sub SerialNumber_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
  9.         On Error Resume Next
  10.         Main.SendToBack()
  11.     End Sub
  12.     Private Sub SerialNumber_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  13.         On Error Resume Next
  14.         If ButtonClicked = False Then e.Cancel = True
  15.     End Sub
  16.     Private Sub SerialNumber_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  17.         On Error Resume Next
  18.         Me.Text = MyName
  19.         InfoLBL.Text = MyName & System.Environment.NewLine & My.Application.Info.Version.ToString
  20.         Me.MaximizeBox = False
  21.         Dim MyReader As Integer = 0

File encryption center - SerialNumber.Designer.vb

File encryption center / SerialNumber.Designer.vb
File encryption center - SerialNumber.Designer.vb
File encryption center - SerialNumber.Designer.vb

SerialNumber.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class SerialNumber
  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.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SerialNumber))
  23.         Me.AcceptBTN = New System.Windows.Forms.Button
  24.         Me.CancleBTN = New System.Windows.Forms.Button
  25.         Me.PassTXT = New System.Windows.Forms.TextBox

File encryption center - Main.vb

File encryption center / Main.vb
File encryption center - Main.vb
File encryption center - Main.vb

Main.vb
  1. Public Class Main
  2.     Dim MyName As String = My.Application.Info.AssemblyName
  3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
  4.     '16 Byte - Array :
  5.     Dim IntialCryptBytes() As Byte = {115, 63, 40, 66, 225, 205, 99, 160, 199, 185, 180, 170, 160, 39, 10, 1}
  6.     '64 Byte - Array :
  7.     Dim FinalCryptBytes() As Byte = {231, 35, 0, 63, 225, 113, 3, 160, 12, 185, 180, 170, 160, 73, 10, 1, 115, 98, 75, 66, 225, 205, 99, 160, 199, 185, 180, 170, 95, 39, 10, 68, 115, 4, 40, 211, 225, 205, 99, 160, 24, 185, 180, 170, 160, 39, 10, 1, 115, 69, 40, 66, 225, 25, 221, 160, 199, 185, 180, 170, 160, 39, 10, 253}
  8.     '64 Byte - Array :
  9.     Dim SerialNumberBytes(64) As Byte
  10.     'My Dims :
  11.     Dim Addad As Integer = 0
  12.     Dim AnimateX As Integer = 0
  13.     Dim AnimateY As Integer = 0
  14.     Dim MyOpacity As Integer = 0
  15.     Dim MyCommand As String = "Crypt"
  16.     Dim BytesAdder As Double = 0
  17.     Dim SettingsPath As String = MyDir
  18.     Dim CryptFileName As Boolean = False
  19.     Dim LocalFileName As String = ""
  20.     Dim ExitBecauseNotFound As Boolean = False
  21.     Dim AlphaArr() As String = {"ا", "أ", "إ", "ئ", "ء", "ى", "ة", "ؤ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "و", "ي", "لا", "ّ", "َ", "ً", "ُ", "ٌ", "لإ", "‘", "÷", "؛", "ِ", "ٍ", "[", "]", "لأ", "أ", "ـ", "،", "~", "ْ", "{", "}", "لآ", "آ", "’", ".", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", ",", ".", ";", "'", "[", "]", "!", "@", "#", "$", "%", "^", "&", "(", ")", "-", "=", "_", "+", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", " "}
  22.     Dim CryptArr() As String = {"ỹ", "╬", "ỷ", "╫", "ỵ", "╪", "ỳ", "╩", "ự", "╨",

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.