Stamina hack in vb8[TUT]

[iPwn 0]

Willkommen zu meinem TuT wie man einen WarRock Stamina Hack in Visual Basic 8 macht !

 

 

Als erstes braucht ihr einen Timer und einen Button.

Mit doppelklick auf den Button kommt ihr zum code

Dort tippt ihr folgendes ein :

Timer1.Enabled = True

kehrt nun zur Form zurück

und macht einen Doppelklick auf den Timer

dort gebt ihr folgendes ein :

WriteFloatpointer(&Hplayerpointer, &Hoffset, value) 

(Es ist normal das WriteFloatpointer NOCH unterstrichen wird)

Das war's auch schon fast!

Jetzt brauchen wir nurnoch ein Modul

Geht dazu auf

Project --> Modul hinzufügen

und gibt folgendes ein :

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer 
   Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer 
   Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer 
   Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean 
   Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer 
   Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer 
   Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 
   Public RBuff As Long 
   Public RBuff2 As Single 
   Public RBuff3 As Integer 

   Public Function Writememory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer) 

       Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock") 

       If warrockLookUp.Length = 0 Then 

           End 

       End If 

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id) 

       WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing) 

       CloseHandle(processHandle) 

   End Function 

   Public Function ReadFloat(ByVal Address As Single) 

       Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock") 

       If warrockLookUp.Length = 0 Then 

           End 

       End If 

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id) 

       ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing) 

       CloseHandle(processHandle) 

       Return RBuff 

   End Function 

   Public Function WriteFloat(ByVal Address As Integer, ByVal Value As Single) 

       Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock") 

       If warrockLookUp.Length = 0 Then 

           End 

       End If 

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id) 

       WriteFloatMemory(processHandle, Address, Value, 4, Nothing) 

       CloseHandle(processHandle) 

   End Function 

   Public Function ReadLong(ByVal Address As Integer) 

       Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock") 

       If warrockLookUp.Length = 0 Then 

           End 

       End If 

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id) 

       ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing) 

       CloseHandle(processHandle) 

       Return RBuff 

   End Function 

   Public Function ReadFloatPointer(ByVal Base As Integer, ByVal Offset As Short) 

       Dim fullAddress As Long 

       Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock") 

       If warrockLookUp.Length = 0 Then 

           End 

       End If 

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id) 

       ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing) 

       fullAddress = RBuff + Offset 

       ReadFloat(processHandle, fullAddress, RBuff2, 4, Nothing) 

       Return RBuff2 

       CloseHandle(processHandle) 

   End Function 

   Public Function ReadLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Bytes As Integer) 

       Dim fullAddress As Long 

       Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock") 

       If warrockLookUp.Length = 0 Then 

           End 

       End If 

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id) 

       ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing) 

       fullAddress = RBuff + Offset 

       ReadProcessMemory(processHandle, fullAddress, RBuff3, Bytes, Nothing) 

       Return RBuff3 

       CloseHandle(processHandle) 

   End Function 

   Public Function WriteFloatPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Single) 

       Dim fullAddress As Long 

       Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock") 

       If warrockLookUp.Length = 0 Then 

           End 

       End If 

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id) 

       ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing) 

       fullAddress = RBuff + Offset 

       WriteFloatMemory(processHandle, fullAddress, Value, 4, Nothing) 

       CloseHandle(processHandle) 

   End Function 

   Public Function WriteLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Long, ByVal Bytes As Integer) 

       Dim fullAddress As Long 

       Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock") 

       If warrockLookUp.Length = 0 Then 

           End 

       End If 

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id) 

       ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing) 

       fullAddress = RBuff + Offset 

       WriteProcessMemory(processHandle, fullAddress, Value, Bytes, Nothing) 

       CloseHandle(processHandle) 

   End Function 

   Public Function NOP(ByVal Address As Integer, ByVal value As Integer) 

       Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock") 

       If warrockLookUp.Length = 0 Then 

           End 

       End If 

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id) 

       WriteProcessMemory(processHandle, Address, value, 1, Nothing) 

       CloseHandle(processHandle) 

   End Function 

 

Nun könnt ihr euer Projekt erstellen!

Geht dazu auf Projekt -->Eigenschaften von [NAME]-->Komplimieren und wählt den Ordner aus auf dem es erstellt werden soll

Dann auf Erstellen --> [NAME] Erstellen

 

Zur information :

Ich rede zwar von Timer1 aber es kommt immer darauf an Welcher Timer es bei euch ist!!!

&

Das Modul muss nach einem Update geändert werden!

Das Modul Ist Detecdet!!!!!

Edited April 14, 2008 by Comet

[SuperTree9990 0]

Thx!

Aber was muss ich im modul ändern??

[zeeeeeeek1 74]

geheimnis?

 

mein tipp ändere alles dann passiert bestimmt nichts

[jettz 0]

this doesn't work for me