help stamina

hello i got a problem whit my stam hack it dont freezes what im doing wrong plz look
this is what i putted in the stamina On butten:

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

this i putted in stamina off :

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

this i putted in timer:

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

End Sub


this is the modulle i added :

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

'API Declaration
Public Declare Function SMRDIYSAX Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function MRDIYSAXS Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function RDIYSAXSM 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 DIYSAXSMR Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function IYSAXSMRD Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function YSAXSMRDI Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function SAXSMRDIY 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 SMRDISYXA(SSSSSYSXA As String, MMMDIYSXA As Long, RRRDIYSXA As Long) 'WriteALong
Dim AXSMRDIYS As Long
Dim SMRDIYSXA As Long
Dim SMRDIYAXS As Long
AXSMRDIYS = IYSAXSMRD(vbNullString, SSSSSYSXA)
If (AXSMRDIYS = 0) Then
End
Exit Function
End If
SMRDIYSAX AXSMRDIYS, SMRDIYSXA
SMRDIYAXS = MRDIYSAXS(SSSSSAASD, False, SMRDIYSXA)
If (SMRDIYAXS = 0) Then
Exit Function
End If
RDIYSAXSM SMRDIYAXS, MMMDIYSXA, RRRDIYSXA, 4, 0&
DIYSAXSMR IIIISIYID
End Function

Public Function SMRDYISXA(SSSSSYSXA As String, MMMDIYSXA As Long, DDDDIYSXA As Long) 'ReadALong
Dim AXSMRDIYS As Long
Dim SMRDIYSXA As Long
Dim SMRDIYAXS As Long
AXSMRDIYS = IYSAXSMRD(vbNullString, SSSSSYSXA)
If (AXSMRDIYS = 0) Then
End
Exit Function
End If
SMRDIYSAX AXSMRDIYS, SMRDIYSXA
SMRDIYAXS = MRDIYSAXS(SSSSSAASD, False, SMRDIYSXA)
If (SMRDIYAXS = 0) Then
Exit Function
End If
SAXSMRDIY SMRDIYAXS, MMMDIYSXA, DDDDIYSXA, 4, 0&
DIYSAXSMR IIIISIYID
End Function

Public Function SMDRIYSXA(SSSSSYSXA As String, MMMDIYSXA As Long, DDDDIYSXA As Single) 'ReadAFloat
Dim AXSMRDIYS As Long
Dim SMRDIYSXA As Long
Dim SMRDIYAXS As Long
AXSMRDIYS = IYSAXSMRD(vbNullString, SSSSSYSXA)
If (AXSMRDIYS = 0) Then
End
Exit Function
End If
SMRDIYSAX AXSMRDIYS, SMRDIYSXA
SMRDIYAXS = MRDIYSAXS(SSSSSAASD, False, SMRDIYSXA)
If (SMRDIYAXS = 0) Then
Exit Function
End If
SAXSMRDIY SMRDIYAXS, MMMDIYSXA, DDDDIYSXA, 4, 0&
DIYSAXSMR IIIISIYID
End Function

Public Function MSRDIYSXA(SSSSSYSXA As String, MMMDIYSXA As Long, RRRDIYSXA As Single) 'WriteAFloat
Dim AXSMRDIYS As Long
Dim SMRDIYSXA As Long
Dim SMRDIYAXS As Long
AXSMRDIYS = IYSAXSMRD(vbNullString, SSSSSYSXA)
If (AXSMRDIYS = 0) Then
End
Exit Function
End If
SMRDIYSAX AXSMRDIYS, SMRDIYSXA
SMRDIYAXS = MRDIYSAXS(SSSSSAASD, False, SMRDIYSXA)
If (SMRDIYAXS = 0) Then
Exit Function
End If
RDIYSAXSM SMRDIYAXS, MMMDIYSXA, RRRDIYSXA, 4, 0&
DIYSAXSMR IIIISIYID
End Function

Public Function DMSDIYSXA(SSSSSYSXA As String, MMMDIYSXA As Long, RRRDIYSXA As Byte) 'WriteAByte
Dim AXSMRDIYS As Long
Dim SMRDIYSXA As Long
Dim SMRDIYAXS As Long
AXSMRDIYS = IYSAXSMRD(vbNullString, SSSSSYSXA)
If (AXSMRDIYS = 0) Then
End
Exit Function
End If
SMRDIYSAX AXSMRDIYS, SMRDIYSXA
SMRDIYAXS = MRDIYSAXS(SSSSSAASD, False, SMRDIYSXA)
If (SMRDIYAXS = 0) Then
Exit Function
End If
RDIYSAXSM SMRDIYAXS, MMMDIYSXA, RRRDIYSXA, 1, 0&
DIYSAXSMR IIIISIYID
End Function

Public Function XMRDIYSAS(SSSSSYSXA As String, MMMDIYSXA As Long, DDDDIYSXA As Byte) 'ReadAByte
Dim AXSMRDIYS As Long
Dim SMRDIYSXA As Long
Dim SMRDIYAXS As Long
AXSMRDIYS = IYSAXSMRD(vbNullString, SSSSSYSXA)
If (AXSMRDIYS = 0) Then
End
Exit Function
End If
SMRDIYSAX AXSMRDIYS, SMRDIYSXA
SMRDIYAXS = MRDIYSAXS(SSSSSAASD, False, SMRDIYSXA)
If (SMRDIYAXS = 0) Then
Exit Function
End If
SAXSMRDIY SMRDIYAXS, MMMDIYSXA, DDDDIYSXA, 1, 0&
DIYSAXSMR IIIISIYID
End Function

Hmm
Try this ( i'll added write&readALong from your module):
If this works, don't forget to thanks me!

I thanked you, because it works!