| Guida modulo per il super salto warrock
non so se è la sezione giusta per postare un modulo però lo metto qua casomai lo spostate
inanzitutto creiamo un modulo e inseriamo questo codice...
------------------------------------------------------------------------------------------- Cita: Codice: Public Const PROCESS_ALL_ACCESS = &H1F0FFF Dim f1holder As Integer Dim timer_pos As Long
'API Declaration Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Function WriteAByte(gamewindowtext As String, address As Long, value As Byte) Dim hWnd As Long Dim pid As Long Dim phandle As Long hWnd = FindWindow(vbNullString, gamewindowtext) If (hWnd = 0) Then MsgBox "The Game Is Not Working", vbCritical, "Error" End Exit Function End If GetWindowThreadProcessId hWnd, pid phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If (phandle = 0) Then MsgBox "Can't get ProcessId", vbCritical, "Error" Exit Function End If WriteProcessMemory phandle, address, value, 1, 0& CloseHandle hProcess End Function
Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer) Dim hWnd As Long Dim pid As Long Dim phandle As Long hWnd = FindWindow(vbNullString, gamewindowtext) If (hWnd = 0) Then MsgBox "The Game Is Not Working", vbCritical, "Error" End End If GetWindowThreadProcessId hWnd, pid phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If (phandle = 0) Then MsgBox "Can't get ProcessId", vbCritical, "Error" Exit Function End If WriteProcessMemory phandle, address, value, 2, 0& CloseHandle hProcess End Function
Public Function WriteALong(gamewindowtext As String, address As Long, value As Long) Dim hWnd As Long Dim pid As Long Dim phandle As Long hWnd = FindWindow(vbNullString, gamewindowtext) If (hWnd = 0) Then MsgBox "The Game Is Not Working", vbCritical, "Error" End Exit Function End If GetWindowThreadProcessId hWnd, pid phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If (phandle = 0) Then MsgBox "Can't get ProcessId", vbCritical, "Error" Exit Function End If WriteProcessMemory phandle, address, value, 4, 0& CloseHandle hProcess End Function
Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte) Dim hWnd As Long Dim pid As Long Dim phandle As Long hWnd = FindWindow(vbNullString, gamewindowtext) If (hWnd = 0) Then MsgBox "The Game Is Not Working", vbCritical, "Error" End Exit Function End If GetWindowThreadProcessId hWnd, pid phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If (phandle = 0) Then MsgBox "Can't get ProcessId", vbCritical, "Error" Exit Function End If ReadProcessMem phandle, address, valbuffer, 1, 0& CloseHandle hProcess End Function
Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer) Dim hWnd As Long Dim pid As Long Dim phandle As Long hWnd = FindWindow(vbNullString, gamewindowtext) If (hWnd = 0) Then MsgBox "The Game Is Not Working", vbCritical, "Error" End Exit Function End If GetWindowThreadProcessId hWnd, pid phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If (phandle = 0) Then MsgBox "Can't get ProcessId", vbCritical, "Error" Exit Function End If ReadProcessMem phandle, address, valbuffer, 2, 0& CloseHandle hProcess End Function
Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long) Dim hWnd As Long Dim pid As Long Dim phandle As Long hWnd = FindWindow(vbNullString, gamewindowtext) If (hWnd = 0) Then MsgBox "The Game Is Not Working", vbCritical, "Error" End Exit Function End If GetWindowThreadProcessId hWnd, pid phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If (phandle = 0) Then MsgBox "Can't get ProcessId", vbCritical, "Error" Exit Function End If ReadProcessMem phandle, address, valbuffer, 4, 0& CloseHandle hProcess End Function
Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single) Dim hWnd As Long Dim pid As Long Dim phandle As Long hWnd = FindWindow(vbNullString, gamewindowtext) If (hWnd = 0) Then MsgBox "The Game Is Not Working", vbCritical, "Error" End Exit Function End If
GetWindowThreadProcessId hWnd, pid phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If (phandle = 0) Then MsgBox "Can't get ProcessId", vbCritical, "Error" Exit Function End If
ReadProcessMem phandle, address, valbuffer, 4, 0& CloseHandle hProcess End Function
Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single) Dim hWnd As Long Dim pid As Long Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext) If (hWnd = 0) Then MsgBox "The Game Is Not Working", vbCritical, "Error" End Exit Function End If
GetWindowThreadProcessId hWnd, pid phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If (phandle = 0) Then MsgBox "Can't get ProcessId", vbCritical, "Error" Exit Function End If
WriteProcessMemory phandle, address, value, 4, 0& CloseHandle hProcess End Function
SUPERJUMP Adesso nel form1 fai 2 timers 1 chekbox e 1 texbox
Setta a 1 l'intervallo del timer 1, per fare ciò, guardate alla vostra destra, su alphabetic timer1, li ci sarà scritto interval, e sarà a zero, voi cancellatelo e metteteci 1, dopodichè fate doppio clik sul timer1 e inserite questo codice: ---------------------------------------------------------------------------------------------------------------------- Cita: If Check1.value = 1 Then Timer2.Interval = 1
Questo significa che quando il checkbox è selezionato il timer 2 si attiverà (interva =1)
adesso nel secondo timer scrivi questo codice:
Cita: Codice: If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then Dim jump As Long Dim jump1 As Long Dim jump2 As Single Call ReadALong("WarRock", &H008B5288, jump) jump1 = jump + &H180 jump2 = Text1.Text Call WriteAFloat("WarRock", jump1, jump2) End If
f Getkey... dice che quando schiacerai control + space userai il super salto!!!!!!!
clikka sul textbox, su categorized troverai "text" cambia il valore a 1500
cosi quando userai il salto, salterai di circa 1500 metri
manca solo il NofallDamage per non morire...
NoFallDamage
Crea 2 command buttons
2 klik sul 1° bottone e scrivi questo codice che attivera il no fal damage ----------------------------------------------------------------------------------------------- Cita: xodice: Dim NoFallDamage As Long Dim NoFallDamage1 As Long Call ReadALong("WarRock", &H008B5288, NoFallDamage) NoFallDamage1 = NoFallDamage + &H26C Call WriteALong("Warrock", NoFallDamage1, 1)
klikka sul secondo bottone ke disattivera il nofalldamage e scrivi questo: ------------------------------------------------------------------------------------------------------- Cita: Codice: Dim NoFallDamage As Long Dim NoFallDamage1 As Long Call ReadALong("WarRock", &H008B5288, NoFallDamage) NoFallDamage1 = NoFallDamage + &H26C Call WriteALong("Warrock", NoFallDamage1, 0)
|