VB 使用SendMessage获取外部程序的listView控件内容

lyhsdy 2017-07-10 04:04:12
ListCount = SendMessage(hwnd, LVM_GETITEMCOUNT, 0, 0)
ItemText=SendMessage(hlist, LVM_GETITEMTEXT, 0,0)
ListCount能正常获取行数,但是获取ItemText就出错
...全文
1658 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
赵4老师 2017-07-11
  • 打赏
  • 举报
回复
仅供参考,尽管不是VB6:
//---------------------------------------------------------------------------
// 读取ListView中的Item
// hWindow为目标ListView的句柄
// strlist用来存放ListView的Item字符串
// 来自http://www.ccrun.com
// by ccrun(老妖)
//---------------------------------------------------------------------------
void MyGetListViewItem(HWND hWindow,TStrings *strlist)
{
    const nMaxLen=1023;
    char szBuf[nMaxLen+1];
    char buf[nMaxLen+1];

    int          nLVItemCount;
    int          nColumns;
    DWORD        dwProcessID;
    HANDLE       hProcess;
    HANDLE       hHeaderCtrl;
    LVITEM       lvItemLocal;
    HDITEM       hdItemLocal;
    DWORD        dwBytesRead, dwBytesWrite;
    bool         bSuccess,bWriteOK;

    //注意:本文来自www.ccrun.com,by ccrun(老妖),转载请注明出处。
    //本文转自 C++Builder研究 - http://www.ccrun.com/article.asp?i=583&d=eahk4z
    //为防止某些不负责任的转载者,故出此下策,在代码中加入声明,请大家原谅。

    GetWindowThreadProcessId(hWindow,&dwProcessID);
    hProcess=OpenProcess(PROCESS_ALL_ACCESS,FALSE,dwProcessID);
    if(!hProcess)  //得不到指定进程的句柄
        return;
    //在指定进程内分配存储空间
    LPVOID lpTextRemote=VirtualAllocEx(hProcess,NULL,nMaxLen+1,MEM_COMMIT,PAGE_READWRITE);
    LPVOID lpListItemRemote=VirtualAllocEx(hProcess,NULL,sizeof(LVITEM),MEM_COMMIT,PAGE_READWRITE);
    LPVOID lpHeadItemRemote=VirtualAllocEx(hProcess,NULL,sizeof(HDITEM),MEM_COMMIT,PAGE_READWRITE);
    if((!lpTextRemote) || (!lpListItemRemote) || (!lpHeadItemRemote)) //不能在指定进程内分配存储空间
        return;

    nLVItemCount=ListView_GetItemCount(hWindow);
    hHeaderCtrl=ListView_GetHeader(hWindow);
    nColumns=Header_GetItemCount(hHeaderCtrl);
    if (nColumns<=0) {
        nColumns=1;
    } else {
        buf[0]=0;
        for (int j=0;j<nColumns;j++) {
            ZeroMemory(szBuf,nMaxLen+1);
            bWriteOK= WriteProcessMemory(hProcess,lpTextRemote,(LPVOID)szBuf,nMaxLen+1,(LPDWORD)&dwBytesWrite);
            if(!bWriteOK) //写内存错误
                return;
            hdItemLocal.mask=HDI_TEXT;
            hdItemLocal.cchTextMax=nMaxLen;
            hdItemLocal.pszText=(LPTSTR)lpTextRemote;
            dwBytesWrite=0;
            bWriteOK=WriteProcessMemory(hProcess,lpHeadItemRemote,(LPVOID)&hdItemLocal,sizeof(HDITEM),(LPDWORD)&dwBytesWrite);
            if(!bWriteOK) //写内存错误
                return;

            SendMessage(hHeaderCtrl,HDM_GETITEM,(WPARAM)j,(LPARAM)lpHeadItemRemote);
            bSuccess=ReadProcessMemory(hProcess,lpTextRemote,szBuf,nMaxLen+1,&dwBytesRead);
            //从指定进程存储空间读取文本
            if(!bSuccess) //不能在指定进程内读取文本
                return;
            if (j>0) strcat(buf,"|");
            strcat(buf,AnsiString(szBuf).c_str());
        }
        strlist->Add(buf);
    }
//  strlist->Add("ListView的Columns数: " + String(nColumns));
//  strlist->Add("---------------------------");

    for (int i=0;i<nLVItemCount;i++) {
        buf[0]=0;
        for (int j=0;j<nColumns;j++) {
            ZeroMemory(szBuf,nMaxLen+1);
            bWriteOK= WriteProcessMemory(hProcess,lpTextRemote,(LPVOID)szBuf,nMaxLen+1,(LPDWORD)&dwBytesWrite);
            if(!bWriteOK) //写内存错误
                return;
            lvItemLocal.iItem=i;
            lvItemLocal.iSubItem=j;
            lvItemLocal.mask=LVIF_TEXT;
            lvItemLocal.cchTextMax=nMaxLen;
            lvItemLocal.pszText=(LPTSTR)lpTextRemote;
            dwBytesWrite=0;
            bWriteOK=WriteProcessMemory(hProcess,lpListItemRemote,(LPVOID)&lvItemLocal,sizeof(LVITEM),(LPDWORD)&dwBytesWrite);
            if(!bWriteOK) //写内存错误
                return;
            SendMessage(hWindow,LVM_GETITEMTEXT,(WPARAM)i,(LPARAM)lpListItemRemote);
            bSuccess=ReadProcessMemory(hProcess,lpTextRemote,szBuf,nMaxLen+1,&dwBytesRead);
            //从指定进程存储空间读取文本
            if(!bSuccess) //不能在指定进程内读取文本
                return;
            if (j>0) strcat(buf,"|");
            strcat(buf,AnsiString(szBuf).c_str());
        }
        strlist->Add(buf);
    }//end of for(i)
    //在指定进程内释放存储空间
    VirtualFreeEx(hProcess,lpHeadItemRemote,0,MEM_RELEASE);
    VirtualFreeEx(hProcess,lpListItemRemote,0,MEM_RELEASE);
    VirtualFreeEx(hProcess,lpTextRemote,0,MEM_RELEASE);
    //关闭指定进程句柄
    CloseHandle(hProcess);
}
舉杯邀明月 2017-07-10
  • 打赏
  • 举报
回复
获取数据没这么简单! 需要与另外几个API协同操作,才能完成的。 参考这个: 读取其他软件listview控件的内容

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧