Visual Basic Trainer Sorunu.
-
Modül.
- Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
- Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
- Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
- Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
- Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
- Declare Function ReadProcessMem 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 WritePtrOffset(Pointer As Long, Offset As Long, Value As Long, WindowName As String, BytesToWrite As Long)
- '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(vbNullString, WindowName)
- 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(Offset) 'find the address (pointer+offset)
- Call WriteMemory(a2, Value, WindowName, BytesToWrite) 'call the function to write to that address
- CloseHandle ProcessHandle
- End Function
- Function WriteMemory(Address As Long, Value As Long, WindowName As String, BytesToWrite As Long)
- Dim handle As Long, ProcessID As Long, ProcessHandle As Long, gamewindowtext As String, bytes As Byte
- handle = FindWindow(vbNullString, WindowName)
- GetWindowThreadProcessId handle, ProcessID
- ProcessHandle = OpenProcess(&H1F0FFF, True, ProcessID) 'find the process handle
- WriteProcessMemory ProcessHandle, Address, Value, BytesToWrite, 0 'write to memory
- CloseHandle ProcessHandle
- End Function
-----------------------------------------------
form1
- Private Sub CN_Change()
- If CN.Value = Checked Then CNC.Enabled = False Else CNC.Enabled = True
- End Sub
- Private Sub Form_Load()
- End Sub
- Private Sub hizb_Click()
- Call WritePtrOffset(&H9EA0EC, hiz.Text, 16384, "CNC.Text", 4)
- End Sub
- Private Sub LH_Change()
- hiz.Enabled = False
- hizb.Enabled = False
- Call WritePtrOffset(&H9EA0EC, 1272, 0, "CNC.Text", 2)
- hiz.Text = 16384
- End Sub
- Private Sub MH_Change()
- hiz.Enabled = True
- hizb.Enabled = True
- Call WritePtrOffset(&H9EA0EC, hiz.Text, 16384, "CNC.Text", 4)
- End Sub
- Private Sub NH_Change()
- hiz.Enabled = False
- hizb.Enabled = False
- Call WritePtrOffset(&H9EA0EC, 1410, 16256, "CNC.Text", 4)
- hiz.Text = 16256
- End Sub
- Private Sub SH_Change()
- hiz.Enabled = False
- hizb.Enabled = False
- Call WritePtrOffset(&H9EA0EC, 1410, 16320, "CNC.Text", 4)
- hiz.Text = 16320
- End Sub
- Private Sub WHA_Change()
- Call WritePtrOffset(&H9EA0EC, 1272, 0, "CNC.Text", 2)
- End Sub
- Private Sub WHD_Change()
- Call WritePtrOffset(&H9EA0EC, 1272, 1, "Cnc.Text", 2)
- End Sub
fakat oyuna hic bir etki etmiyor
cnc.text oyunun adini gösteriyor amac farklı oyunlar kullanmak değil genel olarak trainer engellemek icin surekli pencerenin adi değişiyor
sorun nerde :S
Toplam Hit: 1778 Toplam Mesaj: 1