Modül. Declare Function GetWindowThreadProcessId Lib "user32" As LongDeclare Function OpenProcess Lib "kernel32" As LongDeclare Function FindWindow Lib "user32" Alias "FindWindowA" As LongDeclare Function WriteProcessMemory Lib "kernel32" As LongDeclare Function CloseHandle Lib "kernel32" As LongDeclare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" As LongPublic Function WritePtrOffset 'Pointer is the pointer's Address Dim a2 As Long 'Decimal address Dim ProcessID As Long 'Process ID Dim ProcessHandle As Long 'Process Handle Dim Pointer2 As Long 'pointer Dim handle As Long handle = FindWindow GetWindowThreadProcessId handle, ProcessID ProcessHandle = OpenProcess(&H1F0FFF, True, ProcessID) 'find the process handle If ProcessHandle = 0 Then Exit Function End If 'Exit Function if can't get the process handle ReadProcessMem ProcessHandle, Pointer, Pointer2, 8, 0& 'read the pointer a2 = Val(Pointer2) + Val 'find the address Call WriteMemory(a2, Value, WindowName, BytesToWrite) 'call the function to write to that addressCloseHandle ProcessHandleEnd FunctionFunction WriteMemory Dim handle As Long, ProcessID As Long, ProcessHandle As Long, gamewindowtext As String, bytes As Bytehandle = FindWindow GetWindowThreadProcessId handle, ProcessIDProcessHandle = OpenProcess(&H1F0FFF, True, ProcessID) 'find the process handleWriteProcessMemory ProcessHandle, Address, Value, BytesToWrite, 0 'write to memoryCloseHandle ProcessHandleEnd Function form1Private Sub CN_Change If CN. Value = Checked Then CNC. Enabled = False Else CNC. Enabled = TrueEnd SubPrivate Sub Form_Load End SubPrivate Sub hizb_Click Call WritePtrOffset(&H9EA0EC, hiz. Text, 16384, "CNC. Text", 4)End SubPrivate Sub LH_Change hiz. Enabled = Falsehizb. Enabled = FalseCall WritePtrOffset(&H9EA0EC, 1272, 0, "CNC. Text", 2)hiz. Text = 16384End SubPrivate Sub MH_Change hiz. Enabled = Truehizb. Enabled = TrueCall WritePtrOffset(&H9EA0EC, hiz. Text, 16384, "CNC. Text", 4)End SubPrivate Sub NH_Change hiz. Enabled = Falsehizb. Enabled = FalseCall WritePtrOffset(&H9EA0EC, 1410, 16256, "CNC. Text", 4)hiz. Text = 16256End SubPrivate Sub SH_Change hiz. Enabled = Falsehizb. Enabled = FalseCall WritePtrOffset(&H9EA0EC, 1410, 16320, "CNC. Text", 4)hiz. Text = 16320End SubPrivate Sub WHA_Change Call WritePtrOffset(&H9EA0EC, 1272, 0, "CNC. Text", 2)End SubPrivate Sub WHD_Change Call WritePtrOffset(&H9EA0EC, 1272, 1, "Cnc. Text", 2)End Sub fakat oyuna hic bir etki etmiyorcnc. text oyunun adini gsteriyor amac farklı oyunlar kullanmak değil genel olarak trainer engellemek icin surekli pencerenin adi değişiyor sorun nerde :S "açık mı var la" yazdı diye ban yiyen adam!