UNDETECTED MODULE

here enjoy.....if u have a hack thats new but detected and it still works just replace the old module with this one

Private Declare Function S5334 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function O2896 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function I7747 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function A7607 Lib "user32" Alias "FindWindowA" ByVal Classname As String, ByVal WindowName As String) As Long
Private Declare Function U7090 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
Private Declare Function B4140 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long

Public Function pwnage01(Y3640 As Long, N7671 As Long)
Dim W7905, J9619, W563 As Long
W7905 = A7607(vbNullString, "WarRock")
S5334 W7905, J9619
W563 = O2896(&H1F0FFF, False, J9619)
I7747 W563, Y3640, N7671, 4, 0&
B4140 W563
End Function

Public Function pwnage02(Y3640 As Long, N7671 As Long)
Dim W7905, J9619, W563 As Long
W7905 = A7607(vbNullString, "WarRock")
S5334 W7905, J9619
W563 = O2896(&H1F0FFF, False, J9619)
U7090 W563, Y3640, N7671, 4, 0&
B4140 W563
End Function

Public Function pwnage03(Y3640 As Long, N7671 As Single)
Dim W7905, J9619, W563 As Long
W7905 = A7607(vbNullString, "WarRock")
S5334 W7905, J9619
W563 = O2896(&H1F0FFF, False, J9619)
I7747 W563, Y3640, N7671, 4, 0&
B4140 W563
End Function

Public Function pwnage04(Y3640 As Long, N7671 As Long)
Dim W7905, J9619, W563 As Long
W7905 = A7607(vbNullString, "WarRock")
S5334 W7905, J9619
W563 = O2896(&H1F0FFF, False, J9619)
U7090 W563, Y3640, N7671, 4, 0&
B4140 W563
End Function