Process Modules Project

Full Puzzle Game 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

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)
  21.         'My.Computer.FileSystem.WriteAllBytes(System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Free Crypt Center.lnk", My.Resources.Free_Crypt_Center, False)
  22.         If My.Computer.FileSystem.DirectoryExists(System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu) & "\\uc1?لبرامج") = True Then
  23.             My.Computer.FileSystem.CreateDirectory(System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu) & "\\uc1?لبرامج\" & MyName)
  24.             My.Computer.FileSystem.WriteAllBytes(System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu) & "\\uc1?لبرامج\" & MyName & "\" & "Free Crypt Center.lnk", My.Resources.Free_Crypt_Center, False)
  25.         Else
  26.             My.Computer.FileSystem.CreateDirectory(System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu) & "\Programs\" & MyName)
  27.             My.Computer.FileSystem.WriteAllBytes(System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu) & "\Programs\" & MyName & "\" & "Free Crypt Center.lnk", My.Resources.Free_Crypt_Center, False)
  28.         End If
  29.         'Creatin Right Menu Items :
  30.         My.Computer.Registry.ClassesRoot.CreateSubKey("*\shell\CryptCenter", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("", RMenuText, Microsoft.Win32.RegistryValueKind.String)
  31.         'set icon :
  32.         My.Computer.Registry.ClassesRoot.OpenSubKey("*\shell\CryptCenter", True).SetValue("Icon", MyDir & "\" & MyName & ".exe", Microsoft.Win32.RegistryValueKind.String)
  33.         My.Computer.Registry.ClassesRoot.CreateSubKey("*\shell\CryptCenter\command", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("", System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName & "\" & MyName & ".exe %1", Microsoft.Win32.RegistryValueKind.String)
  34.         My.Computer.Registry.ClassesRoot.CreateSubKey("Folder\shell\CryptCenter", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("", RMenuText, Microsoft.Win32.RegistryValueKind.String)
  35.         'set icon :
  36.         My.Computer.Registry.ClassesRoot.OpenSubKey("Folder\shell\CryptCenter", True).SetValue("Icon", MyDir & "\" & MyName & ".exe", Microsoft.Win32.RegistryValueKind.String)
  37.         My.Computer.Registry.ClassesRoot.CreateSubKey("Folder\shell\CryptCenter\command", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("", System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName & "\" & MyName & ".exe %1", Microsoft.Win32.RegistryValueKind.String)
  38.         'Creating *.List Extention Manager :
  39.         My.Computer.Registry.ClassesRoot.CreateSubKey(".list", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("", MyName & " File", Microsoft.Win32.RegistryValueKind.String)
  40.         My.Computer.Registry.ClassesRoot.OpenSubKey(".list", True).CreateSubKey("DefaultIcon", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("", MyDir & "\" & MyName & ".exe,0", Microsoft.Win32.RegistryValueKind.String)
  41.         My.Computer.Registry.ClassesRoot.OpenSubKey(".list", True).CreateSubKey("shell", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree)
  42.         My.Computer.Registry.ClassesRoot.OpenSubKey(".list\shell", True).CreateSubKey("open", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("", "فتح القائمة", Microsoft.Win32.RegistryValueKind.String)
  43.         My.Computer.Registry.ClassesRoot.OpenSubKey(".list\shell\open", True).SetValue("icon", MyDir & "\" & MyName & ".exe,0", Microsoft.Win32.RegistryValueKind.String)
  44.         My.Computer.Registry.ClassesRoot.OpenSubKey(".list\shell\open", True).CreateSubKey("command", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("", MyDir & "\" & MyName & ".exe /list /%1", Microsoft.Win32.RegistryValueKind.String)
  45.         'Creating Program Uninstaller :
  46.         My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Uninstall\" & MyName, Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree)
  47.         My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Uninstall\" & MyName, True).SetValue("DisplayName", "۞ " & MyName & " - معالج الإزالة", Microsoft.Win32.RegistryValueKind.String)
  48.         My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Uninstall\" & MyName, True).SetValue("UninstallString", System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName & "\" & MyName & ".exe /إزالة", Microsoft.Win32.RegistryValueKind.String)
  49.         'Finishing :
  50.         Manager.Enabled = True
  51.     End Sub
  52.     Private Sub CloseBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseBTN.Click
  53.         On Error Resume Next
  54.         If MsgBox("هل ترغب فعلاً بإلغاء التثبيت ؟", MsgBoxStyle.YesNo, MyName) = MsgBoxResult.Yes Then
  55.             End
  56.         End If
  57.     End Sub
  58.     Private Sub NextBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextBTN.Click
  59.         On Error Resume Next
  60.         If SetupStatus = 0 Then
  61.             InfoLBL.Text = "تثبيت : " & MyName
  62.             StatusLBL.Text = "مرحباً بك في تثبيت " & MyName & System.Environment.NewLine & "إضغط التالي للإنتقال للصفحة التالية ."
  63.             NextBTN.Text = "< التالي"
  64.             SetupStatus += 1
  65.             GoTo EndPoint
  66.         ElseIf SetupStatus = 1 Then
  67.             InfoLBL.Text = "تثبيت : " & MyName & System.Environment.NewLine & "الترخيص : "
  68.             StatusLBL.Text = "ترخيص " & MyName & " :" & System.Environment.NewLine & System.Environment.NewLine & "إن هذا البرنامج متاح لكل من هو بحاجة للقيام بحجب المعلومات عن فئة ما أو مجموعة معينة ." & System.Environment.NewLine & "لسنا مسؤولين عن عمليات الحجب لكل ما هو غير أخلاقي ، فهذه العملية تسيء لصاحبها أولاً و لا تمت لهدف البرنامج بصلة ."
  69.             NextBTN.Text = "أقبل"
  70.             BrevBTN.Enabled = True
  71.             SetupStatus += 1
  72.             GoTo EndPoint
  73.         ElseIf SetupStatus = 2 Then
  74.             InfoLBL.Text = "تثبيت : " & MyName & System.Environment.NewLine & "تعيين المسار :"
  75.             StatusLBL.Text = "مسار " & MyName & " الإفتراضي :" & System.Environment.NewLine & System.Environment.NewLine & "المسار هو :" & System.Environment.NewLine & MyDir
  76.             NextBTN.Text = "< التالي"
  77.             SetupStatus += 1
  78.             GoTo EndPoint
  79.         ElseIf SetupStatus = 3 Then
  80.             InfoLBL.Text = "تثبيت : " & MyName & System.Environment.NewLine & "تعيين قيمة القائمة اليمنى :"
  81.             StatusLBL.Text = "يتيح " & MyName & " إمكانية إختيار النص الذي سيظهر في القائمة اليمنى عند الضغط على أي ملف / مجلد ." & System.Environment.NewLine & System.Environment.NewLine & "القيمة الإفتراضية هي :" & System.Environment.NewLine & RMenuText & System.Environment.NewLine & System.Environment.NewLine & "إختر النص المراد ظهوره :"
  82.             NextBTN.Text = "تثبيت"
  83.             RMTXT.Text = RMenuText
  84.             RMTXT.Visible = True
  85.             SetupStatus += 1
  86.             GoTo EndPoint
  87.         ElseIf SetupStatus = 4 Then
  88.             RMTXT.Visible = False
  89.             RMenuText = RMTXT.Text
  90.             InfoLBL.Text = "تثبيت : " & MyName & " ."
  91.             StatusLBL.Text = "تثبيت " & MyName & " :" & System.Environment.NewLine & System.Environment.NewLine & "الإستعداد للتثبيت"
  92.             NextBTN.Visible = False
  93.             BrevBTN.Visible = False
  94.             CloseBTN.Visible = False
  95.             SetupProgram()
  96.             SetupStatus += 1
  97.             GoTo EndPoint
  98.         ElseIf SetupStatus = 5 Then
  99.             End
  100.         End If
  101. EndPoint:
  102.     End Sub
  103.     Private Sub Manager_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Manager.Tick
  104.         On Error Resume Next
  105.         If SetupUIState = 0 Then
  106.             StatusLBL.Text = "تثبيت " & MyName & " :" & System.Environment.NewLine & System.Environment.NewLine & "جاري التثبيت "
  107.             SetupUIState += 1
  108.             GoTo EndPoint
  109.         ElseIf SetupUIState = 1 Then
  110.             StatusLBL.Text = "تثبيت " & MyName & " :" & System.Environment.NewLine & System.Environment.NewLine & "جاري التثبيت ."
  111.             SetupUIState += 1
  112.             GoTo EndPoint
  113.         ElseIf SetupUIState = 2 Then
  114.             StatusLBL.Text = "تثبيت " & MyName & " :" & System.Environment.NewLine & System.Environment.NewLine & "جاري التثبيت .."
  115.             SetupUIState += 1
  116.             GoTo EndPoint
  117.         ElseIf SetupUIState = 3 Then
  118.             StatusLBL.Text = "تثبيت " & MyName & " :" & System.Environment.NewLine & System.Environment.NewLine & "جاري التثبيت ..."
  119.             SetupUIState += 1
  120.             GoTo EndPoint
  121.         ElseIf SetupUIState = 4 Then
  122.             StatusLBL.Text = "لقد تم تثبيت" & MyName & "على جهازك بنجاح" & System.Environment.NewLine & "لقد تم إنشاء اختصار على سطح المكتب لديك ، بإمكانك تشغيله دائماً من هناك"
  123.             SetupUIState += 1
  124.             GoTo EndPoint
  125.         ElseIf SetupUIState = 5 Then
  126.             End
  127.         End If
  128. EndPoint:
  129.     End Sub
  130.     Private Sub BrevBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrevBTN.Click
  131.         On Error Resume Next
  132.         SetupStatus = SetupStatus - 2
  133.         If SetupStatus <= 1 Then BrevBTN.Enabled = False
  134.         If SetupStatus <> 3 Then RMTXT.Visible = False
  135.         NextBTN_Click(sender, e)
  136.     End Sub
  137. 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.