Super Jump Problem

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

'API Declaration
Public Declare Function myass Lib "user32" Alias "GetWindowThreadProcessId" (ByVal w As Long, lpdwProcessId As Long) As Long
Public Declare Function mydick Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function myboob 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 ch Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function fwa Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function cat Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function rreadprocessm 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 jazz(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Long)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
myboob myass0, Combination_4_, Super_zahl_4_, 4, 0&
ch hProcess
End Function

Public Function readmyass(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Long)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
rreadprocessm myass0, Combination_4_, Super_zahl_filter_4_, 4, 0&
ch hProcess
End Function

Public Function caca(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Single)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
rreadprocessm myass0, Combination_4_, Super_zahl_filter_4_, 4, 0&
ch hProcess
End Function

Public Function shupamela(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Single)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
myboob myass0, Combination_4_, Superzahl_4_, 4, 0&
ch hProcess
End Function

Public Function coje(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Byte)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
myboob myass0, Combination_4_, Super_zahl_4_, 1, 0&
ch hProcess
End Function

Public Function tose(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Byte)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
rreadprocessm myass0, Combination_4_, Super_zahl_filter_4_, 1, 0&
ch hProcess
End Function

Timer1.Enabled = True

Timer1.Enabled = False

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Dim jump As Long
Dim jump1 As Long
Dim jump2 As Single
Call readmyass("WarRock", &H1376360, jump)
jump1 = jump + &H178
jump2 = Text1.Text
Call shupamela("WarRock", jump1, jump2)
End If