Erst mal muss ich Sagen das ich eure Seite echt cool finde
Jetzt zu mein Problem Ich hab für Mw2 ein Host Hack geschrieben in den ich jetzt aber noch ein No Recoil Hack mit ein bauen will die Adressen hat mir ein guter freund aus ein anderen Forum gegeben.
Wie Schreibe ich die Adressen in VB2008?
No recoil:
0x004DDF77
orig bytes: 0xE8, 0x44, 0x97, 0x01, 0x00
patch: 0x90, 0x90, 0x90, 0x90, 0x90
OR
0x004F76C0
orig: 0x83, 0xEC, 0x0C
patch: 0xC3, 0x90, 0x90
Ich unterstütze normalerweise keine MP-Sachen, aber denke du solltest dir mal das Videotutorial von DNA anschauen, dann müsste deine frage beantwortet sein
OK das Problem ist gelöst dank DNA
jetzt kommt das nächste
Ich möchte die Adressen
0x0050A510
0x0050A518
0x0050A52A
mit der Patchen
0x9090
das habe ich so gemacht
Code:
Public Class Form1
Private Const ProcName = "iw4mp"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GetProcessId(ProcName)
Dim addi = &H50A510
Dim nopbytes() As Byte = {&H90, &H90}
autopatcher(addi, nopbytes)
Dim addi1 = &H50A518
Dim nopbytes1() As Byte = {&H90, &H90}
autopatcher(addi1, nopbytes1)
Dim addi2 = &H50A52A
Dim nopbytes2() As Byte = {&H90, &H90}
autopatcher(addi2, nopbytes2)
End Sub
End Class
|
geht aber leider nicht die exe bricht immer ein!
ist doch eigentlich richtig oder?
probier es mal hiermit:
Zitat:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GetProcessId(ProcName)
Write_Byte(&H50A510, "9090")
bei VB6 ging das, ob das mit VB08 noch so geht weiss ich leider nicht, bin gerade am umsteigen
und schon wieder MP-Hkz^^
Ne geht leider nicht ist muss die 3 Adresse mit jeweils 2 nops patchen
aber wie stellen ich das an?
vielleicht hat DNA ne idee
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GetProcessId(ProcName)
Write_Byte(&H50A510, "9090")
Write_Byte(&H50A518, "9090")
Write_Byte(&H50A52A, "9090")
???
um welches game geht es? Call of Duty mw2 oder?
was willst du genau da machen? No Recoil sind andere Addis, und update gab es bestimmt zwischenzeitlich wieder.
Willst du nur für den SP was machen oder auch MP bereich?
Ja MW2 MP ich weiß ihr unterstützt eigentlich nicht MP Cheats.
Das sind die Chopper ESP Adressen.
Ja genau so wie du habe ich es gemacht leider ohne erfolg.
Ist das so richtige wenn ich die 3 Adressen mit jeweils 2 Nops Patchen muss?
Code:
GetProcessId(ProcName)
Dim addi = &H50A510
Dim nopbytes() As Byte = {&H90, &H90}
autopatcher(addi, nopbytes)
Dim addi1 = &H50A518
Dim nopbytes1() As Byte = {&H90, &H90}
autopatcher(addi1, nopbytes1)
Dim addi2 = &H50A52A
Dim nopbytes2() As Byte = {&H90, &H90}
autopatcher(addi2, nopbytes2)
|
(02.09.2010, 14:08)chesar schrieb: [ -> ]Ist das so richtige wenn ich die 3 Adressen mit jeweils 2 Nops Patchen muss?
Code:
GetProcessId(ProcName)
Dim addi = &H50A510
Dim nopbytes() As Byte = {&H90, &H90}
autopatcher(addi, nopbytes)
Dim addi1 = &H50A518
Dim nopbytes1() As Byte = {&H90, &H90}
autopatcher(addi1, nopbytes1)
Dim addi2 = &H50A52A
Dim nopbytes2() As Byte = {&H90, &H90}
autopatcher(addi2, nopbytes2)
|
müsste mit
Code:
Write_Long(&H50A510, &H90)
Write_Long(&H50A511, &H90)
Write_Long(&H50A518, &H90)
Write_Long(&H50A519, &H90)
Write_Long(&H50A52A, &H90)
Write_Long(&H50A52B, &H90)
|
auch gehen spast dir die declerationen von den addis
(02.09.2010, 14:08)chesar schrieb: [ -> ]Ist das so richtige wenn ich die 3 Adressen mit jeweils 2 Nops Patchen muss?
Code:
GetProcessId(ProcName)
Dim addi = &H50A510
Dim nopbytes() As Byte = {&H90, &H90}
autopatcher(addi, nopbytes)
Dim addi1 = &H50A518
Dim nopbytes1() As Byte = {&H90, &H90}
autopatcher(addi1, nopbytes1)
Dim addi2 = &H50A52A
Dim nopbytes2() As Byte = {&H90, &H90}
autopatcher(addi2, nopbytes2)
|
Ja, so wäre das richtig ...
@fr33k
So wird nicht ganz funktionieren, da du
Write_Long nimmst und das is für 4 Bytes
folgendes sollte auch funktionieren: