Code đọc pointed bằng vb6 để dành hack on of trong vb6

08/01/2013

Code:

[color=#141414][font=tahoma]code đọc pointed bằng vb6 để dành hack on of trong vb6[/font][/color] [color=#141414][font=tahoma]phần general :[/font][/color] [color=#141414][font=tahoma]Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" [/font][/color] [color=#141414][font=tahoma](ByVal lpClassName As String, ByVal lpWindowName As String) As Long[/font][/color] [color=#141414][font=tahoma]Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long[/font][/color] [color=#141414][font=tahoma]Private Declare Function OpenProcess Lib "kernel32" (ByVal [/font][/color] [color=#141414][font=tahoma]dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID[/font][/color] [color=#141414][font=tahoma]As Long) As Long[/font][/color] [color=#141414][font=tahoma]Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal [/font][/color] [color=#141414][font=tahoma]hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal [/font][/color] [color=#141414][font=tahoma]nSize As Long, lpNumberOfBytesWritten As Long) As Long[/font][/color] [color=#141414][font=tahoma]Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal [/font][/color] [color=#141414][font=tahoma]hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, [/font][/color] [color=#141414][font=tahoma]ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long[/font][/color] [color=#141414][font=tahoma]Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long[/font][/color] [color=#141414][font=tahoma]Private Const PROCESS_VM_WRITE As Long = (&H20)[/font][/color] [color=#141414][font=tahoma]Private Const PROCESS_VM_READ As Long = (&H10)[/font][/color] [color=#141414][font=tahoma]Private Const PROCESS_VM_OPERATION As Long = (&H8)[/font][/color] [color=#141414][font=tahoma]Private Const PROCESS_QUERY_INFORMATION As Long = (&H400)[/font][/color] [color=#141414][font=tahoma]Private Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_OPERATION + PROCESS_QUERY_INFORMATION + PROCESS_VM_READ + PROCESS_VM_WRITE[/font][/color] [color=#141414][font=tahoma]Private Const BASE_ADDRESS As Long = &HB26B14 (base address)[/font][/color] [color=#141414][font=tahoma]Dim hProcess As Long, WinHwnd As Long, dwProcessID As Long[/font][/color] [color=#141414][font=tahoma]phần fuction[/font][/color] [color=#141414][font=tahoma]Dim TempVal As Long[/font][/color] [color=#141414][font=tahoma]ReadProcessMemory hProcess, lpBaseAddress, TempVal, Len(TempVal), 0[/font][/color] [color=#141414][font=tahoma]ReadProcessLong = TempVal[/font][/color] [color=#141414][font=tahoma]phần code(có thể đặt trong timer)[/font][/color] [color=#141414][font=tahoma]read memory:[/font][/color] [color=#141414][font=tahoma]On Error Resume Next (bỏ qua lỗi)[/font][/color] [color=#141414][font=tahoma]Dim WinHwnd As Long, dwProcessID As Long, hProcess As Long[/font][/color] [color=#141414][font=tahoma]Dim TempAddress As Long, StaticAddress As Long[/font][/color] [color=#141414][font=tahoma]WinHwnd = FindWindow("classs Au", "ten cua so")[/font][/color] [color=#141414][font=tahoma]If WinHwnd = 0 Then Exit Sub[/font][/color] [color=#141414][font=tahoma]GetWindowThreadProcessId WinHwnd, dwProcessID[/font][/color] [color=#141414][font=tahoma]hProcess = OpenProcess(PROCESS_READ_WRITE_QUERY, False, dwProcessID)[/font][/color] [color=#141414][font=tahoma]bắt đầu read memory[/font][/color] [color=#141414][font=tahoma]ReadProcessLong(hProcess, ReadProcessLong(hProcess, BASE_ADDRESS) + &H20) + &H20) [/font][/color] [color=#141414][font=tahoma]write cũng tương tự..........................[/font][/color]

Bài Viết : Code đọc pointed bằng vb6 để dành hack on of trong vb6

PumNguyễn

Bình luận về bài viết

Bạn cần để bình luận về bài viết

Nếu chưa có tài khoản bạn vui lòng tài khoản