本帖最后由 fybhwsx 于 2023-4-20 06:55 编辑
反馈一下,正则匹配函数不对,新版该怎样写?2023-4-16版;修改注册表删除此电脑窗口中的7个(视频、桌面、文档、图片、音乐、3D)文件夹
Local $sp = '{f86fa3ab-70d2-4fc7-9c99-fcbf05467f3a}' ;视频
Local $zm = '{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}' ;桌面
Local $wd = '{d3162b92-9365-467a-956b-92703aca08af}' ;文档
Local $yy = '{3dfdf296-dbec-4fb4-81d1-6a3438bcf4de}' ;音乐
Local $xz = '{088e3905-0323-4b02-9826-5d99428e115f}' ;下载
Local $tp = '{24ad3ad4-a569-4530-98e1-ab02f9417aa8}' ;图片
Local $3d = '{0DB7E03F-FC29-4DC6-9020-FF41B59E513A}' ;3D
Local $NameSpace_zx = ''
For $reg_i = 1 To 99
$NameSpace_zx = RegEnumKey('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace', $reg_i) ;获取子项
If @error Then ExitLoop
If StringRegExp($NameSpace_zx, $sp & '|' & $zm & '|' & $wd & '|' & $yy & '|' & $xz & '|' & $tp & '|' & $3d) Then
RegDelete('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\' & $NameSpace_zx)
EndIf
Next
|