[HELP]Stamina

[xown0x]

I make 2 buttons and 1 timer
1 button:
Timer1.Enabled=True
2 button:
Timer1.Enabled=False

for the timer
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN +&H288
Call WriteALong("WarRock", STAN1, 100)

COMPILE ERROR:

SUB OR FUNCTION NOT DEFINIED.

WHAT WRONG?

[diamondo25]

Do you have a hack module? are "ReadALong" and "WriteALong" right?

[tobiasm9]

add this module:
this is undetectable module:
Public Const krebs = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function string1 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function string2 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function string3 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 string4 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function string5 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function string6 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function string7 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 writealong(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Long) 'WriteALong
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string3 hoden, Combination_4_, Super_zahl_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function readalong(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Long) 'ReadALong
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string7 hoden, Combination_4_, Super_zahl_filter_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function readafloat(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Single) 'ReadAFloat
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string7 hoden, Combination_4_, Super_zahl_filter_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function writeafloat(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Single) 'WriteAFloat
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string3 hoden, Combination_4_, Super_zahl_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function writeabyte(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Byte) 'WriteAByte
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string3 hoden, Combination_4_, Super_zahl_4_, 1, 0&
string4 lmdkwaa
End Function

Public Function readabyte(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Byte) 'ReadAByte
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string7 hoden, Combination_4_, Super_zahl_filter_4_, 1, 0&
string4 lmdkwaa
End Function

[tobiasm9]

right click add-module and press open new and paste this in it and u will get working hack

[tobiasm9]

this is my hack pls tell if it works it is stamina hack

[Th3 0wnzman]

Its WriteAFloat not WriteALong


1 button:
Timer1.Enabled=True
2 button:
Timer1.Enabled=False

for the timer
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN +&H288
Call WriteAFloat("WarRock", STAN1, 100)