Scripting Starter

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            Process.Start(My.Settings.mtaserver)
        End If
        If CheckBox2.Checked = True Then
            Process.Start(My.Settings.mtaclient)
        End If
        If CheckBox4.Checked = True Then
            Process.Start("explorer.exe", My.Settings.verzeichnis)
        End If
        If CheckBox3.Checked = True Then
            Process.Start(My.Settings.notepad)
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Einstellungen.Show()
    End Sub
End Class

Public Class Einstellungen
    Private Sub Einstellungen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Settings.mtaclient
        TextBox2.Text = My.Settings.mtaserver
        TextBox3.Text = My.Settings.verzeichnis
        TextBox4.Text = My.Settings.notepad
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim response As MsgBoxResult
        response = MsgBox("Werte werden wie folgt geändert:" & vbNewLine & vbNewLine & "MTA-Client Pfad:" & vbNewLine & TextBox1.Text & vbNewLine & "MTA-Server Pfad:" & vbNewLine & TextBox2.Text & vbNewLine & "MTA-Ressourcenverzeichnis Pfad:" & vbNewLine & TextBox3.Text & vbNewLine & "Notepad++ Pfad:" & vbNewLine & TextBox4.Text & vbNewLine & vbNewLine & "Einverstanden?", MsgBoxStyle.YesNo, "Einverstanden")
        If response = MsgBoxResult.Yes Then
            My.Settings.mtaclient = TextBox1.Text
            My.Settings.mtaserver = TextBox2.Text
            My.Settings.verzeichnis = TextBox3.Text
            My.Settings.notepad = TextBox4.Text
            My.Settings.Save()
            My.Settings.Reload()
            MsgBox("Werte wurden erfolgreich geändert", MsgBoxStyle.OkOnly, "Erfolgreichen")
            Me.Hide()
        ElseIf response = MsgBoxResult.No Then
            Dim responses As MsgBoxResult
            responses = MsgBox("Abgebrochen, Werte wurden nicht gespeichert. Einstellungen schließen?", MsgBoxStyle.YesNo, "Abgebrochen")
            If responses = MsgBoxResult.Yes Then
                Me.Hide()
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Settings.mtaclient = "C:\Program Files (x86)\MTA San Andreas 1.3\Multi Theft Auto.exe"
        My.Settings.mtaserver = "C:\Program Files (x86)\MTA San Andreas 1.3\server\MTA Server.exe"
        My.Settings.verzeichnis = "C:\Program Files (x86)\MTA San Andreas 1.3\server\mods\deathmatch\resources"
        My.Settings.notepad = "C:\Program Files (x86)\Notepad++\notepad++.exe"
        My.Settings.Save()
        My.Settings.Reload()
        MsgBox("Standart wurde wiederhergestellt", "Erfolgreich")
    End Sub
End Class