易语言遍历回收站模块引用

雾削木

此版本由大司命开源源码封装而来，因为原源码涉及模块引用问题，所以在此版本本人优化了结构，在源码中整合了模块的功能源码，封装为模块提供大家使用。

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

' 遍历回收站文件 ()
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

子程序名	返回值类型	公开	备 注
遍历回收站文件	整数型		遍历回收站中文件，返回数量
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型				返回文件原本路径
回收路径	文本型				返回文件回收站路径

变量名	类 型	静态	数组	备 注
pisfRecBin	整数型
pMalloc	整数型
pidlBin	整数型
IID_IShellFolder	字节集
pisf	整数型
peidl	整数型
idlCurrent	整数型
uFetched	整数型
pszPath	文本型
strret	整数型
pOleStr	整数型
dwSize	整数型
szBuf	字节集

清除数组 (文件路径)
清除数组 (回收路径)
pszPath ＝ 取空白文本 ( #MAX_PATH )
SHGetDesktopFolder (pisfRecBin)
SHGetMalloc (pMalloc)
SHGetFolderLocation ( #NULL, #CSIDL_BITBUCKET, #NULL, 0, pidlBin)
IID_IShellFolder ＝ { 230, 20, 2, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }
COM_调用COM方法 (pisfRecBin, 5, pidlBin, #NULL, 取指针_字节集型 (IID_IShellFolder), 取指针整数_ (pisf), , , , , , )
COM_调用COM方法 (pisf, 4, #NULL, 位或 ( #SHCONTF_FOLDERS, #SHCONTF_NONFOLDERS, #SHCONTF_INCLUDEHIDDEN ), 取指针整数_ (peidl), , , , , , , )
判断循环首 (真)
如果真 (COM_调用COM方法 (peidl, 3, 1, 取指针整数_ (idlCurrent), 取指针整数_ (uFetched), , , , , , , ) ＝ #S_FALSE )
跳出循环 ()
SHGetPathFromIDListA (idlCurrent, pszPath)
strret ＝ LocalAlloc ( #LMEM_ZEROINIT, 264)
COM_调用COM方法 (pisf, 11, idlCurrent, #SHGDN_NORMAL, strret, , , , , , , )
pOleStr ＝ 指针_到整数 (strret ＋ 4)
dwSize ＝ lstrlenW (pOleStr)
szBuf ＝ 指针到字节集 (pOleStr, dwSize × 2 ＋ 2)
LocalFree (strret)
加入成员 (回收路径, pszPath)
加入成员 (文件路径, 编码_Unicode到Ansi (szBuf))
' 调试输出 (pszPath, 编码_Unicode到Ansi (szBuf))
判断循环尾 ()
COM_Release (pMalloc)
COM_Release (peidl)
COM_Release (pisf)
返回 (取数组成员数 (文件路径))

子程序名	返回值类型	公开	备 注
COM_Release	整数型
参数名	类 型	参考	可空	数组	备 注
this_	整数型

变量名	类 型	静态	数组	备 注
index	整数型

index ＝ 2
置入代码 ( #COM调用 )
返回 (0)

子程序名	返回值类型	公开	备 注
编码_Unicode到Ansi	文本型		将Unicode码转换为Ansi码；成功返回转换后的文本；
参数名	类 型	参考	可空	数组	备 注
Unicode	字节集				欲转换的Unicode字节集

返回 (Unicode到Ansi (Unicode, #CP_gb2312 ))

子程序名	返回值类型	公开	备 注
COM_调用COM方法	整数型
参数名	类 型	参考	可空	数组	备 注
pThis	整数型
Index	整数型				索引从1开始
arg1	整数型
arg2	整数型
arg3	整数型
arg4	整数型
arg5	整数型
arg6	整数型
arg7	整数型
arg8	整数型
arg9	整数型
arg10	整数型

变量名	类 型	静态	数组	备 注
参数数组	整数型		0

加入成员 (参数数组, pThis)
计次循环首 (1, )
如果 (是否为空 (arg1))
跳出循环 ()
加入成员 (参数数组, arg1)
如果 (是否为空 (arg2))
跳出循环 ()
加入成员 (参数数组, arg2)
如果 (是否为空 (arg3))
跳出循环 ()
加入成员 (参数数组, arg3)
如果 (是否为空 (arg4))
跳出循环 ()
加入成员 (参数数组, arg4)
如果 (是否为空 (arg5))
跳出循环 ()
加入成员 (参数数组, arg5)
如果 (是否为空 (arg6))
跳出循环 ()
加入成员 (参数数组, arg6)
如果 (是否为空 (arg7))
跳出循环 ()
加入成员 (参数数组, arg7)
如果 (是否为空 (arg8))
跳出循环 ()
加入成员 (参数数组, arg8)
如果 (是否为空 (arg9))
跳出循环 ()
加入成员 (参数数组, arg9)
如果 (是否为空 (arg10))
跳出循环 ()
加入成员 (参数数组, arg10)

计次循环尾 ()
返回 (CallWindowProcA (取指针_字节集型 ( #动态调用代码 ), _GetMethodAddr (pThis, Index), 取数据_通用型_数组 (参数数组), 取数组成员数 (参数数组), 0))

子程序名	返回值类型	公开	备 注
Unicode到Ansi	文本型
参数名	类 型	参考	可空	数组	备 注
Unicode	字节集
目标编码	整数型				#CP_ACP

变量名	类 型	静态	数组	备 注
szChar	字节集

如果真 (是否为空 (目标编码))
目标编码 ＝ #CP_ACP
szChar ＝ W2A_CP (Unicode, 目标编码)
返回 (取字节集数据 (szChar, #文本型, ))

子程序名	返回值类型	公开	备 注
指针_到整数	整数型
参数名	类 型	参考	可空	数组	备 注
整数指针	整数型

置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
W2A_CP	字节集
参数名	类 型	参考	可空	数组	备 注
lpw	字节集
acp	整数型				#CP_x

变量名	类 型	静态	数组	备 注
CharStr	字节集
lpwsz	整数型
len	整数型
ByteStr	字节集
lpsz	整数型

CharStr ＝ lpw ＋ { 0, 0 }
lpwsz ＝ 取指针字节集_ (CharStr)
如果真 (lpwsz ≠ 0 且 lstrlenW (lpwsz) ＞ 0)
len ＝ WideCharToMultiByte (acp, 0, lpwsz, -1, 0, 0, 0, 0)
ByteStr ＝ 取空白字节集 (len)
lpsz ＝ 取指针_字节集型 (ByteStr)
WideCharToMultiByte (acp, 0, lpwsz, -1, lpsz, len, 0, 0)
ByteStr ＝ 指针到字节集 (lpsz, strlen (lpsz))  ' 不保留结尾的0
返回 (ByteStr)

子程序名	返回值类型	公开	备 注
取指针字节集_	整数型
参数名	类 型	参考	可空	数组	备 注
参数_字节集	字节集

置入代码 ({ 139, 69, 8, 139, 0, 5, 8, 0, 0, 0, 201, 194, 4, 0 })
' mov eax,[ebp+08]
' mov eax,[eax]
' add eax,08
' leave
' retn 04
返回 (0)

子程序名	返回值类型	公开	备 注
取数据_通用型_数组	整数型		取到的是变量在堆中的地址,和 取变量数据地址() 一样
参数名	类 型	参考	可空	数组	备 注
数据	通用型				基本支持所有类型

置入代码 ({ 139, 69, 8, 139, 0, 133, 192, 116, 10, 139, 24, 193, 227, 2, 131, 192, 4, 1, 216, 201, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
_GetMethodAddr	整数型
参数名	类 型	参考	可空	数组	备 注
Instance	整数型
index	整数型				索引从0开始

变量名	类 型	静态	数组	备 注
var	整数型

var ＝ 取字节集数据 (指针到字节集 (Instance, 4), #整数型, )
var ＝ var ＋ index × 4
var ＝ 取字节集数据 (指针到字节集 (var, 4), #整数型, )
返回 (var)

子程序名	返回值类型	公开	备 注
取指针整数_	整数型
参数名	类 型	参考	可空	数组	备 注
参数_整数	整数型

置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
' mov eax,[ebp+8]
' leave
' retn 04
返回 (0)

子程序名	返回值类型	公开	备 注
取指针_字节集型	整数型		取到的是变量堆地址,和 取变量数据地址() 一样
参数名	类 型	参考	可空	数组	备 注
字节集	字节集

置入代码 ({ 139, 69, 8, 139, 0, 133, 192, 15, 132, 3, 0, 0, 0, 131, 192, 8, 201, 194, 4, 0 })
返回 (0)

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> ' 遍历回收站文件 ()<br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> <br /> <br /> <br /> <br /> .子程序 遍历回收站文件, 整数型, 公开, 遍历回收站中文件，返回数量<br /> .参数 文件路径, 文本型, 可空 数组, 返回文件原本路径<br /> .参数 回收路径, 文本型, 可空 数组, 返回文件回收站路径<br /> .局部变量 pisfRecBin, 整数型<br /> .局部变量 pMalloc, 整数型<br /> .局部变量 pidlBin, 整数型<br /> .局部变量 IID_IShellFolder, 字节集<br /> .局部变量 pisf, 整数型<br /> .局部变量 peidl, 整数型<br /> .局部变量 idlCurrent, 整数型<br /> .局部变量 uFetched, 整数型<br /> .局部变量 pszPath, 文本型<br /> .局部变量 strret, 整数型<br /> .局部变量 pOleStr, 整数型<br /> .局部变量 dwSize, 整数型<br /> .局部变量 szBuf, 字节集<br /> <br /> 清除数组 (文件路径)<br /> 清除数组 (回收路径)<br /> pszPath ＝ 取空白文本 (#MAX_PATH)<br /> SHGetDesktopFolder (pisfRecBin)<br /> SHGetMalloc (pMalloc)<br /> SHGetFolderLocation (#NULL, #CSIDL_BITBUCKET, #NULL, 0, pidlBin)<br /> IID_IShellFolder ＝ { 230, 20, 2, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }<br /> COM_调用COM方法 (pisfRecBin, 5, pidlBin, #NULL, 取指针_字节集型 (IID_IShellFolder), 取指针整数_ (pisf), , , , , , )<br /> COM_调用COM方法 (pisf, 4, #NULL, 位或 (#SHCONTF_FOLDERS, #SHCONTF_NONFOLDERS, #SHCONTF_INCLUDEHIDDEN), 取指针整数_ (peidl), , , , , , , )<br /> .判断循环首 (真)<br />     .如果真 (COM_调用COM方法 (peidl, 3, 1, 取指针整数_ (idlCurrent), 取指针整数_ (uFetched), , , , , , , ) ＝ #S_FALSE)<br />         跳出循环 ()<br />     .如果真结束<br />     SHGetPathFromIDListA (idlCurrent, pszPath)<br />     strret ＝ LocalAlloc (#LMEM_ZEROINIT, 264)<br />     COM_调用COM方法 (pisf, 11, idlCurrent, #SHGDN_NORMAL, strret, , , , , , , )<br />     pOleStr ＝ 指针_到整数 (strret ＋ 4)<br />     dwSize ＝ lstrlenW (pOleStr)<br />     szBuf ＝ 指针到字节集 (pOleStr, dwSize × 2 ＋ 2)<br />     LocalFree (strret)<br />     加入成员 (回收路径, pszPath)<br />     加入成员 (文件路径, 编码_Unicode到Ansi (szBuf))<br />     ' 调试输出 (pszPath, 编码_Unicode到Ansi (szBuf))<br /> .判断循环尾 ()<br /> COM_Release (pMalloc)<br /> COM_Release (peidl)<br /> COM_Release (pisf)<br /> 返回 (取数组成员数 (文件路径))<br /> <br /> .子程序 COM_Release, 整数型<br /> .参数 this_, 整数型<br /> .局部变量 index, 整数型<br /> <br /> index ＝ 2<br /> 置入代码 (#COM调用)<br /> 返回 (0)<br /> <br /> .子程序 编码_Unicode到Ansi, 文本型, , 将Unicode码转换为Ansi码；成功返回转换后的文本；<br /> .参数 Unicode, 字节集, , 欲转换的Unicode字节集<br /> <br /> 返回 (Unicode到Ansi (Unicode, #CP_gb2312))<br /> <br /> .子程序 COM_调用COM方法, 整数型<br /> .参数 pThis, 整数型<br /> .参数 Index, 整数型, , 索引从1开始<br /> .参数 arg1, 整数型, 可空<br /> .参数 arg2, 整数型, 可空<br /> .参数 arg3, 整数型, 可空<br /> .参数 arg4, 整数型, 可空<br /> .参数 arg5, 整数型, 可空<br /> .参数 arg6, 整数型, 可空<br /> .参数 arg7, 整数型, 可空<br /> .参数 arg8, 整数型, 可空<br /> .参数 arg9, 整数型, 可空<br /> .参数 arg10, 整数型, 可空<br /> .局部变量 参数数组, 整数型, , "0"<br /> <br /> 加入成员 (参数数组, pThis)<br /> .计次循环首 (1, )<br />     .如果 (是否为空 (arg1))<br />         跳出循环 ()<br />     .否则<br />         加入成员 (参数数组, arg1)<br />     .如果结束<br />     .如果 (是否为空 (arg2))<br />         跳出循环 ()<br />     .否则<br />         加入成员 (参数数组, arg2)<br />     .如果结束<br />     .如果 (是否为空 (arg3))<br />         跳出循环 ()<br />     .否则<br />         加入成员 (参数数组, arg3)<br />     .如果结束<br />     .如果 (是否为空 (arg4))<br />         跳出循环 ()<br />     .否则<br />         加入成员 (参数数组, arg4)<br />     .如果结束<br />     .如果 (是否为空 (arg5))<br />         跳出循环 ()<br />     .否则<br />         加入成员 (参数数组, arg5)<br />     .如果结束<br />     .如果 (是否为空 (arg6))<br />         跳出循环 ()<br />     .否则<br />         加入成员 (参数数组, arg6)<br />     .如果结束<br />     .如果 (是否为空 (arg7))<br />         跳出循环 ()<br />     .否则<br />         加入成员 (参数数组, arg7)<br />     .如果结束<br />     .如果 (是否为空 (arg8))<br />         跳出循环 ()<br />     .否则<br />         加入成员 (参数数组, arg8)<br />     .如果结束<br />     .如果 (是否为空 (arg9))<br />         跳出循环 ()<br />     .否则<br />         加入成员 (参数数组, arg9)<br />     .如果结束<br />     .如果 (是否为空 (arg10))<br />         跳出循环 ()<br />     .否则<br />         加入成员 (参数数组, arg10)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (CallWindowProcA (取指针_字节集型 (#动态调用代码), _GetMethodAddr (pThis, Index), 取数据_通用型_数组 (参数数组), 取数组成员数 (参数数组), 0))<br /> <br /> .子程序 Unicode到Ansi, 文本型<br /> .参数 Unicode, 字节集<br /> .参数 目标编码, 整数型, 可空, #CP_ACP<br /> .局部变量 szChar, 字节集<br /> <br /> .如果真 (是否为空 (目标编码))<br />     目标编码 ＝ #CP_ACP<br /> .如果真结束<br /> szChar ＝ W2A_CP (Unicode, 目标编码)<br /> 返回 (取字节集数据 (szChar, #文本型, ))<br /> <br /> .子程序 指针_到整数, 整数型<br /> .参数 整数指针, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })<br /> 返回 (0)<br /> <br /> .子程序 W2A_CP, 字节集<br /> .参数 lpw, 字节集<br /> .参数 acp, 整数型, , #CP_x<br /> .局部变量 CharStr, 字节集<br /> .局部变量 lpwsz, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 ByteStr, 字节集<br /> .局部变量 lpsz, 整数型<br /> <br /> CharStr ＝ lpw ＋ { 0, 0 }<br /> lpwsz ＝ 取指针字节集_ (CharStr)<br /> .如果真 (lpwsz ≠ 0 且 lstrlenW (lpwsz) ＞ 0)<br />     len ＝ WideCharToMultiByte (acp, 0, lpwsz, -1, 0, 0, 0, 0)<br />     ByteStr ＝ 取空白字节集 (len)<br />     lpsz ＝ 取指针_字节集型 (ByteStr)<br />     WideCharToMultiByte (acp, 0, lpwsz, -1, lpsz, len, 0, 0)<br />     ByteStr ＝ 指针到字节集 (lpsz, strlen (lpsz))  ' 不保留结尾的0<br /> .如果真结束<br /> 返回 (ByteStr)<br /> <br /> .子程序 取指针字节集_, 整数型<br /> .参数 参数_字节集, 字节集<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 5, 8, 0, 0, 0, 201, 194, 4, 0 })<br /> ' mov eax,[ebp+08]<br /> ' mov eax,[eax]<br /> ' add eax,08<br /> ' leave<br /> ' retn 04<br /> 返回 (0)<br /> <br /> .子程序 取数据_通用型_数组, 整数型, , 取到的是变量在堆中的地址,和 取变量数据地址() 一样<br /> .参数 数据, 通用型, 参考 数组, 基本支持所有类型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 133, 192, 116, 10, 139, 24, 193, 227, 2, 131, 192, 4, 1, 216, 201, 194, 4, 0 })<br /> 返回 (0)<br /> <br /> .子程序 _GetMethodAddr, 整数型<br /> .参数 Instance, 整数型<br /> .参数 index, 整数型, , 索引从0开始<br /> .局部变量 var, 整数型<br /> <br /> var ＝ 取字节集数据 (指针到字节集 (Instance, 4), #整数型, )<br /> var ＝ var ＋ index × 4<br /> var ＝ 取字节集数据 (指针到字节集 (var, 4), #整数型, )<br /> 返回 (var)<br /> <br /> .子程序 取指针整数_, 整数型<br /> .参数 参数_整数, 整数型, 参考<br /> <br /> 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })<br /> ' mov eax,[ebp+8]<br /> ' leave<br /> ' retn 04<br /> 返回 (0)<br /> <br /> .子程序 取指针_字节集型, 整数型, , 取到的是变量堆地址,和 取变量数据地址() 一样<br /> .参数 字节集, 字节集, 参考<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 133, 192, 15, 132, 3, 0, 0, 0, 131, 192, 8, 201, 194, 4, 0 })<br /> 返回 (0)

大司命

遍历并显示回收站中的文件
https://bbs.125.la/forum.php?mod=viewthread&tid=14681357
(出处: 精易论坛)

无语了~

雾削木

有不少人没有看到说明，这个是由开源的源码改编来的，个人整合成了模块而已，不要再吵了。

q1329840246

遍历并显示回收站中的文件1

q1329840246

遍历并显示回收站中的文件

729004823

遍历并显示回收站中的文件

zhanlangljg

过来学习下，感谢分享

panda92

谢谢分享

雾削木

qq1056123185 发表于 2021-6-15 22:49
被抄袭了

不是抄袭，我将原本的实现代码整合成模块了而已，更方便初学者调用

qq2518

难怪我感觉有点眼熟。似乎以前看过。。。

流年2021

我来学习下！走起！