易语言如何实现吧文件拖拽到其他程序上

仰望星空521 · 发表于 2020-4-3 13:59:04

如图，需要吧运行的文件拖拽到软件里才能运行（由于运行的文件太多，一个一个拖进去用比较麻烦）我想利用易语言写一个软件，点击按钮就自动把运行目录的某个文件自动拖拽到需要运行的软件里。但是看到的教程都是易语言内部拖拽。没法实现外部软件拖拽

猫哥owl · 发表于 2020-4-3 13:59:05

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

变量名	类型	静态	数组	备注
内存地址	整数型
文件路径	文本型
进程句柄	整数型
目标线程号	整数型
目标进程号	整数型
临时_写入内存	整数型
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 ＝取结构长度_DROPFILES (dropFiles)
dropFiles.pFiles ＝结构长度_DROPFILES  ' 拖放xx结构长度
dropFiles.pt.x ＝ 0  ' 拖放位置横坐标
dropFiles.pt.y ＝ 0  ' 拖放位置纵坐标
dropFiles.fNC ＝真  ' 是否继承句柄
dropFiles.fWide ＝假  ' 是否为Unicode文本
GetWindowThreadProcessId (参数_目标窗口句柄, 目标进程号)  ' 获取目标窗口的进程号

如果真 (目标进程号＝ 0) ' 进程号获取失败

返回 (假)

进程句柄＝ OpenProcess (2035711, 假, 目标进程号) ' 打开进程，返回进程句柄。2035711是完全访问

如果真 (进程句柄＝ 0) ' 进程打开失败

返回 (假)

内存地址＝ VirtualAllocEx (进程句柄, 0, 4096, 4096, 4) ' 申请内存，返回内存首地址。

如果真 (内存地址＝ 0) ' 申请内存失败

返回 (假)

临时_写入内存＝写内存_DROPFILES (进程句柄, 内存地址, dropFiles, 取结构长度_DROPFILES (dropFiles), 0) ' 写入拖拽结构信息

如果真 (临时_写入内存＝ 0) ' 写入失败

输出调试文本 (取错误信息_ ()) ' 输出错误信息。通常为126，代表内存地址没有找到或指定内存地址无法写入。

VirtualFreeEx (进程句柄, 内存地址, 0, 32768) ' 释放申请的内存

CloseHandle (进程句柄) ' 关闭进程句柄

返回 (假)

临时_写入内存＝写内存_文件名 (进程句柄, 内存地址＋取结构长度_DROPFILES (dropFiles), 参数_要拖拽的文件, 取文本长度 (参数_要拖拽的文件) ＋ 1, 0)

如果真 (临时_写入内存＝ 0) ' 写入失败

输出调试文本 (取错误信息_ ()) ' 输出错误信息。通常为126，代表内存地址没有找到或指定内存地址无法写入。

VirtualFreeEx (进程句柄, 内存地址, 0, 32768) ' 释放申请的内存

CloseHandle (进程句柄) ' 关闭进程句柄

返回 (假)

发送消息 (参数_目标窗口句柄, 563, 内存地址, 0)  ' 发送拖放消息，WM_DROPFILES=563。
VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存
CloseHandle (进程句柄)  ' 关闭进程句柄
返回 (真)

i支持库列表	支持库注释
elibpp	ｅＬＩＢ＋＋

.版本 2<br />
.支持库 elibpp<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 ＝ 取结构长度_DROPFILES (dropFiles)<br />
dropFiles.pFiles ＝ 结构长度_DROPFILES  ' 拖放xx结构长度<br />
dropFiles.pt.x ＝ 0  ' 拖放位置横坐标<br />
dropFiles.pt.y ＝ 0  ' 拖放位置纵坐标<br />
dropFiles.fNC ＝ 真  ' 是否继承句柄<br />
dropFiles.fWide ＝ 假  ' 是否为Unicode文本<br />
<br />
GetWindowThreadProcessId (参数_目标窗口句柄, 目标进程号)  ' 获取目标窗口的进程号<br />
.如果真 (目标进程号 ＝ 0)  ' 进程号获取失败<br />
    返回 (假)<br />
.如果真结束<br />
<br />
进程句柄 ＝ OpenProcess (2035711, 假, 目标进程号)  ' 打开进程，返回进程句柄。2035711是完全访问<br />
.如果真 (进程句柄 ＝ 0)  ' 进程打开失败<br />
    返回 (假)<br />
.如果真结束<br />
<br />
内存地址 ＝ VirtualAllocEx (进程句柄, 0, 4096, 4096, 4)  ' 申请内存，返回内存首地址。<br />
.如果真 (内存地址 ＝ 0)  ' 申请内存失败<br />
    返回 (假)<br />
.如果真结束<br />
<br />
临时_写入内存 ＝ 写内存_DROPFILES (进程句柄, 内存地址, dropFiles, 取结构长度_DROPFILES (dropFiles), 0)  ' 写入拖拽结构信息<br />
.如果真 (临时_写入内存 ＝ 0)  ' 写入失败<br />
    输出调试文本 (取错误信息_ ())  ' 输出错误信息。通常为126，代表内存地址没有找到或指定内存地址无法写入。<br />
    VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存<br />
    CloseHandle (进程句柄)  ' 关闭进程句柄<br />
    返回 (假)<br />
.如果真结束<br />
<br />
临时_写入内存 ＝ 写内存_文件名 (进程句柄, 内存地址 ＋ 取结构长度_DROPFILES (dropFiles), 参数_要拖拽的文件, 取文本长度 (参数_要拖拽的文件) ＋ 1, 0)<br />
.如果真 (临时_写入内存 ＝ 0)  ' 写入失败<br />
    输出调试文本 (取错误信息_ ())  ' 输出错误信息。通常为126，代表内存地址没有找到或指定内存地址无法写入。<br />
    VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存<br />
    CloseHandle (进程句柄)  ' 关闭进程句柄<br />
    返回 (假)<br />
.如果真结束<br />
<br />
发送消息 (参数_目标窗口句柄, 563, 内存地址, 0)  ' 发送拖放消息，WM_DROPFILES=563。<br />
<br />
VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存<br />
CloseHandle (进程句柄)  ' 关闭进程句柄<br />
返回 (真)