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