In the timer properties, put. Interval = 1 and Enabled = False
And It should work.
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
R u sure u got newest playerpointer ? -.-
ahhahahThe error issssssssssssssssssss:
tha playerpointer is :139B6B8
this is the error ..