获取其他进程中ListView的文本

看到前面有朋友求相关代码，就发出来了~~~

更改其他程序ListView控件中某个Item的内容(原码) http://www.vbgood.com/viewthread.php?tid=72897

1 Option Explicit
2
3 Private Const LVM_FIRST = &H1000
4 Private Const LVM_GETITEMCOUNT = (LVM_FIRST + 4)
5
6 Private Const LVM_GETITEM = (LVM_FIRST + 5)
7 Private Const LVM_GETSTRINGWIDTH = (LVM_FIRST + 17)
8 Private Const LVM_GETCOLUMN = (LVM_FIRST + 25)
9 Private Const LVM_GETITEMTEXT = (LVM_FIRST + 45)
10 Private Const LVM_GETHEADER = LVM_FIRST + 31
11 Private Const WC_HEADERA = "SysHeader32"
12 Private Const WC_HEADER = WC_HEADERA
13 Private Const HDM_FIRST = &H1200 '// Header messages
14 Private Const HDM_GETITEMCOUNT = (HDM_FIRST + 0)
15 Private Const HDM_ORDERTOINDEX = (HDM_FIRST + 15)
16
17 Private Const PROCESS_QUERY_INFORMATION = 1024
18 Private Const PROCESS_VM_OPERATION = &H8
19 Private Const PROCESS_VM_READ = &H10
20 Private Const PROCESS_VM_WRITE = &H20
21 Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
22 Private Const MAX_LVMSTRING As Long = 255 '可根椐读取数据长度设置适当的数值
23 Private Const MEM_COMMIT = &H1000
24 Private Const MEM_RELEASE = &H8000
25 Private Const PAGE_READWRITE = &H4
26 Private Const LVIF_TEXT As Long = &H1
27
28 Private Type LV_ITEMA
29 mask As Long
30 iItem As Long
31 iSubItem As Long
32 state As Long
33 stateMask As Long
34 pszText As Long
35 cchTextMax As Long
36 iImage As Long
37 lParam As Long
38 iIndent As Long
39 End Type
40
41 Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
42 Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
43 Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
44 Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
45 Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
46 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
47 Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
48 Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
49 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
50 Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
51
52 Private Sub Command1_Click()
53 Dim lngHwnd As Long
54 Dim lngHwnd1 As Long
55 Dim lngHeaderHwnd As Long
56 Dim lngPId As Long
57 Dim lngRows As Long
58 Dim lngCols As Long
59 Dim lngRow As Long
60 Dim lngCol As Long
61 Dim strItem As String
62
63 lngHwnd1 = FindWindow(vbNullString, "Windows 任务管理器") '获取任务管理器窗口句柄
64 lngHwnd1 = FindWindowEx(lngHwnd1, 0, "#32770", "") '获取选项卡句柄
65 lngHwnd = FindWindowEx(lngHwnd1, 0, "SysListView32", "进程") '获取进程列表框句柄
66 Debug.Print lngHwnd
67
68 lngHeaderHwnd = SendMessage(lngHwnd, LVM_GETHEADER, 0, 0) '获取ListView表头句柄
69 lngRows = SendMessage(lngHwnd, LVM_GETITEMCOUNT, 0, 0) '获取ListView项目数
70
71 If lngHeaderHwnd > 0 Then
72 lngCols = SendMessage(lngHeaderHwnd, HDM_GETITEMCOUNT, 0, 0) '获取ListView表头项目数
73 Else
74 lngCols = 1
75 End If
76 GetWindowThreadProcessId lngHwnd, lngPId '获取与指定窗口关联在一起的一个进程和线程标识符
77 For lngRow = 0 To lngRows - 1
78 strItem = ""
79 For lngCol = 0 To lngCols - 1
80 strItem = strItem & vbTab & GetListviewItem(lngHwnd, lngPId, lngCol, lngRow)
81 Next
82 Debug.Print strItem
83 Next
84 End Sub
85
86 Public Function GetListviewItem(ByVal hWindow As Long, ByVal ProcessID As Long, ByVal pColumn As Long, ByVal pRow As Long) As String
87 Dim Result As Long
88 Dim myItem As LV_ITEMA
89 Dim pHandle As Long
90 Dim pStrBufferMemory As Long
91 Dim pMyItemMemory As Long
92 Dim strBuffer() As Byte
93 Dim Index As Long
94 Dim tmpString As String
95 Dim strLength As Long
96
97 '******************************
98 '为动态数组变量重新分配存储空间
99 '******************************
100 ReDim strBuffer(MAX_LVMSTRING)
101
102 '*****************************************************************************************************
103 '打开一个现有进程的句柄,返回值Long，如执行成功，返回进程句柄；零表示失败。会设置GetLastError
104 'Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
105 '参数 类型及说明
106 'dwDesiredAccess Long，指定这个句柄要求的访问方法。指定API32.TXT文件中以PROCESS_???开头的一个或多个常数
107 'bInheritHandle Long，如句柄能够由子进程继承，则为TRUE
108 'dwProcessId Long，要打开那个进程的进程标识符
109 '*****************************************************************************************************
110 pHandle = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, ProcessID)
111
112 '*****************************************************************************************************
113 'VirtualAllocEx(目标进程的句柄,0,内存区域的大小,分配类型,新分配内存的存取保护类型)返回所分配页面的基址
114 '*****************************************************************************************************
115 pStrBufferMemory = VirtualAllocEx(pHandle, 0, MAX_LVMSTRING, MEM_COMMIT, PAGE_READWRITE)
116
117 '*************************************************
118 '初始化LV_ITEM 结构
119 'MyItem.iSubItem 列的索引号
120 'myItem.pszText 数据内容(此处是一个分配的内存地址)
121 '*************************************************
122 myItem.mask = LVIF_TEXT
123 myItem.iSubItem = pColumn
124 myItem.pszText = pStrBufferMemory
125 myItem.cchTextMax = MAX_LVMSTRING
126
127 '***********************************************************
128 '把这个结构写入远程进程process's 存储量
129 'WriteProcessMemory(目标进程的句柄,地址,写入的数据,字节数,0)
130 '***********************************************************
131 pMyItemMemory = VirtualAllocEx(pHandle, 0, Len(myItem), MEM_COMMIT, PAGE_READWRITE)
132 Result = WriteProcessMemory(pHandle, pMyItemMemory, myItem, Len(myItem), 0)
133
134 '********************************
135 '发送消息，得到项目信息和写入内存
136 '********************************
137 Result = SendMessage(hWindow, LVM_GETITEMTEXT, pRow, ByVal pMyItemMemory)
138 Result = ReadProcessMemory(pHandle, pStrBufferMemory, strBuffer(0), MAX_LVMSTRING, 0)
139 Result = ReadProcessMemory(pHandle, pMyItemMemory, myItem, Len(myItem), 0)
140
141 '************************
142 '把字节列阵变成串和送回它
143 '************************
144
145 tmpString = StrConv(strBuffer, vbUnicode)
146 If InStr(tmpString, Chr$(0)) > 0 Then
147 tmpString = Left$(tmpString, InStr(tmpString, Chr$(0)) - 1)
148 End If
149
150 tmpString = Trim$(tmpString)
151
152 '****************************
153 '释放分配的内存和关闭进程句柄
154 '****************************
155 Result = VirtualFreeEx(pHandle, pStrBufferMemory, 0, MEM_RELEASE)
156 Result = VirtualFreeEx(pHandle, pMyItemMemory, 0, MEM_RELEASE)
157
158 Result = CloseHandle(pHandle)
159
160 If Len(tmpString) > 0 Then GetListviewItem = tmpString
161
162 End Function
163

说明下，如果是频繁读取数据或数据项比较多时，请把内存分配和释放的相关代码分离出来，以免引起被读取数据的程序出错和占用内存不断加大。如果哪位朋友有修改其它程序ListView数据的代码也请发出来！