Undetected Module Generator

[poon hacker]

Do I need to type (ex.) Alias "WriteAFloat" or just my alias?

[Gold Stone]

omfg , thanks nigga's xD

[mpghhackersrock123]

2 words
Thank you!!!!

[ZeaS]

lol this is outdated long time ago >_> ^^

[olie122333]

wow, thanks!

Did you make this urself?


XD

[ZeaS]

wow, thanks!

Did you make this urself?


XD

yes but i sayed it is outdated i always got a v3 of the maker... but i don't release it here

[landerman007]

1000000000000000000000000000000000 thx

[Alen]

1000000000000000000000000000000000 thx

nice but stop bringing up old topics, ok?

[landerman007]

i have this module:

'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

and this superjump code

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

it gives the follow error:

compile error: expected =

[ivopereira]

Thanks Very usefull

[Murkforce]

Wow thx.

[condor01]

This is an old and outdated version and will probably get u banned as some strings will still be detected so get the updated version and sont BUMP OLD TOPICS!

[skater310]

dude ur my hero thanks so much

[radnomguywfq3]

Please be careful not to bump old topics, its already been said recently in this thread.

[ilovepie21]

nice tyvm