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

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"))
  26.         hidepro.Text = hidepro.Items.Item(MyReader).ToString
  27.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\updateme.dll"))
  28.         updateme.Text = updateme.Items.Item(MyReader).ToString
  29.         RMTXT.Text = My.Computer.Registry.ClassesRoot.OpenSubKey("Folder\shell\CryptCenter", True).GetValue("", "", Microsoft.Win32.RegistryValueOptions.None)
  30.     End Sub
  31.     Public Sub SetValue()
  32.         On Error Resume Next
  33.         My.Computer.FileSystem.WriteAllText(SettingsPath & "\prio.dll", prio.SelectedIndex, False)
  34.         My.Computer.FileSystem.WriteAllText(SettingsPath & "\interval.dll", interval.SelectedIndex, False)
  35.         My.Computer.FileSystem.WriteAllText(SettingsPath & "\cryptname.dll", cryptname.SelectedIndex, False)
  36.         My.Computer.FileSystem.WriteAllText(SettingsPath & "\rewrpass.dll", rewrpass.SelectedIndex, False)
  37.         My.Computer.FileSystem.WriteAllText(SettingsPath & "\wrongpass.dll", wrongpass.SelectedIndex, False)
  38.         My.Computer.FileSystem.WriteAllText(SettingsPath & "\hidepro.dll", hidepro.SelectedIndex, False)
  39.         My.Computer.FileSystem.WriteAllText(SettingsPath & "\updateme.dll", updateme.SelectedIndex, False)
  40.         My.Computer.Registry.ClassesRoot.OpenSubKey("*\shell\CryptCenter", True).SetValue("", RMTXT.Text, Microsoft.Win32.RegistryValueKind.String)
  41.         My.Computer.Registry.ClassesRoot.OpenSubKey("Folder\shell\CryptCenter", True).SetValue("", RMTXT.Text, Microsoft.Win32.RegistryValueKind.String)
  42.     End Sub
  43.     Private Sub AcceptBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcceptBTN.Click
  44.         On Error Resume Next
  45.         SetValue()
  46.         Main.ReadValues()
  47.         Me.Close()
  48.     End Sub
  49.     Private Sub CancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancleBTN.Click
  50.         On Error Resume Next
  51.         Me.Close()
  52.     End Sub
  53.     Private Sub RemoveBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveBTN.Click
  54.         On Error Resume Next
  55.         If MsgBox("هل ترغب حقاً بإزالة البرنامج من الحاسب نهائياً ؟", MsgBoxStyle.YesNo, MyName) = MsgBoxResult.Yes Then
  56.             Me.Close()
  57.             Main.RemoveProgram()
  58.         End If
  59.     End Sub
  60.     Public Sub RemoveProgram(ByVal sender As System.Object, ByVal e As System.EventArgs)
  61.         On Error Resume Next
  62.         RemoveBTN_Click(sender, e)
  63.     End Sub
  64. 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.