拖拽文件

a小墨

除了这个拖拽文件，还有其他的嘛，这个部分窗口失效，再论坛找了一遍没看到

  

子程序名	返回值类型	公开	备 注
拖拽文件	逻辑型		成功返回真，失败返回假。
参数名	类 型	参考	可空	数组	备 注
参数_目标窗口句柄	整数型
参数_要拖拽的文件	文本型				文件全路径

变量名	类 型	静态	数组	备 注
内存地址	整数型
文件路径	文本型
进程句柄	整数型
目标线程号	整数型
目标进程号	整数型
临时_写入内存	整数型
dropFiles	DROPFILES
临时_释放内存	整数型
关闭句柄	整数型
结构长度_DROPFILES	整数型
结构长度_szFile	整数型
临时_返回文本	整数型

' ===============思路与步骤========================
' 1.用 GetWindowThreadProcessId 获取目标窗口进程ID
' 2.用 OpenProcess 打开进程ID来获取进程的句柄
' 3.用 VirtualAllocEx 申请进程内存【VirtualAllocEx(OpenProcess返回的句柄, nil, 4096, MEM_RESERVE or MEM_COMMIT,PAGE_READWRITE)】
' 4.用 WriteProcessMemory 将拖放xx结构和拖放的文件名写入内存
' 5.用 SendMessage 发送拖拽消息；【SendMessage(AHandle, WM_DROPFILES, Integer(vPointer), 0)】
' 6.用 VirtualFreeEx 释放内存【VirtualFreeEx(OpenProcess返回的句柄, VirtualAllocEx返回的内存首地址, 0, MEM_RELEASE)】
' 7.用 CloseHandle 关闭进程的句柄【CloseHandle(OpenProcess返回的句柄)】
' ================额外思路=========================
' 感觉在发送消息之前，应该用 OnDropFiles(HDROP hDropInfo)方法告诉Windows开始拖拽了
' 并且还应该告诉Windows拖拽的文件名，好让目标程序判断是接收还是不接收。
' 以及告诉Windows是剪切还是拷贝
' 这些没能研究出来。
结构长度_DROPFILES ＝ LocalSize (dropFiles)
dropFiles.pFiles ＝ 结构长度_DROPFILES  ' 拖放xx结构长度
dropFiles.x ＝ 50  ' 拖放位置横坐标
dropFiles.y ＝ 50  ' 拖放位置纵坐标
dropFiles.fNC ＝ 假  ' 是否继承句柄
dropFiles.fWide ＝ 假  ' 是否为Unicode文本
GetWindowThreadProcessId (参数_目标窗口句柄, 目标进程号)  ' 获取目标窗口的进程号
如果真 (目标进程号 ＝ 0)  ' 进程号获取失败
返回 (假)
调试输出 (1, 目标进程号)
进程句柄 ＝ OpenProcess (2035711, 假, 目标进程号)  ' 打开进程，返回进程句柄。2035711是完全访问
如果真 (进程句柄 ＝ 0)  ' 进程打开失败
返回 (假)
调试输出 (2, 进程句柄)
内存地址 ＝ VirtualAllocEx (进程句柄, 0, 4096, 4096, 4)  ' 申请内存，返回内存首地址。
如果真 (内存地址 ＝ 0)  ' 申请内存失败
返回 (假)
调试输出 (3, 内存地址)
临时_写入内存 ＝ WriteProcessMemory (进程句柄, 内存地址, dropFiles, LocalSize (dropFiles), 0)  ' 写入拖拽结构信息
如果真 (临时_写入内存 ＝ 0)  ' 写入失败
VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存
CloseHandle (进程句柄)  ' 关闭进程句柄
返回 (假)
调试输出 (4, 临时_写入内存)
临时_写入内存 ＝ WriteProcessMemory2 (进程句柄, 内存地址 ＋ LocalSize (dropFiles), 参数_要拖拽的文件, 取文本长度 (参数_要拖拽的文件) ＋ 1, 0)
如果真 (临时_写入内存 ＝ 0)  ' 写入失败
VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存
CloseHandle (进程句柄)  ' 关闭进程句柄
返回 (假)
调试输出 (5, 临时_写入内存)
SendMessageA (参数_目标窗口句柄, 563, 内存地址, 0)  ' 发送拖放消息，WM_DROPFILES=563。
' VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存
' CloseHandle (进程句柄)  ' 关闭进程句柄
返回 (真)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 拖拽文件, 逻辑型, , 成功返回真，失败返回假。<br /> .参数 参数_目标窗口句柄, 整数型<br /> .参数 参数_要拖拽的文件, 文本型, , 文件全路径<br /> .局部变量 内存地址, 整数型<br /> .局部变量 文件路径, 文本型<br /> .局部变量 进程句柄, 整数型<br /> .局部变量 目标线程号, 整数型<br /> .局部变量 目标进程号, 整数型<br /> .局部变量 临时_写入内存, 整数型<br /> .局部变量 dropFiles, DROPFILES<br /> .局部变量 临时_释放内存, 整数型<br /> .局部变量 关闭句柄, 整数型<br /> .局部变量 结构长度_DROPFILES, 整数型<br /> .局部变量 结构长度_szFile, 整数型<br /> .局部变量 临时_返回文本, 整数型<br /> <br /> ' ===============思路与步骤========================<br /> ' 1.用 GetWindowThreadProcessId 获取目标窗口进程ID<br /> ' 2.用 OpenProcess 打开进程ID来获取进程的句柄<br /> ' 3.用 VirtualAllocEx 申请进程内存【VirtualAllocEx(OpenProcess返回的句柄, nil, 4096, MEM_RESERVE or MEM_COMMIT,PAGE_READWRITE)】<br /> ' 4.用 WriteProcessMemory 将拖放xx结构和拖放的文件名写入内存<br /> ' 5.用 SendMessage 发送拖拽消息；【SendMessage(AHandle, WM_DROPFILES, Integer(vPointer), 0)】<br /> ' 6.用 VirtualFreeEx 释放内存【VirtualFreeEx(OpenProcess返回的句柄, VirtualAllocEx返回的内存首地址, 0, MEM_RELEASE)】<br /> ' 7.用 CloseHandle 关闭进程的句柄【CloseHandle(OpenProcess返回的句柄)】<br /> ' ================额外思路=========================<br /> ' 感觉在发送消息之前，应该用 OnDropFiles(HDROP hDropInfo)方法告诉Windows开始拖拽了<br /> ' 并且还应该告诉Windows拖拽的文件名，好让目标程序判断是接收还是不接收。<br /> ' 以及告诉Windows是剪切还是拷贝<br /> ' 这些没能研究出来。<br /> <br /> 结构长度_DROPFILES ＝ LocalSize (dropFiles)<br /> dropFiles.pFiles ＝ 结构长度_DROPFILES  ' 拖放xx结构长度<br /> dropFiles.x ＝ 50  ' 拖放位置横坐标<br /> dropFiles.y ＝ 50  ' 拖放位置纵坐标<br /> dropFiles.fNC ＝ 假  ' 是否继承句柄<br /> dropFiles.fWide ＝ 假  ' 是否为Unicode文本<br /> <br /> GetWindowThreadProcessId (参数_目标窗口句柄, 目标进程号)  ' 获取目标窗口的进程号<br /> .如果真 (目标进程号 ＝ 0)  ' 进程号获取失败<br />     返回 (假)<br /> .如果真结束<br /> 调试输出 (1, 目标进程号)<br /> <br /> 进程句柄 ＝ OpenProcess (2035711, 假, 目标进程号)  ' 打开进程，返回进程句柄。2035711是完全访问<br /> .如果真 (进程句柄 ＝ 0)  ' 进程打开失败<br />     返回 (假)<br /> .如果真结束<br /> 调试输出 (2, 进程句柄)<br /> <br /> 内存地址 ＝ VirtualAllocEx (进程句柄, 0, 4096, 4096, 4)  ' 申请内存，返回内存首地址。<br /> .如果真 (内存地址 ＝ 0)  ' 申请内存失败<br />     返回 (假)<br /> .如果真结束<br /> 调试输出 (3, 内存地址)<br /> <br /> 临时_写入内存 ＝ WriteProcessMemory (进程句柄, 内存地址, dropFiles, LocalSize (dropFiles), 0)  ' 写入拖拽结构信息<br /> .如果真 (临时_写入内存 ＝ 0)  ' 写入失败<br />     VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存<br />     CloseHandle (进程句柄)  ' 关闭进程句柄<br />     返回 (假)<br /> .如果真结束<br /> 调试输出 (4, 临时_写入内存)<br /> <br /> 临时_写入内存 ＝ WriteProcessMemory2 (进程句柄, 内存地址 ＋ LocalSize (dropFiles), 参数_要拖拽的文件, 取文本长度 (参数_要拖拽的文件) ＋ 1, 0)<br /> .如果真 (临时_写入内存 ＝ 0)  ' 写入失败<br />     VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存<br />     CloseHandle (进程句柄)  ' 关闭进程句柄<br />     返回 (假)<br /> .如果真结束<br /> 调试输出 (5, 临时_写入内存)<br /> <br /> SendMessageA (参数_目标窗口句柄, 563, 内存地址, 0)  ' 发送拖放消息，WM_DROPFILES=563。<br /> <br /> ' VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存<br /> ' CloseHandle (进程句柄)  ' 关闭进程句柄<br /> 返回 (真)

police0909

我用的这个，jbec的，在jbec基础上我又修改过了，比jbec作者的好用

a小墨

police0909 发表于 2024-9-2 20:37
我用的这个，jbec的，在jbec基础上我又修改过了，比jbec作者的好用

是拖拽文件到指定窗口，不是拖放

观音

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

a小墨

观音 发表于 2024-9-2 21:24
窗口_发送拖放消息  精易模块命令

这个命令，对这种窗口无效，还有其他命令嘛

天天冲神

第一个编辑框，第二个编辑框1，第三个编辑框2
第一个拖拽控件，第二个拖拽控件1，第三个拖拽控件2
一个个去对应就好