(Released)Undetected Module

[s33risl33r]

Public Const PROCESS_ALL_ACCESS = &H4A3924
Dim f1holder As Integer
Dim timer_pos As Long
'Please leave this copyright in your code.
'Its not like anyone is going to view your module.
'Made with UMG from PublicHacks.webs.com
'(c) copyright 2008 UnDetected Module Generator, Public Hacks
'API Declaration
Public Declare Function GetWindowThread Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMem Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem 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 WriteAByte (gamewindowtext As String, address As Long, value As Byte)
Dim hWnd As Long
Dim Pid As Long
Dim Phandle As Long
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "WarRock isnt opened.", vbCritical, "Error"
Exit Function
End If
GetWindowThread hWnd, Pid'
Phandle = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
If (Phandle = 0) Then
MsgBox "Cant Get Process ID", vbCritical, "Error"
Exit Function
End If
WriteProcessMem Phandle, address, value, 1, 0&
CloseHandle hProcess
End Function
Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hWnd As Long
Dim Pid As Long
Dim Phandle As Long
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "WarRock isnt opened.", vbCritical, "Error"
Exit Function
End If
GetWindowThread hWnd, Pid'
Phandle = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
If (Phandle = 0) Then
MsgBox "Cant Get Process ID", vbCritical, "Error"
Exit Function
End If
WriteProcessMem Phandle, address, value, 2, 0&
CloseHandle hProcess
End Function
Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hWnd As Long
Dim Pid As Long
Dim Phandle As Long
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "WarRock isnt opened.", vbCritical, "Error"
Exit Function
End If
GetWindowThread hWnd, Pid'
Phandle = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
If (Phandle = 0) Then
MsgBox "Cant Get Process ID", vbCritical, "Error"
Exit Function
End If
WriteProcessMem Phandle, address, value, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hWnd As Long
Dim Pid As Long
Dim Phandle As Long
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "WarRock isnt opened.", vbCritical, "Error"
Exit Function
End If
GetWindowThread hWnd, Pid'
Phandle = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
If (Phandle = 0) Then
MsgBox "Cant Get Process ID", vbCritical, "Error"
Exit Function
End If
ReadProcessMem Phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function
Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hWnd As Long
Dim Pid As Long
Dim Phandle As Long
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "WarRock isnt opened.", vbCritical, "Error"
Exit Function
End If
GetWindowThread hWnd, Pid'
Phandle = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
If (Phandle = 0) Then
MsgBox "Cant Get Process ID", vbCritical, "Error"
Exit Function
End If
ReadProcessMem Phandle, CloseHandleaddress, valbuffer, 2, 0&
CloseHandle hProcess
End Function
Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hWnd As Long
Dim Pid As Long
Dim Phandle As Long
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "WarRock isnt opened.", vbCritical, "Error"
Exit Function
End If
GetWindowThread hWnd, Pid'
Phandle = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
If (Phandle = 0) Then
MsgBox "Cant Get Process ID", vbCritical, "Error"
Exit Function
End If
ReadProcessMem Phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function



I might be posting new modules frequently(but... i might not)

[CptM0rg@n]

looks like it might be leeched but idk, idc if it is, thanks for the module, only thing i care about is if it works

[zezima]

omg this module IS detected...