[Codeschnipsel] MTA SA Launcher

If Process.GetProcessesByName("gta_sa").Length > 0 Then
            MsgBox("GTA:SA läuft bereits!")
        Else
            If Process.GetProcessesByName("Multi Theft Auto").Length > 0 Then
                MsgBox("MTA läuft bereits!")
            Else
                Dim temp As Process
                temp = Process.Start("C:\Programme\MTA San Andreas 1.1\Multi Theft Auto.exe", " mtasa://SERVER_IP:SERVER_PORT")
                If Process.GetProcessesByName("Multi Theft Auto").Length > 0 Then
                    End
                End If
            End If
        End If

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        OpenFileDialog1.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) + "/MTA San Andreas 1.1/"


        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            My.Settings.mtadir = OpenFileDialog1.FileName
            My.Settings.Save()
        End If
    End Sub


    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
     If Process.GetProcessesByName("gta_sa").Length > 0 Then
            MsgBox("GTA:SA läuft bereits!")
        Else
            If Process.GetProcessesByName("Multi Theft Auto").Length > 0 Then
                MsgBox("MTA läuft bereits!")
            Else
                Dim temp As Process
                temp = Process.Start(My.Settings.mtadir, " mtasa://SEVRER_IP:SERVER_PORT")
                If Process.GetProcessesByName("Multi Theft Auto").Length > 0 Then
                    End
                End If
            End If
        End If
    End Sub