[HELP]trying to do simple trainer for counter-strikesource

[cheech123]

Followed zillions of tuts...heres what i got working :

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 !

[XGelite]

are you sure the address is not protected?

[hopefordope]

seems that you are editing a process

[cheech123]

Any ideas ?

With cheat engine i can change address and its green so its fixed..

Whay you mean by editing a process ?

[cheech123]

I had another look in other tutorials and there seems to be no why this is happening..any help ? Plz ?