what's wrong with my vb08 module?

[jettz 0]

please help

 

Module Module1
Public vBuffer As Long
Public vBufferS As Single
Public Declare Function gtwndwthrdprcsssID Lib "user32" Alias "getwindowthreadprocessID" (ByVal hWnd As Long, ByVal lpdwProcessId As Long) As Long
Private Declare Function openprocess Lib "kernel32" Alias "openprocess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function wrprcsssmem Lib "kernel32" Alias "writeprocessmemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function wrfltmem Lib "kernel32" Alias "wrprcsssmem" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function rdflt Lib "kernel32" Alias "rdprcsssmem" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
Private Declare Function rdprcsssmem Lib "kernel32" Alias "rdprcsssmem" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function clsshandlee Lib "kernel32" Alias "closehandle" (ByVal hObject As Integer) As Integer
Public Declare Function hotkeyisthis Lib "user32" Alias "getasynckey" (ByVal vKey As Long) As Integer
Public RBuff As Long
Public RBuff2 As Single
Public RBuff3 As Integer

Public Function wrmemr(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = openprocess(&H1F0FFF, 0, warrockLookUp(0).Id)

	wrprcsssmem(processHandle, Address, Value, Bytes, Nothing)

	clsshandlee(processHandle)

End Function

Public Function rdflt(ByVal Address As Single)

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = openprocess(&H1F0FFF, 0, warrockLookUp(0).Id)

	rdprcsssmem(processHandle, Address, RBuff, 4, Nothing)

	clsshandlee(processHandle)

	Return RBuff

End Function

Public Function wrflt(ByVal Address As Integer, ByVal Value As Single)

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = openprocess(&H1F0FFF, 0, warrockLookUp(0).Id)

	wrfltmem(processHandle, Address, Value, 4, Nothing)

	clsshandlee(processHandle)

End Function

Public Function rdlngg(ByVal Address As Integer)

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = openprocess(&H1F0FFF, 0, warrockLookUp(0).Id)

	rdprcsssmem(processHandle, Address, RBuff, 4, Nothing)

	clsshandlee(processHandle)

	Return RBuff

End Function

Public Function rdfltPointer(ByVal Base As Integer, ByVal Offset As Short)

	Dim fullAddress As Long

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = openprocess(&H1F0FFF, 0, warrockLookUp(0).Id)

	rdprcsssmem(processHandle, Base, RBuff, 4, Nothing)

	fullAddress = RBuff + Offset

	rdflt(processHandle, fullAddress, RBuff2, 4, Nothing)

	Return RBuff2

	clsshandlee(processHandle)

End Function

Public Function rdlnggPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Bytes As Integer)

	Dim fullAddress As Long

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = openprocess(&H1F0FFF, 0, warrockLookUp(0).Id)

	rdprcsssmem(processHandle, Base, RBuff, 4, Nothing)

	fullAddress = RBuff + Offset

	rdprcsssmem(processHandle, fullAddress, RBuff3, Bytes, Nothing)

	Return RBuff3

	clsshandlee(processHandle)

End Function

Public Function wrfltptrr(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Single)

	Dim fullAddress As Long

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = openprocess(&H1F0FFF, 0, warrockLookUp(0).Id)

	rdprcsssmem(processHandle, Base, RBuff, 4, Nothing)

	fullAddress = RBuff + Offset

	wrfltmem(processHandle, fullAddress, Value, 4, Nothing)

	clsshandlee(processHandle)

End Function

Public Function wrlnggpntrr(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Long, ByVal Bytes As Integer)

	Dim fullAddress As Long

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = openprocess(&H1F0FFF, 0, warrockLookUp(0).Id)

	rdprcsssmem(processHandle, Base, RBuff, 4, Nothing)

	fullAddress = RBuff + Offset

	wrprcsssmem(processHandle, fullAddress, Value, Bytes, Nothing)

	clsshandlee(processHandle)

End Function

Public Function NOway(ByVal Address As Integer)

	Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

	If warrockLookUp.Length = 0 Then

		End

	End If

	Dim processHandle As IntPtr = openprocess(&H1F0FFF, 0, warrockLookUp(0).Id)

	wrprcsssmem(processHandle, Address, &H90, 1, Nothing)

	clsshandlee(processHandle)

End Function

End Module

[*Cry'Nex* 0]

You must make your Modul Ud

[jettz 0]

You must make your Modul Ud

 

this isn't working at all. idk if it's undetected or not but it's not doing anything in the first place when i try. i tried stamina hack

stamina addy that i have is 13941F0 + 28C. is that wrong? do i have to set it to a certain value?

[*Cry'Nex* 0]

Can you speak german??

Did you have icq??

[jettz 0]

no i don't have icq. ich sprecke ...not much..(klein?) deutch

[iPwn 0]

It's nothing wrong if you have warnings there are because the public modul is f*cking shit.

 

 

 

-!HaVe-FuN!-