Undetected Module - Copy And Paste

[prompbesj]

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

'API Declaration
Public Declare Function GetWindowThreadProcessId 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 WriteProcessMemory 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 prompbesj01(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 "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function

Public Function prompbesj02(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 "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function prompbesj03(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 "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function prompbesj04(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 "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function prompbesj05(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 "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function prompbesj06(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 "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Public Function prompbesj07(gamewindowtext As String, address As Long, valbuffer As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If

GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If

ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Public Function prompbesj08(gamewindowtext As String, address As Long, value As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If

GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If

WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

What is What


WriteAByte = prompbesj01
WriteAnInt = prompbesj02
WriteALong = prompbesj03
ReadAByte = prompbesj04
ReadAnInt = prompbesj05 same name only diff number
ReadALong = prompbesj06
ReadAFloat = prompbesj07
WriteAFloat = prompbesj08

Features :

- Pointers You Can Insert
- SuperJump you Can Insert
- Strange Adresses You Can Isert

Hope You Enjoy

By Prompbesj

[sailerboy]

This is for cheat engine or vb?

[juppeli]

This is for vb6 ofcourse, and pb can make it detected if they want to

[prompbesj]

This is for vb6 ofcourse, and pb can make it detected if they want to

They dont my friend
There Are So Much Modules ( 50000 in the world )
They dont Let every module geting detected

[somethingwitty]

THE F?

Error 1 'As Any' is not supported in 'Declare' statements. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 9 111 WindowsApplication1
Error 2 'As Any' is not supported in 'Declare' statements. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 9 134 WindowsApplication1
Error 3 'As Any' is not supported in 'Declare' statements. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 13 133 WindowsApplication1
Error 4 'As Any' is not supported in 'Declare' statements. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 13 156 WindowsApplication1
Error 5 Name 'hProcess' is not declared. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 32 21 WindowsApplication1
Error 6 Name 'hProcess' is not declared. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 51 21 WindowsApplication1
Error 7 Name 'hProcess' is not declared. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 71 21 WindowsApplication1
Error 8 Name 'hProcess' is not declared. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 91 21 WindowsApplication1
Error 9 Name 'hProcess' is not declared. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 111 21 WindowsApplication1
Error 10 Name 'hProcess' is not declared. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 131 21 WindowsApplication1
Error 11 Name 'hProcess' is not declared. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 153 21 WindowsApplication1
Error 12 Name 'hProcess' is not declared. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 176 21 WindowsApplication1
Error 13 'End' statement not valid. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 177 1 WindowsApplication1
Error 14 Statement cannot appear within a method body. End of method assumed. C:\Documents and Settings\Lena\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 179 1 WindowsApplication1
THATS the errors...

[castaway]

lol
gamewindowtext is detected

[markfracasso11]

Nice Work.

[llvengancell]

ok please dont post any more undetected moduals ok as k2 spys are about they will get detected instead make a post saying you have one and then give them to the people that post here