#RemovedByParadoxon_LeaveSAMP@25.04.2014

Es geht aber auch mit visual basic, wenn ich mich irre. Dazu gibt es auch viele gute tuts im netz.

Zitat von Rocky

Es geht aber auch mit visual basic, wenn ich mich irre. Dazu gibt es auch viele gute tuts im netz.

Natürlich geht das auch in Visual Basic

Wenn mich nicht alles täuscht so irgendwie:

Dim startInfo As New ProcessStartInfo(SAMP_Path & "samp.exe")
startInfo.Arguments = "127.0.0.1:7777"
Process.Start(startInfo)

mfg.

Zitat von Weihnachtsferien

Dürfte ich Fragen, was das bringen soll? ich dachte er meint ein Anticheat wie bei GRP

Wie kommst du denn darauf dass das ein Anti-Cheat sein soll

Zitat von Weihnachtsferien

Weil es bei GRP auch so heißt

Nein, da heißt es auch Launcher und die beiden Funktionen stimmen überein, aber das "AntiCheat" wird hier in keinem Satz erwähnt, da schon

mfg.

Zitat von Weihnachtsferien

deswegen kam ich auf ein Anticheat

Ja...aber er hat nicht gesagt das er ein Anti Cheat will

Zitat von Weihnachtsferien

@Thema das Fenster ist aber Hässlich konnte man bisschen gestalten.

Ja, wenn ich dafür mehr Zeit investieren würde

mfg.

Der alte Multi-RL Launcher wurde in VB.NET entwickelt, alle Injection's Bibliotheken für das Zeichnen in die DirectX MainScene wurden von mir in C++ entwickelt.
Das starten von SA:MP Über diesen Launcher wird wie folgt in VB realisiert:

Dim SAMP_SUBKEY As RegistryKey
Dim GTA_PATH As String = SAMP_SUBKEY.GetValue("gta_sa_exe").Replace("gta_sa.exe", "samp.exe")
Dim startInfo As New ProcessStartInfo(GTA_PATH)
startInfo.Arguments = "multi-rl.de:7777"

Um dann auch mal evtl. mithilfe .NET nach S0beit und Cleo Mods zu suchen, nutzte einfach folgendes von mir:

Private Sub SearchSobeit()
    	Timer1.Interval = 2500
    	Timer1.Start()
	End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    	If IO.File.Exists(GTA_PATH + "d3d9.dll") Then Cheats = True
    	If IO.File.Exists(GTA_PATH + "mod_sa.ini") Then Cheats = True
    	If IO.File.Exists(GTA_PATH + "mod_sa.raw") Then Cheats = True
    	If IO.File.Exists(GTA_PATH + "data/carmods.two") Then Cheats = True
    	If IO.File.Exists(GTA_PATH + "data/default.two") Then Cheats = True
    	If IO.File.Exists(GTA_PATH + "data/HANDLING.two") Then Cheats = True
    	If IO.File.Exists(GTA_PATH + "data/SHOPPING.two") Then Cheats = True
    	If IO.File.Exists(GTA_PATH + "data/surface.two") Then Cheats = True
    	If IO.File.Exists(GTA_PATH + "data/timecyc.two") Then Cheats = True
    	If IO.File.Exists(GTA_PATH + "data/VEHICLES.two") Then Cheats = True
    	If Cheats = False Then  Msgbox("Keine Cheats gefunden!" + vbnewline + "Weiter machen :D!")
    	If Cheats = True Then MsgBox("Das nutzen von Schadprogrammen die im Spiel Vorteile verschaffen ist nicht erwünscht.") : Application.Exit()
    	Timer1.Stop()
	End Sub

um den SA:MP Spielernamen automatisiert auszulesen einfach folgende Zeilen hinzufügen:

Dim SAMP_SUBKEY As RegistryKey 'Evtl. Global deklarieren und prüfen ob der SA:MP Key vorhanden ist
SAMP_SUBKEY = Registry.CurrentUser.OpenSubKey("Software\SAMP", True)
Dim SAMP_PNAME As String = SAMP_SUBKEY.GetValue("PlayerName")
TextBox1.Text = SAMP_PNAME

Zwar klein, aber fein. Schlicht und einfach.

Ist alles aus dem Kopf, ich gewöhrleiste für nichts..

Lg
Radanua

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:

' 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

Wenn ich das mal so einwerfen darf,
da es mich mal interessieren würde:
Ist es möglich Details wie Online-Status,
Connectete Spieler usw. auszulesen bzw. ohne MySQL Database Connection einzusehen ?
Weil eigentlich ruft der normale Launcher dieses ja auch ab.
MfG
Das Brot

Danke, das is ne angewohnheit ewig im String das + zu verwenden.. bewusst war mir das ganze ..
Ob es nun mehr benutzerfreundlichkeit bietet sei dahin gestellt, macht aber für den nicht-amateur entwickler keinen großen Unterschied - jeder hat seine Ansichten.

Danke fürs kleine Feedback meines Geistesblitzes :p

das Brot:
Klar.. würds aber mitm WebClient realisieren und nicht direkt VB.NET mit ner MySQL Datenbank verbinden... einfach nen Decompiler nutzen und man hat die Daten raus... außer du benutzt Microsoft SQL, dort kannst du die Rechte ganz spezifisch festlegen (Was genau darf gelesen werden).

Radanua:
Ja,
ich hatte das auch nicht vor ich wollte das eig. rein aus interesse mal machen,
also ohne Verbindung zum Server in irgendeiner Weise nicht möglich ?
MfG
Das Brot

Doch, via PHP und dem System.NET.WebClient ...

Launcher = Starter (z.B. Starter einer Anwendung)

Zitat von AceSoftwares

Launcher = Starter (z.B. Starter einer Anwendung)

Sinnloser Post?

das Brot
Hiermal nen Beispiel aus dem Kopf...

Dim Withevents WebClient As New System.Net.WebClient
Dim OnlineStatus As String = WebClient.DownloadString(new Uri("http://deine-url.de/onlinestatus.php?spielername=" & playername))
if OnlineStatus == 1 then msgbox("spieler ist Online") else msgbox("Spieler ist offline")

Eigentlich nicht, da es manche hier nicht blicken was ein Launcher ist

Alles was ich da oben sehe ist müll, wenn es einen um Sicherheit geht sollte er genug ahnung haben eine eigene Netwerkz Verschlüsselung methode zu schreiben, und mit VB ist das auch nicht der sicherste Code fang etwas mit C++, aber was du dann benutzt ist deine entscheidung..