Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim File As New FileStream("users.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite, FileShare.ReadWrite)
Dim FileData As New IO.StreamWriter(File)
If Me.CheckBox1.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox1.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox1.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox2.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine((Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox2.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\"))
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox2.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox3.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox3.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox3.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox4.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox4.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox4.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox5.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox5.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox5.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox6.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox6.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox6.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox7.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox7.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox7.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox8.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox8.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox8.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox9.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox9.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox9.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox10.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox10.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox10.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox11.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox11.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox11.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox12.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox12.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox12.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox13.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox13.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox13.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox14.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox14.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox14.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox15.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox15.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox15.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox16.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox16.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox16.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox17.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox17.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox17.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox18.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox18.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox18.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox19.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox19.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox19.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox20.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox20.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox20.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox21.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox21.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox21.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox22.Checked.Equals(True) Then
If Me.RadioButton1.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox22.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
ElseIf Me.RadioButton2.Checked Then
FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox22.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
Else
MessageBox.Show("Please choose Add or Remove")
End If
If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
MessageBox.Show("Please fill in all the the boxes")
End If
End If
If Me.CheckBox1.Checked.Equals(False) And Me.CheckBox2.Checked.Equals(False) And Me.CheckBox3.Checked.Equals(False) And Me.CheckBox4.Checked.Equals(False) And Me.CheckBox5.Checked.Equals(False) And Me.CheckBox6.Checked.Equals(False) And Me.CheckBox7.Checked.Equals(False) And Me.CheckBox8.Checked.Equals(False) And Me.CheckBox9.Checked.Equals(False) And Me.CheckBox10.Checked.Equals(False) And Me.CheckBox11.Checked.Equals(False) And Me.CheckBox12.Checked.Equals(False) And Me.CheckBox13.Checked.Equals(False) And Me.CheckBox14.Checked.Equals(False) And Me.CheckBox15.Checked.Equals(False) And Me.CheckBox16.Checked.Equals(False) And Me.CheckBox17.Checked.Equals(False) And Me.CheckBox18.Checked.Equals(False) And Me.CheckBox19.Checked.Equals(False) And Me.CheckBox20.Checked.Equals(False) And Me.CheckBox21.Checked.Equals(False) And Me.CheckBox22.Checked.Equals(False) Then
MessageBox.Show("Please choose a security property.")
End If
File.Close()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
AboutBox1.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
File.Delete("users.txt")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Process.Start("makefolders.exe")
End Sub
End Class