.版本 2 .子程序 子程序_获取列表框信息, 文本型 .参数 参数_句柄, 整数型 .参数 进程标识符号, 整数型 .参数 项目, 整数型 .参数 子项, 整数型 .局部变量 局部_句柄, 整数型 .局部变量 信息, 列表数据结构 .局部变量 进程句柄, 整数型 .局部变量 页面区域, 整数型 .局部变量 内存区域, 整数型 .局部变量 Index, 整数型 .局部变量 文本, 文本型 .局部变量 文本长度, 整数型 .局部变量 指针, 整数型 .局部变量 a, 整数型 .局部变量 字节集, 字节集 .局部变量 i, 整数型 ' ****************************** ' 为动态数组变量重新分配存储空间 ' ****************************** ' 重定义数组 (strBuffer, 假, #MAX_LVMSTRING) 字节集 ＝ 取空白字节集 (255) ' ***************************************************************************************************** ' 打开一个现有进程的句柄,返回值Long，如执行成功，返回进程句柄；零表示失败。会设置GetLastError ' Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long ' 参数 类型及说明 ' dwDesiredAccess Long，指定这个句柄要求的访问方法。指定API32.TXT文件中以PROCESS_???开头的一个或多个常数 ' bInheritHandle Long，如句柄能够由子进程继承，则为TRUE ' dwProcessId Long，要打开那个进程的进程标识符 ' ***************************************************************************************************** 进程句柄 ＝ DLL_打开进程_ (#PROCESS_VM_OPERATION ＋ #PROCESS_VM_READ ＋ #PROCESS_VM_WRITE, 0, 进程标识符号) ' 本源码来自三叶资源网(www.sanye.cx) ' ***************************************************************************************************** ' VirtualAllocEx(目标进程的句柄,0,内存区域的大小,分配类型,新分配内存的存取保护类型)返回所分配页面的基址 ' ***************************************************************************************************** 页面区域 ＝ DLL_虚拟内存区域_ (进程句柄, 0, #MAX_LVMSTRING, #MEM_COMMIT, #PAGE_READWRITE) ' 暂停 () ' ************************************************* ' 初始化LV_ITEM 结构 ' MyItem.iSubItem 列的索引号 ' myItem.pszText 数据内容(此处是一个分配的内存地址) ' ************************************************* 信息.mask ＝ #LVIF_TEXT 信息.iSubItem ＝ 项目 信息.pszText ＝ 页面区域 信息.cchTextMax ＝ #MAX_LVMSTRING ' *********************************************************** ' 把这个结构写入远程进程process's 存储量 ' WriteProcessMemory(目标进程的句柄,地址,写入的数据,字节数,0) ' *********************************************************** ' 指针 ＝ 取变量地址 (信息) 内存区域 ＝ DLL_虚拟内存区域_ (进程句柄, 0, DLL_取结构数据尺寸 (信息), #MEM_COMMIT, #PAGE_READWRITE) 局部_句柄 ＝ Dll_写内存字节集_ (进程句柄, 内存区域, 信息, DLL_取结构数据尺寸 (信息), 0) ' ******************************** ' 发送消息，得到项目信息和写入内存 ' ******************************** 局部_句柄 ＝ DLL_发送消息_ (参数_句柄, #LVM_GETITEMTEXT, 子项, 内存区域) ' 指针 ＝ 取变量数据地址 (字节集) 局部_句柄 ＝ Dll_读内存数据_ (进程句柄, 页面区域, 字节集, 255, 0) ' 指针 ＝ 取变量地址 (信息) 局部_句柄 ＝ Dll_读内存数据1_ (进程句柄, 内存区域, 信息, DLL_取结构数据尺寸 (信息), 0) ' ************************ ' 把字节列阵变成串和送回它 ' ************************ 文本 ＝ 到文本 (字节集) ' tmpString = StrConv(strBuffer, vbUnicode) ' If InStr(tmpString, Chr$(0)) > 0 Then ' tmpString = Left$(tmpString, InStr(tmpString, Chr$(0)) - 1) ' End If ' **************************** ' 释放分配的内存和关闭进程句柄 ' **************************** 局部_句柄 ＝ DLL_释放虚拟内存页_ (进程句柄, 页面区域, 0, #MEM_RELEASE) 局部_句柄 ＝ DLL_释放虚拟内存页_ (进程句柄, 内存区域, 0, #MEM_RELEASE) 局部_句柄 ＝ DLL_关闭内核对象_ (进程句柄) ' 本源码来自三叶资源网(www.sanye.cx) .如果真 (取文本长度 (文本) ＞ 0) 返回 (文本) .如果真结束 返回 (“”)