Undetected Module Generator

'get0window0thread0process0id
'open0proces
'write0process0memory
'close0handle
'find0window0A
'get0async0key0stat
'read0precess0memory
'write0a0long
'read0a0long
'read0a0float
'write0a0float
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function get0window0thread0process0id Lib "user32" Alias "GetWindowThreadProcessId" (ByVal h0wnd0 As Long, lpdwProcessId As Long) As Long
Public Declare Function open0proces Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function write0process0memory 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 close0handle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function find0window0A Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function get0async0key0state Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function read0precess0memory 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 write0a0long(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Long)
Dim h0wnd0 As Long
Dim pid As Long
Dim get0window0thread0process0id0 As Long
h0wnd0 = find0window0A(vbNullString, Warrock_fenster_4_)
If (h0wnd0 = 0) Then
End
Exit Function
End If
get0window0thread0process0id h0wnd0, pid
get0window0thread0process0id0 = open0proces(PROCESS_ALL_ACCESS, False, pid)
If (get0window0thread0process0id0 = 0) Then
Exit Function
End If
write0process0memory get0window0thread0process0id0, Combination_4_, Super_zahl_4_, 4, 0&
close0handle hProcess
End Function

Public Function read0a0long(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Long)
Dim h0wnd0 As Long
Dim pid As Long
Dim get0window0thread0process0id0 As Long
h0wnd0 = find0window0A(vbNullString, Warrock_fenster_4_)
If (h0wnd0 = 0) Then
End
Exit Function
End If
get0window0thread0process0id h0wnd0, pid
get0window0thread0process0id0 = open0proces(PROCESS_ALL_ACCESS, False, pid)
If (get0window0thread0process0id0 = 0) Then
Exit Function
End If
read0precess0memory get0window0thread0process0id0, Combination_4_, Super_zahl_filter_4_, 4, 0&
close0handle hProcess
End Function

Public Function read0a0float(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Single)
Dim h0wnd0 As Long
Dim pid As Long
Dim get0window0thread0process0id0 As Long
h0wnd0 = find0window0A(vbNullString, Warrock_fenster_4_)
If (h0wnd0 = 0) Then
End
Exit Function
End If
get0window0thread0process0id h0wnd0, pid
get0window0thread0process0id0 = open0proces(PROCESS_ALL_ACCESS, False, pid)
If (get0window0thread0process0id0 = 0) Then
Exit Function
End If
read0precess0memory get0window0thread0process0id0, Combination_4_, Super_zahl_filter_4_, 4, 0&
close0handle hProcess
End Function

Public Function write0a0float(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Single)
Dim h0wnd0 As Long
Dim pid As Long
Dim get0window0thread0process0id0 As Long
h0wnd0 = find0window0A(vbNullString, Warrock_fenster_4_)
If (h0wnd0 = 0) Then
End
Exit Function
End If
get0window0thread0process0id h0wnd0, pid
get0window0thread0process0id0 = open0proces(PROCESS_ALL_ACCESS, False, pid)
If (get0window0thread0process0id0 = 0) Then
Exit Function
End If
write0process0memory get0window0thread0process0id0, Combination_4_, Superzahl_4_, 4, 0&
close0handle hProcess
End Function

Public Function write0a0byte(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Byte)
Dim h0wnd0 As Long
Dim pid As Long
Dim get0window0thread0process0id0 As Long
h0wnd0 = find0window0A(vbNullString, Warrock_fenster_4_)
If (h0wnd0 = 0) Then
End
Exit Function
End If
get0window0thread0process0id h0wnd0, pid
get0window0thread0process0id0 = open0proces(PROCESS_ALL_ACCESS, False, pid)
If (get0window0thread0process0id0 = 0) Then
Exit Function
End If
write0process0memory get0window0thread0process0id0, Combination_4_, Super_zahl_4_, 1, 0&
close0handle hProcess
End Function

Public Function read0a0byte(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Byte)
Dim h0wnd0 As Long
Dim pid As Long
Dim get0window0thread0process0id0 As Long
h0wnd0 = find0window0A(vbNullString, Warrock_fenster_4_)
If (h0wnd0 = 0) Then
End
Exit Function
End If
get0window0thread0process0id h0wnd0, pid
get0window0thread0process0id0 = open0proces(PROCESS_ALL_ACCESS, False, pid)
If (get0window0thread0process0id0 = 0) Then
Exit Function
End If
read0precess0memory get0window0thread0process0id0, Combination_4_, Super_zahl_filter_4_, 1, 0&
close0handle hProcess
End Function

If get0async0key0state(17) <> 0 Then
Dim superjump As Long
Dim superjump2 As Long
read0a0long ("warrock", &h1332A20, superjump2)

superjump = superjump2 + &H178
write0a0FLoat ("warrock", superjump)


End If

compile error: expected =