Ich hab hier für euch ein Codeschnipsel für einen MTA Launcher in VB
(SERVER_IP und SERVER_PORT müsst ihr ersetzen :D)
Code
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
Alles anzeigen
Man kann es auch noch dynamischer gestalten (Dazu müssen zwei Buttons, eine Einstellung namens mtadir und ein FileOpenDialog vorhanden sein):
(SERVER_IP und SERVER_PORT müsst ihr ersetzen :D)
Code
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
Alles anzeigen
OffTopic:
Wusste nicht wo ich es hinposten soll.. Habs mal hier rein gepostet