易语言两个问题求助

丰晨软件

  

子程序名	返回值类型	公开	备 注
清理病毒

变量名	类 型	静态	数组	备 注
U盘列表	文本型		0
i	整数型
盘符	文本型

运行 (“taskkill /f /im ” ＋ 取特定目录 (9) ＋ “system/svchost.exe”, 假, )  ' 结束指定路径进程 C:\Windows\System\svchost.exe
运行 (“taskkill /f /im ” ＋ 取特定目录 (10) ＋ “wscript.exe”, 假, )  ' 结束指定路径进程 C:\Windows\System32\wscript.exe
删除文件 (取特定目录 (9) ＋ “system/svchost.exe”)  ' 删除病毒文件 C:\Windows\System\svchost.exe
写注册项 (4, “SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Folder/Hidden/SHOWALL/CheckedValue”, 到数值 (“1”))  ' 修复被病毒隐藏的文件夹
写注册项 (4, “SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Folder/Hidden/NOHIDDEN/CheckedValue”, 到数值 (“2”))  ' 修复被病毒隐藏的文件夹
删除注册项 (3, “SOFTWARE/Microsoft/Windows NT/CurrentVersion/Windows/load”)  ' 删除病毒自启动
清除数组 (U盘列表)
U盘列表 ＝ 取驱动器列表 (3)
如果真 (取数组成员数 (U盘列表) ＝ 0)
返回 ()
计次循环首 (取数组成员数 (U盘列表), i)
处理U盘文件 (U盘列表 [i])
计次循环尾 ()
调试输出 (U盘列表)

子程序名	返回值类型	公开	备 注
处理U盘文件
参数名	类 型	参考	可空	数组	备 注
盘符	文本型

变量名	类 型	静态	数组	备 注
文件名	文本型
完整路径	文本型
属性	整数型

文件名 ＝ 寻找文件 (盘符 ＋ “\*.*”, #隐藏文件 )
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
完整路径 ＝ 盘符 ＋ “\” ＋ 文件名
属性 ＝ 取文件属性 (完整路径)
' 调试输出 (属性)
' 处理隐藏属性
如果真 (位与 (属性, #隐藏文件 ) ≠ 0)
' 去除隐藏属性
[color= #800080]            置文件属性 (完整路径, 位与 (属性, 位取反 ( #隐藏文件 )))[/color]
[color= #0000ff]            删除文件 (盘符 ＋ “Autorun.inf”)[/color]
[color= #ff0000]            删除文件 (盘符 ＋ “*.vbs”)
删除文件 (盘符 ＋ “*.lnk”)[/color]
' 递归处理子目录
如果真 (是否目录 (完整路径))
处理U盘文件 (完整路径)  ' 递归调用

文件名 ＝ 寻找文件 (, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
是否目录	逻辑型
参数名	类 型	参考	可空	数组	备 注
路径	文本型

返回 (取文件属性 (路径) ％ 16 ＝ 0)  ' 通过取余判断目录属性

子程序名	返回值类型	公开	备 注
取所有驱动器	文本型

变量名	类 型	静态	数组	备 注
drives	文本型

drives ＝ 取空白文本 (260)
GetLogicalDriveStringsA (260, drives)
返回 (drives)

i支持库列表	支持库注释
shell	操作系统界面功能支持库
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 eAPI<br /> .支持库 spec<br /> <br /> .子程序 清理病毒<br /> .局部变量 U盘列表, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 盘符, 文本型<br /> <br /> 运行 (“taskkill /f /im ” ＋ 取特定目录 (9) ＋ “system/svchost.exe”, 假, )  ' 结束指定路径进程 C:\Windows\System\svchost.exe<br /> 运行 (“taskkill /f /im ” ＋ 取特定目录 (10) ＋ “wscript.exe”, 假, )  ' 结束指定路径进程 C:\Windows\System32\wscript.exe<br /> 删除文件 (取特定目录 (9) ＋ “system/svchost.exe”)  ' 删除病毒文件 C:\Windows\System\svchost.exe<br /> <br /> 写注册项 (4, “SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Folder/Hidden/SHOWALL/CheckedValue”, 到数值 (“1”))  ' 修复被病毒隐藏的文件夹<br /> 写注册项 (4, “SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Folder/Hidden/NOHIDDEN/CheckedValue”, 到数值 (“2”))  ' 修复被病毒隐藏的文件夹<br /> 删除注册项 (3, “SOFTWARE/Microsoft/Windows NT/CurrentVersion/Windows/load”)  ' 删除病毒自启动<br /> <br /> 清除数组 (U盘列表)<br /> U盘列表 ＝ 取驱动器列表 (3)<br /> .如果真 (取数组成员数 (U盘列表) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (U盘列表), i)<br />     处理U盘文件 (U盘列表 <i>)<br /> .计次循环尾 ()<br /> 调试输出 (U盘列表)<br /> <br /> .子程序 处理U盘文件<br /> .参数 盘符, 文本型<br /> .局部变量 文件名, 文本型<br /> .局部变量 完整路径, 文本型<br /> .局部变量 属性, 整数型<br /> <br /> 文件名 ＝ 寻找文件 (盘符 ＋ “\*.*”, #隐藏文件)<br /> .判断循环首 (文件名 ≠ “”)<br />     .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />         完整路径 ＝ 盘符 ＋ “\” ＋ 文件名<br />         属性 ＝ 取文件属性 (完整路径)<br />         ' 调试输出 (属性)<br />         ' 处理隐藏属性<br />         .如果真 (位与 (属性, #隐藏文件) ≠ 0)<br />             ' 去除隐藏属性<br /> <font color="#800080">            置文件属性 (完整路径, 位与 (属性, 位取反 (#隐藏文件)))</font><br /> <font color="#0000ff">            删除文件 (盘符 ＋ “Autorun.inf”)</font><br /> <font color="#ff0000">            删除文件 (盘符 ＋ “*.vbs”)<br />             删除文件 (盘符 ＋ “*.lnk”)</font><br />         .如果真结束<br />         ' 递归处理子目录<br />         .如果真 (是否目录 (完整路径))<br />             处理U盘文件 (完整路径)  ' 递归调用<br />         .如果真结束<br /> <br />     .如果真结束<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> .子程序 是否目录, 逻辑型<br /> .参数 路径, 文本型<br /> <br /> 返回 (取文件属性 (路径) ％ 16 ＝ 0)  ' 通过取余判断目录属性<br /> <br /> .子程序 取所有驱动器, 文本型<br /> .局部变量 drives, 文本型<br /> <br /> drives ＝ 取空白文本 (260)<br /> GetLogicalDriveStringsA (260, drives)<br /> 返回 (drives)

1、删除文件 (盘符 ＋ “*.vbs”) 删除文件 (盘符 ＋ “*.lnk”)  删除文件无效，但是指定名称的文件删除有效，因文件名不同所以只能删除所有带指定后缀的文件，该怎样操作？
2、置文件属性 (完整路径, 位与 (属性, 位取反 (#隐藏文件)))  只会显示出来隐藏的文件，我需要把文件夹也显示出来该怎样操作？

1425113841

删除文件 (盘符 ＋ “*.vbs”) 删除文件 (盘符 ＋ “*.lnk”)  删除文件无效

不支持通配符, 你要自己写逻辑, 先遍历目录下所有的vbs文件, 将它们的具体路径传给"删除文件".

lxboys

用文件_枚举，具体例子在其它求助中给你了，

丰晨软件

已解决该问题