#RemovedByParadoxon_LeaveSAMP@25.04.2014
#RemovedByParadoxon_LeaveSAMP@25.04.2014
- Parad0x0n
- Geschlossen
- Erledigt
-
-
Es geht aber auch mit visual basic, wenn ich mich irre. Dazu gibt es auch viele gute tuts im netz.
-
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 BasicWenn mich nicht alles täuscht so irgendwie:
CodeDim startInfo As New ProcessStartInfo(SAMP_Path & "samp.exe") startInfo.Arguments = "127.0.0.1:7777" Process.Start(startInfo)
mfg.
-
Dürfte ich Fragen, was das bringen soll? ich dachte er meint ein Anticheat wie bei GRP
-
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 -
-
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 schonmfg.
-
Nein, da heißt es auch Launcher und die beiden Funktionen stimmen überein, aber das "AntiCheat" wird hier in keinem Satz erwähnt, da schonmfg.
Jaja hier heißt es Launcher und da auch, deswegen kam ich auf ein Anticheat Gott ist das so schwer zu verstehen? oder tust du nur so.?@Thema das Fenster ist aber Hässlich konnte man bisschen gestalten.
-
deswegen kam ich auf ein Anticheat
Ja...aber er hat nicht gesagt das er ein Anti Cheat will@Thema das Fenster ist aber Hässlich konnte man bisschen gestalten.
Ja, wenn ich dafür mehr Zeit investieren würdemfg.
-
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:CodeDim 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:
Code
Alles anzeigenPrivate 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:
CodeDim 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:Code
Alles anzeigen' 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). -
-
Doch, via PHP und dem System.NET.WebClient ...
-
Launcher = Starter (z.B. Starter einer Anwendung)
-
Launcher = Starter (z.B. Starter einer Anwendung)
Sinnloser Post?das Brot
Hiermal nen Beispiel aus dem Kopf... -
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..
-
breadfish.de
Hat das Thema geschlossen.