module for vb6

[thizzdanc1]

I Need A module for vb6 i have ots of hacks to release but i dont got a module so can some one willing to help me post a module in this post for me plz

[str1k3r21]

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

'API Declaration
Public Declare Function FUNEKHHSR Lib "user32" Alias "GetWindowThreadProcessId" (ByVal SRFUNEKHH As Long, lpdwProcessId As Long) As Long
Public Declare Function UNEKHHSRF Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function NEKHHSRFU 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 EKHHSRFUN Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function KHHSRFUNE Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function HHSRFUNEK Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function HSRFUNEKH 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 FUNEKHHRS(FFFFFHHRS As String, UUUEKHHRS As Long, NNNEKHHRS As Long)
Dim SRFUNEKHH As Long
Dim FUNEKHHRS As Long
Dim FUNEKHHSR0 As Long
SRFUNEKHH = KHHSRFUNE(vbNullString, FFFFFHHRS)
If (SRFUNEKHH = 0) Then
End
Exit Function
End If
FUNEKHHSR SRFUNEKHH, FUNEKHHRS
FUNEKHHSR0 = UNEKHHSRF(PROCESS_ALL_ACCESS, False, FUNEKHHRS)
If (FUNEKHHSR0 = 0) Then
Exit Function
End If
NEKHHSRFU FUNEKHHSR0, UUUEKHHRS, NNNEKHHRS, 4, 0&
EKHHSRFUN hProcess
End Function

Public Function FUNEHKHRS(FFFFFHHRS As String, UUUEKHHRS As Long, EEEEKHHRS As Long)
Dim SRFUNEKHH As Long
Dim FUNEKHHRS As Long
Dim FUNEKHHSR0 As Long
SRFUNEKHH = KHHSRFUNE(vbNullString, FFFFFHHRS)
If (SRFUNEKHH = 0) Then
End
Exit Function
End If
FUNEKHHSR SRFUNEKHH, FUNEKHHRS
FUNEKHHSR0 = UNEKHHSRF(PROCESS_ALL_ACCESS, False, FUNEKHHRS)
If (FUNEKHHSR0 = 0) Then
Exit Function
End If
HSRFUNEKH FUNEKHHSR0, UUUEKHHRS, EEEEKHHRS, 4, 0&
EKHHSRFUN hProcess
End Function

Public Function FUENKHHRS(FFFFFHHRS As String, UUUEKHHRS As Long, EEEEKHHRS As Single)
Dim SRFUNEKHH As Long
Dim FUNEKHHRS As Long
Dim FUNEKHHSR0 As Long
SRFUNEKHH = KHHSRFUNE(vbNullString, FFFFFHHRS)
If (SRFUNEKHH = 0) Then
End
Exit Function
End If
FUNEKHHSR SRFUNEKHH, FUNEKHHRS
FUNEKHHSR0 = UNEKHHSRF(PROCESS_ALL_ACCESS, False, FUNEKHHRS)
If (FUNEKHHSR0 = 0) Then
Exit Function
End If
HSRFUNEKH FUNEKHHSR0, UUUEKHHRS, EEEEKHHRS, 4, 0&
EKHHSRFUN hProcess
End Function

Public Function UFNEKHHRS(FFFFFHHRS As String, UUUEKHHRS As Long, NNNEKHHRS As Single)
Dim SRFUNEKHH As Long
Dim FUNEKHHRS As Long
Dim FUNEKHHSR0 As Long
SRFUNEKHH = KHHSRFUNE(vbNullString, FFFFFHHRS)
If (SRFUNEKHH = 0) Then
End
Exit Function
End If
FUNEKHHSR SRFUNEKHH, FUNEKHHRS
FUNEKHHSR0 = UNEKHHSRF(PROCESS_ALL_ACCESS, False, FUNEKHHRS)
If (FUNEKHHSR0 = 0) Then
Exit Function
End If
NEKHHSRFU FUNEKHHSR0, UUUEKHHRS, Superzahl_4_, 4, 0&
EKHHSRFUN hProcess
End Function

Public Function EUFEKHHRS(FFFFFHHRS As String, UUUEKHHRS As Long, NNNEKHHRS As Byte)
Dim SRFUNEKHH As Long
Dim FUNEKHHRS As Long
Dim FUNEKHHSR0 As Long
SRFUNEKHH = KHHSRFUNE(vbNullString, FFFFFHHRS)
If (SRFUNEKHH = 0) Then
End
Exit Function
End If
FUNEKHHSR SRFUNEKHH, FUNEKHHRS
FUNEKHHSR0 = UNEKHHSRF(PROCESS_ALL_ACCESS, False, FUNEKHHRS)
If (FUNEKHHSR0 = 0) Then
Exit Function
End If
NEKHHSRFU FUNEKHHSR0, UUUEKHHRS, NNNEKHHRS, 1, 0&
EKHHSRFUN hProcess
End Function

Public Function RUNEKHHSF(FFFFFHHRS As String, UUUEKHHRS As Long, EEEEKHHRS As Byte)
Dim SRFUNEKHH As Long
Dim FUNEKHHRS As Long
Dim FUNEKHHSR0 As Long
SRFUNEKHH = KHHSRFUNE(vbNullString, FFFFFHHRS)
If (SRFUNEKHH = 0) Then
End
Exit Function
End If
FUNEKHHSR SRFUNEKHH, FUNEKHHRS
FUNEKHHSR0 = UNEKHHSRF(PROCESS_ALL_ACCESS, False, FUNEKHHRS)
If (FUNEKHHSR0 = 0) Then
Exit Function
End If
HSRFUNEKH FUNEKHHSR0, UUUEKHHRS, EEEEKHHRS, 1, 0&
EKHHSRFUN hProcess
End Function

[thizzdanc1]

i love u man thnks u alot i am gonna give u thanks