Home of Gamehacking - Archiv
Arraybereichs - Druckversion

+- Home of Gamehacking - Archiv (http://archiv-homeofgamehacking.de)
+-- Forum: Coding (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=15)
+--- Forum: Visual Basic 6, VB.NET (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=19)
+--- Thema: Arraybereichs (/showthread.php?tid=69)

Seiten: 1 2

Arraybereichs - chesar - 30.08.2010

Und wieder ein mal brauche ich eure Hilfe.

Wenn ich erst das Game Starte und dann mein Trainer läuft alles Prima kann die Hotkeys drücken läuft alles, aber wenn ich es genau anderes herum machen also erst den Trainer und dann das Game und dann ein key Drücke kommt eine Fehler Meldung

"Der Index war außerhalb des Arraybereichs."

Ich hab echt keine Ahnung woran das Liegt

RE: Arraybereichs - DNA - 30.08.2010

Hmm, ohne den Quellcode zu kennen kann ich dazu leider nicht viel sagen.
Da müsstest du mir den Quellcode zukommen lassen.

RE: Arraybereichs - chesar - 30.08.2010

(30.08.2010, 19:37)DNA schrieb: Hmm, ohne den Quellcode zu kennen kann ich dazu leider nicht viel sagen.
Da müsstest du mir den Quellcode zukommen lassen.

So hier mal ein Kleiner Ausschnitt von mein Projekt kommt aber das selbe bei raus!

Und unter Windows XP findet er die bassmod.dll auch nicht!

http://www.virustotal.com/file-scan/report.html?id=1b5f99efb4354707ef9ecaf32ce7f82406da997004d5cc7a26fab439ab5a4fea-1283195050

RE: Arraybereichs - DNA - 30.08.2010

Hier ist folgendes der Fehler...

Dein Trainer sucht nur EIN mal den Prozess.

Szenario 1:
Du startest den Trainer und der Trainer sucht den Prozess, er findet aber
keinen Prozess, da das Spiel noch nicht gestartet wurde.
Wenn du nun das Spiel startest, weiß dein Trainer das aber nicht, da er
ja nur EIN mal den Prozess sucht.

Szenario 2:
Du startest das Spiel und danach den Trainer.
Der Trainer findet den Prozess des Spiels und es funktioniert alles 1A Wink

LÖSUNG:
Entferne oben das

Code: 
        Dim p As Process() = Process.GetProcessesByName("solitaire")

Und füge es in die beiden Timer ein ... ungefähr so:

Code:
1
2
3
4
5
6
7
8
9
 
    Private Sub fog1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog1.Tick
        Dim p As Process() = Process.GetProcessesByName("solitaire")
        Memory.Writememory(p(0), &H6464990, "0", "4")
    End Sub

    Private Sub fog2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog2.Tick
        Dim p As Process() = Process.GetProcessesByName("solitaire")
        Memory.Writememory(p(0), &H6464990, "1", "4")
    End Sub


Bei mir steht solitaire drin, da ich es mit dem Spiel kurz getestet habe Wink

Und damit du nicht bei 10 Funktionen immer wieder den Spielenamen eintragen musst,
könntest du oben die Variable
Pricate Const ProcName = "solitaire"
Deklarieren, dann würde der Code so aussehen:

Code:
1
2
3
4
5
6
7
8
9
 
    Private Sub fog1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog1.Tick
        Dim p As Process() = Process.GetProcessesByName([b]ProcName[/b])
        Memory.Writememory(p(0), &H6464990, "0", "4")
    End Sub

    Private Sub fog2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog2.Tick
        Dim p As Process() = Process.GetProcessesByName([b]ProcName[/b])
        Memory.Writememory(p(0), &H6464990, "1", "4")
    End Sub

Und du müsstest für weitere Projekte nur EIN mal den Spielenamen ändern Wink


~DNA

RE: Arraybereichs - chesar - 31.08.2010

Stimmt :shy: jetzt geht es,
man wenn ich dich nicht hätte :rolleyes:

Habt ihr die Seite erst neu oder warum ist sie noch nicht so bekannt?

RE: Arraybereichs - fr33k - 31.08.2010

(31.08.2010, 00:03)chesar schrieb: Habt ihr die Seite erst neu oder warum ist sie noch nicht so bekannt?

Neu nicht wirklich, war damals ein anderer Name, aber alleine schafft man das alles nicht.

Unbekannt deswegen weil es die Seite noch nicht wirklich lange gibt, und die meisten (ausser du jetzt zum beispiel) nur Trainer runterladen.

Leute wie du wo sich dafür auch interessieren gibt es leider wenige

RE: Arraybereichs - DNA - 31.08.2010

(31.08.2010, 00:32)fr33k schrieb:
(31.08.2010, 00:03)chesar schrieb: Habt ihr die Seite erst neu oder warum ist sie noch nicht so bekannt?

Neu nicht wirklich, war damals ein anderer Name, aber alleine schafft man das alles nicht.

Unbekannt deswegen weil es die Seite noch nicht wirklich lange gibt, und die meisten (ausser du jetzt zum beispiel) nur Trainer runterladen.

Leute wie du wo sich dafür auch interessieren gibt es leider wenige

Jup, leider gibt es zu wenig deutschsprachige Leute, die sich damit befassen.
Wir versuchen auch alles mögliche um die Seite bekannter zu machen, aber
das läuft eher schleppend voran ...

RE: Arraybereichs - chesar - 01.09.2010

Leider ein neues Problem das selbe jetzt genau anderes herum...
Checkbox ist noch checket true und das Spiel wird beendet kommt der gleiche fehler!

hab es so Probiert

Code: 
If Label3.Text = "NOT Found" Then
            fog2.Stop()
            fog1.Stop()
            nofog.Checked = False
        End If


geht leider nicht!

RE: Arraybereichs - DNA - 01.09.2010

Lad dein aktuelles Projekt bitte nochmal hoch, damit ich mir das
genauer anschauen kann.

RE: Arraybereichs - chesar - 01.09.2010

(01.09.2010, 14:41)DNA schrieb: Lad dein aktuelles Projekt bitte nochmal hoch, damit ich mir das
genauer anschauen kann.

So hier noch mal!
zum Problem: Bei Starten geht alles Prima er sucht nach der exe und schreibt dann den Value, wenn dich Checkbox.checkd = True ist!

aber

Wenn die Checkbox immer noch Checked ist und er die exe nicht mehr Findet kommt ein Fehler da die Timer ja noch weiter Laufen.
Ich hab es so Probiert :

Code: 
If Label3.Text = "NOT Found" Then
            fog2.Stop()
            fog1.Stop()
            nofog.Checked = False
        End If


bei ein Timer geht es, aber nicht bei 20 so wie bei mir!
Probiere es einfch mal aus! liegt alles im Rar Ordner hab noch nen kleine iw4mp.exe mit rein gemacht!

http://www.virustotal.com/file-scan/report.html?id=d7d7132bbcfba5244dbb394cc9093815db7eb16f65e4d0a27818db5991451fb6-1283357814