Followed zillions of tuts...heres what i got working :
Code:
Module Module1
Private Declare Function UVYKKHZISB Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function KHICHRIYPK 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 XMMUNESBWU Lib "kernel32" Alias "WriteProcessMemory" (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 EZQKZXWUYC Lib "kernel32" Alias "ReadProcessMemory" (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 IFOAUTBZKM Lib "kernel32" Alias "ReadProcessMemory" (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 ZJHGGCOBCW Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
Public Declare Function UQZTQHPJUG Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Public CVNXRZXNQQ As Long
Public PEZIQNSYNZ As Single
Public OKGKFNVEPJ As Integer
'WriteMemory
Public Function FSIJKXTNWT(ByVal KKIKERAYCU As Integer, ByVal BSKKIBYHJD As Long, ByVal VDJQLGJWQM As Integer)
Dim GYLEPVKTQP As Process() = Process.GetProcessesByName("Counter-Strike Source")
If GYLEPVKTQP.Length = 0 Then
End
End If
Dim CCUYGZAUSA As IntPtr = UVYKKHZISB(&H2051F774, 1, GYLEPVKTQP(0).Id)
KHICHRIYPK(CCUYGZAUSA, KKIKERAYCU, BSKKIBYHJD, VDJQLGJWQM, Nothing)
ZJHGGCOBCW(CCUYGZAUSA)
Return Nothing
End Function
End Module
Although, the problem is that when i run the timer :
FSIJKXTNWT(&H243AEC3C, 2, 4)
the app shuts down !!!!! what the heck ! and it wont seem to work..but the address is correct !