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