求教关于SendMessageA获取外部ListView数据

iceboy123

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
hWin	整数型
hList	整数型
dwPid	整数型
hProcess	整数型
hMem	整数型
lpData	字节集
ListHeadHwnd	整数型			列表头句柄
ListHwnd	整数型			列表句柄
ItemCount	整数型			总行数
ListItemCount	整数型			列表总列数
Item	LVITEM
pItem	整数型
ItemBuf	字节集

hWin ＝ FindWindowA (字符 (0), “测试程序”)
ListHwnd ＝ FindWindowExA (hWin, 0, “SysListView32”, 字符 (0))
' ListHwnd ＝ GetAncestor (hList, 2)
GetWindowThreadProcessId (ListHwnd, dwPid)
如果真 (dwPid ＝ 0)
信息框 (“没有发现进程”, 0, , )
返回 ()

hProcess ＝ OpenProcess (位或 (8, 16, 32, 1024), 假, dwPid)
如果真 (hProcess ≠ 0)
ListHeadHwnd ＝ SendMessageA (ListHwnd, #LVM_GETHEADER, 0, 0)  ' //获取LVhEAD句柄
ItemCount ＝ SendMessageA (ListHwnd, #LVM_GETITEMCOUNT, 0, 0)  ' //获取LV总行数
ListItemCount ＝ SendMessageA (ListHeadHwnd, #HDM_GETITEMCOUNT, 0, 0)  ' //获取LV的列数
输出调试文本 (“总列数为:” ＋ 到文本 (ItemCount) ＋ “   列表头句柄:” ＋ 到文本 (ListHeadHwnd) ＋ “   列表列数为:” ＋ 到文本 (ListItemCount))
hMem ＝ VirtualAllocEx (hProcess, 0, 1024, 4096, 4)  ' //申请内存
如果真 (hMem ≠ 0)
Item.iSubItem ＝ 1
Item.cchTextMax ＝ 512
pItem ＝ VirtualAllocEx (hProcess, 0, 512, 4096, 4)  ' //申请内存
Item.pszText ＝ pItem
lpData ＝ 到字节集 (Item.iSubItem) ＋ 到字节集 (Item.cchTextMax) ＋ 到字节集 (Item.pszText)  ' //这里的参数不清楚是怎么构造的
如果真 (WriteProcessMemory (hProcess, hMem, 取变量数据地址 (lpData), 取字节集长度 (lpData), 0))
调试输出 (SendMessageA (ListHeadHwnd, #LVM_GETITEMTEXT, 1, 取变量数据地址 (hMem)))  ' //参数不对的,自然消息的返回值也是错的,郁闷哦
' ItemBuf ＝ 取空白字节集 (512)
' ReadProcessMemory (hProcess, pItem, 取变量数据地址 (ItemBuf), 512, 0)
' 调试输出 (指针到字节集 (取变量数据地址 (ItemBuf), 512))
' 调试输出 (指针到文本 (pItem))

VirtualFreeEx (hProcess, pItem, 0, 32768)
VirtualFreeEx (hProcess, hMem, 0, 32768)

CloseHandle (hProcess)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 hWin, 整数型<br /> .局部变量 hList, 整数型<br /> .局部变量 dwPid, 整数型<br /> .局部变量 hProcess, 整数型<br /> .局部变量 hMem, 整数型<br /> .局部变量 lpData, 字节集<br /> .局部变量 ListHeadHwnd, 整数型, , , 列表头句柄<br /> .局部变量 ListHwnd, 整数型, , , 列表句柄<br /> .局部变量 ItemCount, 整数型, , , 总行数<br /> .局部变量 ListItemCount, 整数型, , , 列表总列数<br /> .局部变量 Item, LVITEM<br /> .局部变量 pItem, 整数型<br /> .局部变量 ItemBuf, 字节集<br /> <br /> <br /> hWin ＝ FindWindowA (字符 (0), “测试程序”)<br /> ListHwnd ＝ FindWindowExA (hWin, 0, “SysListView32”, 字符 (0))<br /> ' ListHwnd ＝ GetAncestor (hList, 2)<br /> GetWindowThreadProcessId (ListHwnd, dwPid)<br /> .如果真 (dwPid ＝ 0)<br />     信息框 (“没有发现进程”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> hProcess ＝ OpenProcess (位或 (8, 16, 32, 1024), 假, dwPid)<br /> .如果真 (hProcess ≠ 0)<br />     ListHeadHwnd ＝ SendMessageA (ListHwnd, #LVM_GETHEADER, 0, 0)  ' //获取LVhEAD句柄<br />     ItemCount ＝ SendMessageA (ListHwnd, #LVM_GETITEMCOUNT, 0, 0)  ' //获取LV总行数<br />     ListItemCount ＝ SendMessageA (ListHeadHwnd, #HDM_GETITEMCOUNT, 0, 0)  ' //获取LV的列数<br />     输出调试文本 (“总列数为:” ＋ 到文本 (ItemCount) ＋ “   列表头句柄:” ＋ 到文本 (ListHeadHwnd) ＋ “   列表列数为:” ＋ 到文本 (ListItemCount))<br />     hMem ＝ VirtualAllocEx (hProcess, 0, 1024, 4096, 4)  ' //申请内存<br />     .如果真 (hMem ≠ 0)<br />         Item.iSubItem ＝ 1<br />         Item.cchTextMax ＝ 512<br />         pItem ＝ VirtualAllocEx (hProcess, 0, 512, 4096, 4)  ' //申请内存<br />         Item.pszText ＝ pItem<br />         lpData ＝ 到字节集 (Item.iSubItem) ＋ 到字节集 (Item.cchTextMax) ＋ 到字节集 (Item.pszText)  ' //这里的参数不清楚是怎么构造的<br /> <br />         .如果真 (WriteProcessMemory (hProcess, hMem, 取变量数据地址 (lpData), 取字节集长度 (lpData), 0))<br />             调试输出 (SendMessageA (ListHeadHwnd, #LVM_GETITEMTEXT, 1, 取变量数据地址 (hMem)))  ' //参数不对的,自然消息的返回值也是错的,郁闷哦<br />             ' ItemBuf ＝ 取空白字节集 (512)<br />             ' ReadProcessMemory (hProcess, pItem, 取变量数据地址 (ItemBuf), 512, 0)<br />             ' 调试输出 (指针到字节集 (取变量数据地址 (ItemBuf), 512))<br />             ' 调试输出 (指针到文本 (pItem))<br />         .如果真结束<br /> <br /> <br />         VirtualFreeEx (hProcess, pItem, 0, 32768)<br />         VirtualFreeEx (hProcess, hMem, 0, 32768)<br />     .如果真结束<br /> <br /> <br />     CloseHandle (hProcess)<br /> .如果真结束

另外付一张消息参数图片


本人实在是刚学习编程,不太懂,请大神帮忙解决下,VC当中可以直接使用结构体指针,但是在易当中真的不知道该如何构造消息参数,大神救命啊
附件已经发上去了,最好大神帮忙给个例子,毕竟用消息可以解决很多问题.

a617273503

可以从c翻译过来啊

iceboy123

补充一个关于C的实现方式

iceboy123

有么有大牛帮忙看下哦

一尘天下

同问，顶上去让大神看到