Wieso macht ihr es alle so umständlich? Auf VB.Net bezogen geht auch "Process.Start("samp://127.0.0.1:7777")"...
Radanua Schön und gut, aber ist ein bisschen unsauber geschrieben*. Zudem gibt es auch noch Cleo Cheats und man könnte diesen Launcher leicht umgehen (Über den normalen SA:MP Launcher connecten)...
* Damit meine ich z.B. das Timer1. Wäre besser, wenn man das umbenannt, dann haben bspw. Anfänger mehr Übersicht. Außerdem ist das Verbinden von Strings in VB.Net mit dem Pluszeichen auch sehr unsauber, dazu verwendet man &.
Ich hätte es *ungefähr* so gemacht:
Code
' Oben
Imports System.IO
' Unten
Private Sub T_Check_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T_Check.Tick
If(File.Exists(GTA_PATH + "d3d9.dll")) Then Cheats = True
If(File.Exists(GTA_PATH + "mod_sa.ini")) Then Cheats = True
If(File.Exists(GTA_PATH + "mod_sa.raw")) Then Cheats = True
If(File.Exists(GTA_PATH + "data/carmods.two")) Then Cheats = True
If(File.Exists(GTA_PATH + "data/default.two")) Then Cheats = True
If(File.Exists(GTA_PATH + "data/HANDLING.two")) Then Cheats = True
If(File.Exists(GTA_PATH + "data/SHOPPING.two")) Then Cheats = True
If(File.Exists(GTA_PATH + "data/surface.two")) Then Cheats = True
If(File.Exists(GTA_PATH + "data/timecyc.two")) Then Cheats = True
If(File.Exists(GTA_PATH + "data/VEHICLES.two")) Then Cheats = True
If(Cheats = False) Then MessageBox.Show("Launcher", "Keine Cheats gefunden!" & VbCrLf & "Weiter machen :D!")
If(Cheats = True) Then MessageBox.Show("Launcher", "Das Nutzen von Schadprogrammen, die im Spiel Vorteile verschaffen, ist nicht erwünscht!") : Application.Exit()
T_Check.Stop()
End Sub
Alles anzeigen