外部超级列表框类之"插入表项"命令有BUG

小爬虫

如题,今天写程序时发现 外部超级列表框类之"插入表项" 执行后没有任何效果

但我在网上找的一个模块,可以执行

下面附上此命令的代码:(其中涉及到一些DLL命令,不附上了)

[e]
.版本 2

.子程序 插入列, 逻辑型, 公开, 在其它程序中的超级列表框插入一列，适用于"报表列表框类型"，成功返回真，失败返回假
.参数 超级列表框句柄, 整数型, , 超级列表框句柄
.参数 插入位置, 整数型, 可空, 整数型，从0开始；可空，默认为0
.参数 标题文本, 文本型, 可空, 文本型，可空
.参数 标题文本对齐方式, 整数型, 可空, 整数型，0---表列左对齐，1---表列右对齐，2表列居中对齐；可空，默认为0
.参数 插入的列宽度, 整数型, 可空, 整数型，从0开始；可空，默认为100
.局部变量 COLUMN, LVCOLUMN
.局部变量 项目文本长度, 整数型
.局部变量 项目文本_bin, 字节集
.局部变量 dwProcessID, 整数型
.局部变量 hProcess, 整数型
.局部变量 lpTextRemote, 整数型
.局部变量 lpListItemRemote, 整数型
.局部变量 tmp1, 整数型
.局部变量 tmp2, 整数型

项目文本_bin ＝ 到字节集 (标题文本)
项目文本长度 ＝ 取字节集长度 (项目文本_bin)
COLUMN.mask ＝ 位或 (#LVCF_TEXT, #LVCF_WIDTH, #LVCF_FMT)
.如果真 (插入的列宽度 ＝ 0)
    插入的列宽度 ＝ 100
.如果真结束
.判断开始 (标题文本对齐方式 ＝ 0)
    COLUMN.fmt ＝ 0
.判断 (标题文本对齐方式 ＝ 1)
    COLUMN.fmt ＝ 1
.判断 (标题文本对齐方式 ＝ 2)
    COLUMN.fmt ＝ 2
.默认

.判断结束
COLUMN.iSubItem ＝ 插入位置
COLUMN.cx ＝ 插入的列宽度
GetWindowThreadProcessId (超级列表框句柄, dwProcessID)
hProcess ＝ OpenProcess (位或 (983040, 1048576, 4095), 假, dwProcessID)
.如果 (取操作系统类别 () ＝ 3)
    lpTextRemote ＝ VirtualAllocEx (hProcess, 0, 项目文本长度, #MEM_COMMIT, #PAGE_READWRITE)
    lpListItemRemote ＝ VirtualAllocEx (hProcess, 0, 24, #MEM_COMMIT, #PAGE_READWRITE)
    COLUMN.pszText ＝ lpTextRemote
    .如果真 (WriteProcessMemory (hProcess, lpTextRemote, 项目文本_bin, 项目文本长度, 0) ＝ 0)
        返回 (假)
    .如果真结束
    .如果真 (WriteProcessMemory_COLUMN (hProcess, lpListItemRemote, COLUMN, 24, 0) ＝ 0)
        返回 (假)
    .如果真结束
    .如果真 (SendMessage (超级列表框句柄, #LVM_FIRST ＋ 27, 插入位置, lpListItemRemote) ＝ 0)
        返回 (假)
    .如果真结束
    VirtualFreeEx (hProcess, lpTextRemote, 0, #MEM_RELEASE)
    VirtualFreeEx (hProcess, lpListItemRemote, 0, #MEM_RELEASE)
    CloseHandle (hProcess)
    返回 (真)

.否则

    tmp1 ＝ CreateFileMapping (-1, 0, #PAGE_READWRITE, 0, 24, 0)
    tmp2 ＝ CreateFileMapping (-1, 0, #PAGE_READWRITE, 0, 项目文本长度, 0)
    lpListItemRemote ＝ MapViewOfFile (tmp1, #FILE_MAP_ALL_ACCESS, 0, 0, 0)
    lpTextRemote ＝ MapViewOfFile (tmp2, #FILE_MAP_ALL_ACCESS, 0, 0, 0)
    COLUMN.pszText ＝ lpTextRemote

    .如果真 (WriteProcessMemory_COLUMN (hProcess, lpListItemRemote, COLUMN, 24, 0) ＝ 0)
        返回 (假)
    .如果真结束
    .如果真 (WriteProcessMemory (hProcess, lpTextRemote, 项目文本_bin, 项目文本长度, 0) ＝ 0)
        返回 (假)
    .如果真结束
    .如果真 (SendMessage (超级列表框句柄, #LVM_FIRST ＋ 27, 插入位置, lpListItemRemote) ＝ 0)
        返回 (假)
    .如果真结束
    UnmapViewOfFile (lpListItemRemote)
    UnmapViewOfFile (lpTextRemote)
    CloseHandle (tmp1)
    CloseHandle (tmp2)
    返回 (真)

[/e]

小爬虫

御风软件 发表于 2014-1-29 18:45

我写的，当时测试的，就怎么也插不起来。。。

我再试下

御风软件

小爬虫

不相信,你自己写个含有超级列表框的程序,然后编译成.exe文件,然后你再重新在另外一个程序里,对这个编译出来的.exe文件里面的超级列表框操作看看,就知道有没有用了

小爬虫

御风软件 发表于 2014-1-28 23:33
经测试，是能插入的，在你给的那个附件的超列中插入表项
[e]
.版本 2

是外部一个程序的操作列表框

你这样取得的根本就不是外部超级列表框的句柄,你这个,只是取得程序内超级列表框的句柄

御风软件

经测试，是能插入的，在你给的那个附件的超列中插入表项
[e]
.版本 2

.子程序 _按钮1_被单击
.局部变量 LB, 外部超级列表框

LB.初始化 (超级列表框1.取窗口句柄 ())
LB.插入表项 ()
[/e]