精易模块的窗口_发送拖放消息

学易未精

使用了精易模块中的窗口_发送拖放消息，有时候会导致闪退，在里面加了几个命令，经过测试1000次使用，暂没出现闪退，
在论坛搜的窗口发送拖放消息的那个也会出现闪退，不是易程序闪退，而是句柄的那个程序闪退。希望有大佬能够修复一下
或者有没有其他的方式能够实现：窗口_发送拖放消息

  

子程序名	返回值类型	公开	备 注
窗口_发送拖放消息	逻辑型		向指定窗口发送拖拽消息_该函数为ANSIC文件名使用；不支持拖放对象
参数名	类 型	参考	可空	数组	备 注
参_句柄	整数型				接受拖拽消息的句柄
参_路径	文本型				需要拖放的文件路径

变量名	类 型	静态	数组	备 注
局_文件路径	文本型
局_窗口句柄	整数型
局_写入数据	字节集
局_数据指针	整数型
局_进程句柄	整数型
局_进程ID	整数型
局_写入大小	整数型

局_窗口句柄 ＝ 参_句柄
GetWindowThreadProcessId (局_窗口句柄, 局_进程ID)
局_文件路径 ＝ 参_路径
局_写入数据 ＝ 到字节集 (20) ＋ 取空白字节集 (16) ＋ 到字节集 (局_文件路径)
局_进程句柄 ＝ OpenProcess (位或 (8, 32), 0, 局_进程ID)
如果真 (局_进程句柄 ＝ 0)
调试输出 (“打开进程失败”)
返回 (假)
局_数据指针 ＝ VirtualAllocEx (局_进程句柄, 0, 取文本长度 (局_文件路径) ＋ 20, 4096, 4)
如果真 (局_数据指针 ＝ 0)
调试输出 (“局_数据指针申请内存失败”)
返回 (假)
WriteProcessMemory_整数5 (局_进程句柄, 局_数据指针, lstrcpyn_字节集 (局_写入数据, 局_写入数据, 0), 取文本长度 (局_文件路径) ＋ 20, 局_写入大小)
如果真 (局_写入大小 ≠ 取文本长度 (局_文件路径) ＋ 20)
返回 (假)
SendMessageA (局_窗口句柄, 563, 局_数据指针, 0)
WaitForSingleObject (局_窗口句柄, 5000)
WaitForSingleObject (局_进程句柄, 5000)
VirtualFreeEx (局_窗口句柄, 局_数据指针, 0, #MEM_RELEASE )
VirtualFreeEx (局_进程句柄, 局_数据指针, 0, #MEM_RELEASE )
返回 (真)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 窗口_发送拖放消息, 逻辑型, 公开, 向指定窗口发送拖拽消息_该函数为ANSIC文件名使用；不支持拖放对象<br /> .参数 参_句柄, 整数型, , 接受拖拽消息的句柄<br /> .参数 参_路径, 文本型, , 需要拖放的文件路径<br /> .局部变量 局_文件路径, 文本型<br /> .局部变量 局_窗口句柄, 整数型<br /> .局部变量 局_写入数据, 字节集<br /> .局部变量 局_数据指针, 整数型<br /> .局部变量 局_进程句柄, 整数型<br /> .局部变量 局_进程ID, 整数型<br /> .局部变量 局_写入大小, 整数型<br /> <br /> 局_窗口句柄 ＝ 参_句柄<br /> GetWindowThreadProcessId (局_窗口句柄, 局_进程ID)<br /> 局_文件路径 ＝ 参_路径<br /> 局_写入数据 ＝ 到字节集 (20) ＋ 取空白字节集 (16) ＋ 到字节集 (局_文件路径)<br /> 局_进程句柄 ＝ OpenProcess (位或 (8, 32), 0, 局_进程ID)<br /> .如果真 (局_进程句柄 ＝ 0)<br />     调试输出 (“打开进程失败”)<br />     返回 (假)<br /> .如果真结束<br /> 局_数据指针 ＝ VirtualAllocEx (局_进程句柄, 0, 取文本长度 (局_文件路径) ＋ 20, 4096, 4)<br /> .如果真 (局_数据指针 ＝ 0)<br />     调试输出 (“局_数据指针申请内存失败”)<br />     返回 (假)<br /> .如果真结束<br /> WriteProcessMemory_整数5 (局_进程句柄, 局_数据指针, lstrcpyn_字节集 (局_写入数据, 局_写入数据, 0), 取文本长度 (局_文件路径) ＋ 20, 局_写入大小)<br /> .如果真 (局_写入大小 ≠ 取文本长度 (局_文件路径) ＋ 20)<br />     返回 (假)<br /> .如果真结束<br /> SendMessageA (局_窗口句柄, 563, 局_数据指针, 0)<br /> WaitForSingleObject (局_窗口句柄, 5000)<br /> WaitForSingleObject (局_进程句柄, 5000)<br /> VirtualFreeEx (局_窗口句柄, 局_数据指针, 0, #MEM_RELEASE)<br /> VirtualFreeEx (局_进程句柄, 局_数据指针, 0, #MEM_RELEASE)<br /> 返回 (真)

窗口_发送拖放消息.e (148.76 KB, 下载次数: 30)

2023-11-28 14:10 上传

点击文件名下载附件

229481880

支持开源~！感谢分享，很给力！~

lyjzyq

66666666666666666666666666

Suncejun65

打开进程失败

Suncejun65

下载看下能不能用得上

wsysyb

先看看，弄清了再来

彭彭软件

收藏了 准备搬运到火山用

shaoxing0117

感谢大神分享~！

蓝山石

我用精易模块的这个命令，一点反应都没啊，更别说闪退了，是不是这个命令有bug了

胖子葛格

感谢大神分享~！