stamina dont freezes...

hello i maked a stamina hack but it dont works =( im a newbie hacker i dont know what iv done wrong here wat i putted in i hope you can help me


Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim STAM As Long
Dim STAM1 As Long
Call pwned11("Warrock", &H13773A0, STAM)
STAM1 = STAM + &H28C
Call pwned12("Warrock", STAM1, 1120403456)

End Sub


and this is my module

Public Const pwned21 = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function pwned1 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function pwned2 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function pwned3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function pwned4 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function pwned5 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function pwned6 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function pwned7 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 pwned11(pwned17 As String, pwned18 As Long, pwned19 As Long) 'WriteALong
Dim pwned8 As Long
Dim pwned9 As Long
Dim pwned10 As Long
pwned8 = pwned5(vbNullString, pwned17)
If (pwned8 = 0) Then
End
Exit Function
End If
pwned1 pwned8, pwned9
pwned10 = pwned2(pwned21, False, pwned9)
If (pwned10 = 0) Then
Exit Function
End If
pwned3 pwned10, pwned18, pwned19, 4, 0&
pwned4 pwned22
End Function

Public Function pwned12(pwned17 As String, pwned18 As Long, pwned20 As Long) 'ReadALong
Dim pwned8 As Long
Dim pwned9 As Long
Dim pwned10 As Long
pwned8 = pwned5(vbNullString, pwned17)
If (pwned8 = 0) Then
End
Exit Function
End If
pwned1 pwned8, pwned9
pwned10 = pwned2(pwned21, False, pwned9)
If (pwned10 = 0) Then
Exit Function
End If
pwned7 pwned10, pwned18, pwned20, 4, 0&
pwned4 pwned22
End Function

Public Function pwned14(pwned17 As String, pwned18 As Long, pwned20 As Single) 'ReadAFloat
Dim pwned8 As Long
Dim pwned9 As Long
Dim pwned10 As Long
pwned8 = pwned5(vbNullString, pwned17)
If (pwned8 = 0) Then
End
Exit Function
End If
pwned1 pwned8, pwned9
pwned10 = pwned2(pwned21, False, pwned9)
If (pwned10 = 0) Then
Exit Function
End If
pwned7 pwned10, pwned18, pwned20, 4, 0&
pwned4 pwned22
End Function

Public Function pwned13(pwned17 As String, pwned18 As Long, pwned19 As Single) 'WriteAFloat
Dim pwned8 As Long
Dim pwned9 As Long
Dim pwned10 As Long
pwned8 = pwned5(vbNullString, pwned17)
If (pwned8 = 0) Then
End
Exit Function
End If
pwned1 pwned8, pwned9
pwned10 = pwned2(pwned21, False, pwned9)
If (pwned10 = 0) Then
Exit Function
End If
pwned3 pwned10, pwned18, pwned19, 4, 0&
pwned4 pwned22
End Function

Public Function pwned15(pwned17 As String, pwned18 As Long, pwned19 As Byte) 'WriteAByte
Dim pwned8 As Long
Dim pwned9 As Long
Dim pwned10 As Long
pwned8 = pwned5(vbNullString, pwned17)
If (pwned8 = 0) Then
End
Exit Function
End If
pwned1 pwned8, pwned9
pwned10 = pwned2(pwned21, False, pwned9)
If (pwned10 = 0) Then
Exit Function
End If
pwned3 pwned10, pwned18, pwned19, 1, 0&
pwned4 pwned22
End Function

Public Function pwned16(pwned17 As String, pwned18 As Long, pwned20 As Byte) 'ReadAByte
Dim pwned8 As Long
Dim pwned9 As Long
Dim pwned10 As Long
pwned8 = pwned5(vbNullString, pwned17)
If (pwned8 = 0) Then
End
Exit Function
End If
pwned1 pwned8, pwned9
pwned10 = pwned2(pwned21, False, pwned9)
If (pwned10 = 0) Then
Exit Function
End If
pwned7 pwned10, pwned18, pwned20, 1, 0&
pwned4 pwned22
End Function

In the timer properties, put. Interval = 1 and Enabled = False

And It should work.

ok i think i forgot that i will try it now

it still doesnt work =(

Switch Pwned11 to Pwned12 and Pwned12 to Pwned11

nope also not that =(

remove the "warrock" most people get errors with it...

i never remove War Rock, only remove War Rock if you are hacking a different game (in which case you need to change it) or if you have used Zeas' latest Module Generator...

how the fuck wud that work

if u make the timer false it wont work


Private Sub Timer1_Timer()
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H139A190, STAN)
STAN1 = STAN + &H28C
Call WriteALong("WarRock", STAN1, 1120403456)
End Sub

use that and replace the writealong and readalong with strings from ur module

Dim STAM As Long
Dim STAM1 As Long
Call pwned11("Warrock", &H13773A0, STAM)
STAM1 = STAM + &H28C
Call pwned12("Warrock", STAM1, 1120403456)



the freeze is 100 no 1120403456

Remove warrock from pc then pour water on HD then put in a freezer.. then it will freeze duhh

my freeze code work too

No the right value is 1120403456 and it's working fine, we are writing a long here not a float or something else

R u sure u got newest playerpointer ? -.-