秋无痕常用软件全功能装机光盘 2024年秋天版 秋无痕一键优化Windows 10专版 秋无痕一键优化Windows 11专版 秋无痕论坛官方QQ群
获取无痕币和提高等级


上一主题下一主题
主题 : 属性设置助手（批量或单个处理)   By 风无忌
复制链接 | 浏览器收藏 | 打印
If you put your heart into it,nothing is impossible！
级别: 技术组成员

作者资料 发送短消息 QQ联系
UID: 85553
精华: 2
发帖: 124
威望: 768 点
无痕币: 3522 WHB
贡献值: 0 点
在线时间: 171(时)
注册时间: 2009-06-27
最后登录: 2013-12-09
0  发表于: 2010-10-22 14:16｜请将IE368导航设置为首页，支持论坛
全看 | 小 中 大

0 属性设置助手（批量或单个处理)   By 风无忌

管理提醒： 本帖被 realqwh 执行加亮操作(2010-10-22)







功能主要就是批量或单个设置文件或文件夹的属性~~~

批量设置可用于文件夹杀手病毒造成的全盘文件和文件夹隐藏的状况~~~

源码给一下吧:

复制代码
  3. #NoTrayIcon
  4. #Region AutoIt3Wrapper 预编译参数(常用参数)
  5. #AutoIt3Wrapper_Icon= D:\Downloads\win7_icons\0002.ico    ;图标,支持EXE,DLL,ICO
  6. #AutoIt3Wrapper_OutFile=                         ;输出文件名
  7. #AutoIt3Wrapper_OutFile_Type=exe                       ;文件类型
  8. #AutoIt3Wrapper_Compression=4            ;压缩等级
  9. #AutoIt3Wrapper_UseUPX=y              ;使用压缩
  10. #AutoIt3Wrapper_Res_Comment= Attrib Set By FengWuji             ;注释
  11. #AutoIt3Wrapper_Res_Description=设置文件/文件夹属性          ;详细信息
  12. #AutoIt3Wrapper_Res_FileVersion= 1.0.0          ;文件版本
  13. ;#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p       ;自动更新版本
  14. #AutoIt3Wrapper_Res_LegalCopyright= 风无忌         ;版权
  15. #AutoIt3Wrapper_Change2CUI=N                           ;修改输出的程序为CUI(控制台程序)
  16. #EndRegion AutoIt3Wrapper 预编译参数(常用参数)
  17. #include <ButtonConstants.au3>
  18. #include <EditConstants.au3>
  19. #include <GUIConstantsEx.au3>
  20. #include <StaticConstants.au3>
  21. #include <TabConstants.au3>
  22. #include <WindowsConstants.au3>
  23. #include <file.au3>
  24. #include <array.au3>
  25. Global $READONLY = 'R' ;只读属性
  26. Global $ARCHIVE = 'A' ;存档属性
  27. Global $SYSTEM = 'S' ;系统属性
  28. Global $HIDE = 'H' ;隐藏属性
  29. Global $NORMAL = 'N' ;普通属性
  30. Global $OFFLINE = 'O' ;脱机属性
  31. Global $TEMPORARY = 'T' ;临时文件属性
  32. Global $array = _FileListToArray(@WorkingDir) ;获得文件和文件加列表数组
  33. Global $path = @ScriptDir
  34. #Region ### START Koda GUI section ###
  35. $Form1 = GUICreate("属性设置助手                   By 风无忌", 413, 307, 302, 153)
  36. $PageControl1 = GUICtrlCreateTab(8, 24, 396, 272)
  37. $TabSheet1 = GUICtrlCreateTabItem("批量处理")
  38. $Group1 = GUICtrlCreateGroup("属性选择", 42, 69, 329, 81)
  39. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  40. $Checkbox1 = GUICtrlCreateCheckbox("只读", 58, 93, 57, 17)
  41. $Checkbox2 = GUICtrlCreateCheckbox("存档", 135, 93, 57, 17)
  42. $Checkbox3 = GUICtrlCreateCheckbox("系统", 211, 93, 57, 17)
  43. $Checkbox4 = GUICtrlCreateCheckbox("隐藏", 288, 93, 57, 17)
  44. $Checkbox5 = GUICtrlCreateCheckbox("普通", 58, 117, 57, 17)
  45. $Checkbox6 = GUICtrlCreateCheckbox("脱机", 135, 117, 57, 17)
  46. $Checkbox7 = GUICtrlCreateCheckbox("临时", 211, 117, 57, 17)
  47. GUICtrlCreateGroup("", -99, -99, 1, 1)
  48. $Group2 = GUICtrlCreateGroup("操作选择", 42, 156, 329, 57)
  49. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  50. $Radio1 = GUICtrlCreateRadio("添加属性", 74, 173, 121, 25)
  51. GUICtrlSetState(-1, $GUI_CHECKED)
  52. $Radio2 = GUICtrlCreateRadio("删除属性", 228, 173, 121, 25)
  53. GUICtrlCreateGroup("", -99, -99, 1, 1)
  54. $Button1 = GUICtrlCreateButton("确定(&O)", 111, 229, 75, 25)
  55. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  56. $Button2 = GUICtrlCreateButton("取消(&C)", 223, 229, 75, 25)
  57. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  58. $TabSheet2 = GUICtrlCreateTabItem("单个处理")
  59. $Label1 = GUICtrlCreateLabel("选择:", 30, 62, 30, 19)
  60. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  61. $Radio5 = GUICtrlCreateRadio("文件", 70, 50, 40, 19)
  62. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  63. GUICtrlSetState(-1, $GUI_CHECKED)
  64. $Radio6 = GUICtrlCreateRadio("文件夹", 70, 70, 55, 19)
  65. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  66. $Input1 = GUICtrlCreateInput("", 136, 64, 169, 22)
  67. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  68. $Button3 = GUICtrlCreateButton("浏览(&V)", 315, 63, 57, 25)
  69. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  70. $Group3 = GUICtrlCreateGroup("属性选择", 43, 91, 329, 81)
  71. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  72. GUICtrlSetBkColor(-1, 0xFFFBF0)
  73. $Checkbox8 = GUICtrlCreateCheckbox("只读", 59, 115, 57, 17)
  74. $Checkbox9 = GUICtrlCreateCheckbox("存档", 136, 115, 57, 17)
  75. $Checkbox10 = GUICtrlCreateCheckbox("系统", 212, 115, 57, 17)
  76. $Checkbox11 = GUICtrlCreateCheckbox("隐藏", 289, 115, 57, 17)
  77. $Checkbox12 = GUICtrlCreateCheckbox("普通", 59, 139, 57, 17)
  78. $Checkbox13 = GUICtrlCreateCheckbox("脱机", 136, 139, 57, 17)
  79. $Checkbox14 = GUICtrlCreateCheckbox("临时", 212, 139, 57, 17)
  80. GUICtrlCreateGroup("", -99, -99, 1, 1)
  81. $Group4 = GUICtrlCreateGroup("操作选择", 43, 178, 329, 57)
  82. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  83. $Radio3 = GUICtrlCreateRadio("添加属性", 75, 195, 121, 25)
  84. GUICtrlSetState(-1, $GUI_CHECKED)
  85. $Radio4 = GUICtrlCreateRadio("删除属性", 229, 195, 121, 25)
  86. GUICtrlCreateGroup("", -99, -99, 1, 1)
  87. $Button4 = GUICtrlCreateButton("确定(&O)", 109, 246, 75, 25)
  88. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  89. $Button5 = GUICtrlCreateButton("取消(&C)", 229, 246, 75, 25)
  90. GUICtrlSetFont(-1, 9, 400, 0, "Arial")
  91. $TabSheet3 = GUICtrlCreateTabItem("程序说明")
  92. GUICtrlSetState(-1, $GUI_SHOW)
  93. $Label2 = GUICtrlCreateLabel("可以批量或单个设置文件夹和文件的属性;", 88, 88, 223, 17)
  94. $Label3 = GUICtrlCreateLabel("批量设置可用于文件夹杀手病毒造成的目", 89, 112, 220, 17)
  95. $Label4 = GUICtrlCreateLabel("录下文件夹和文件全被加上系统和隐藏属", 89, 134, 220, 17)
  96. $Label5 = GUICtrlCreateLabel("性的状况;", 89, 159, 55, 17)
  97. $Label6 = GUICtrlCreateLabel("作   者:            风无忌       ", 89, 183, 210, 17)
  98. $Label7 = GUICtrlCreateLabel("Bug反馈:       wzh880801@163.com", 89, 210, 215, 17)
  99. GUICtrlCreateTabItem("")
  100. GUISetState(@SW_SHOW)
  101. #EndRegion ### END Koda GUI section ###
  103. AdlibRegister("Check",800)
  104. While 1
  105.  $nMsg = GUIGetMsg()
  106.  Switch $nMsg
  107.   Case $GUI_EVENT_CLOSE, $Button2, $Button5
  108.    _Exit()
  109.   Case $Button1
  110.    While 1
  111.     If BitAND(GUICtrlRead($Checkbox1), $GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($Checkbox2), $GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($Checkbox3), $GUI_UNCHECKED) = $GUI_UNCHECKED _
  112.       And BitAND(GUICtrlRead($Checkbox4), $GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($Checkbox5), $GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($Checkbox6), $GUI_UNCHECKED) = $GUI_UNCHECKED _
  113.       And BitAND(GUICtrlRead($Checkbox7), $GUI_UNCHECKED) = $GUI_UNCHECKED Then
  114.      $msg = MsgBox(0 + 48, "提示", "你未选择任何项目!", "", $Form1)
  115.      If $msg = 1 Then ExitLoop
  116.     EndIf
  117.     If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED Then
  118.      GroupAddAttrib()
  119.      MsgBox(0, "完成", "增加属性成功完成", "", $Form1)
  120.      _EXIT()
  121.     Else
  122.      GroupDelAttrib()
  123.      MsgBox(0, "完成", "删除属性成功完成", "", $Form1)
  124.      _EXIT()
  125.     EndIf
  126.    WEnd
  127.   Case $Button3
  128.    If BitAND(GUICtrlRead($Radio5), $GUI_CHECKED) = $GUI_CHECKED Then
  129.     $dialog = FileOpenDialog("选择要处理的文件", @ScriptDir, "All Files(*.*)", 1 + 2 + 8, "", $Form1)
  130.     GUICtrlSetData($Input1, $dialog)
  131.     $file_need = GUICtrlRead($Input1)
  132.     If FileExists($file_need) Then
  133.      $Attrib = FileGetAttrib($file_need)
  134.      If StringInStr($Attrib, "R") Then
  135.       GUICtrlSetState($Checkbox8, $GUI_CHECKED)
  136.      Else
  137.       GUICtrlSetState($Checkbox8, $GUI_UNCHECKED)
  138.      EndIf
  139.      If StringInStr($Attrib, "A") Then
  140.       GUICtrlSetState($Checkbox9, $GUI_CHECKED)
  141.      Else
  142.       GUICtrlSetState($Checkbox9, $GUI_UNCHECKED)
  143.      EndIf
  144.      If StringInStr($Attrib, "S") Then
  145.       GUICtrlSetState($Checkbox10, $GUI_CHECKED)
  146.      Else
  147.       GUICtrlSetState($Checkbox10, $GUI_UNCHECKED)
  148.      EndIf
  149.      If StringInStr($Attrib, "H") Then
  150.       GUICtrlSetState($Checkbox11, $GUI_CHECKED)
  151.      Else
  152.       GUICtrlSetState($Checkbox11, $GUI_UNCHECKED)
  153.      EndIf
  154.      If StringInStr($Attrib, "N") Then
  155.       GUICtrlSetState($Checkbox12, $GUI_CHECKED)
  156.      Else
  157.       GUICtrlSetState($Checkbox12, $GUI_UNCHECKED)
  158.      EndIf
  159.      If StringInStr($Attrib, "O") Then
  160.       GUICtrlSetState($Checkbox13, $GUI_CHECKED)
  161.      Else
  162.       GUICtrlSetState($Checkbox13, $GUI_UNCHECKED)
  163.      EndIf
  164.      If StringInStr($Attrib, "T") Then
  165.       GUICtrlSetState($Checkbox14, $GUI_CHECKED)
  166.      Else
  167.       GUICtrlSetState($Checkbox14, $GUI_UNCHECKED)
  168.      EndIf
  169.     EndIf
  170.    Else
  171.     Do
  172.      $dialog = FileSelectFolder("选择要处理的文件夹", "", "", @ScriptDir, $Form1)
  173.      If StringLen($dialog) = 3 Then
  174.       MsgBox(0 + 16, "错误", "不能对磁盘进行操作", "", $Form1)
  175.       ExitLoop
  176.      EndIf
  177.      GUICtrlSetData($Input1, $dialog)
  178.      $folder_need = GUICtrlRead($Input1)
  179.      If FileExists($folder_need) Then
  180.       $Attrib = FileGetAttrib($folder_need)
  181.       If StringInStr($Attrib, "R") Then
  182.        GUICtrlSetState($Checkbox8, $GUI_CHECKED)
  183.       Else
  184.        GUICtrlSetState($Checkbox8, $GUI_UNCHECKED)
  185.       EndIf
  186.       If StringInStr($Attrib, "A") Then
  187.        GUICtrlSetState($Checkbox9, $GUI_CHECKED)
  188.       Else
  189.        GUICtrlSetState($Checkbox9, $GUI_UNCHECKED)
  190.       EndIf
  191.       If StringInStr($Attrib, "S") Then
  192.        GUICtrlSetState($Checkbox10, $GUI_CHECKED)
  193.       Else
  194.        GUICtrlSetState($Checkbox10, $GUI_UNCHECKED)
  195.       EndIf
  196.       If StringInStr($Attrib, "H") Then
  197.        GUICtrlSetState($Checkbox11, $GUI_CHECKED)
  198.       Else
  199.        GUICtrlSetState($Checkbox11, $GUI_UNCHECKED)
  200.       EndIf
  201.       If StringInStr($Attrib, "N") Then
  202.        GUICtrlSetState($Checkbox12, $GUI_CHECKED)
  203.       Else
  204.        GUICtrlSetState($Checkbox12, $GUI_UNCHECKED)
  205.       EndIf
  206.       If StringInStr($Attrib, "O") Then
  207.        GUICtrlSetState($Checkbox13, $GUI_CHECKED)
  208.       Else
  209.        GUICtrlSetState($Checkbox13, $GUI_UNCHECKED)
  210.       EndIf
  211.       If StringInStr($Attrib, "T") Then
  212.        GUICtrlSetState($Checkbox14, $GUI_CHECKED)
  213.       Else
  214.        GUICtrlSetState($Checkbox14, $GUI_UNCHECKED)
  215.       EndIf
  216.      EndIf
  217.     Until StringLen($dialog) <> 3
  218.    EndIf
  219.   Case $Button4
  220.    While 1
  221.     If BitAND(GUICtrlRead($Checkbox8), $GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($Checkbox9), $GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($Checkbox10), $GUI_UNCHECKED) = $GUI_UNCHECKED _
  222.       And BitAND(GUICtrlRead($Checkbox11), $GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($Checkbox12), $GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($Checkbox13), $GUI_UNCHECKED) = $GUI_UNCHECKED _
  223.       And BitAND(GUICtrlRead($Checkbox14), $GUI_UNCHECKED) = $GUI_UNCHECKED Then
  224.      $msg = MsgBox(0 + 48, "提示", "你未选择任何项目!", "", $Form1)
  225.      If $msg = 1 Then ExitLoop
  226.     EndIf
  227.     If BitAND(GUICtrlRead($Radio3), $GUI_CHECKED) = $GUI_CHECKED Then
  228.      SingleAddAttrib()
  229.      MsgBox(0, "完成", "增加属性成功完成", "", $Form1)
  230.      AdlibUnRegister("Check")
  231.      GUICtrlSetData($Input1, "")
  232.      AdlibRegister("Check",800)
  233.      SetAttrib()
  234.      ExitLoop
  235.     Else
  236.      SingleDelAttrib()
  237.      MsgBox(0, "完成", "删除属性成功完成", "", $Form1)
  238.      AdlibUnRegister("Check")
  239.      GUICtrlSetData($Input1, "")
  240.      AdlibRegister("Check",800)
  241.      SetAttrib()
  242.      ExitLoop
  243.     EndIf
  244.    WEnd
  245.  EndSwitch
  246. WEnd
  247. Func _EXIT()
  248.  Exit
  249. EndFunc   ;==>_EXIT
  250. Func GroupAddAttrib()
  251.  If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
  252.   For $i = 1 To $array[0]
  253.    If $array[$i] = @ScriptName Then ContinueLoop
  254.    FileSetAttrib($array[$i], "+" & $READONLY)
  255.    If @error Then
  256.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  257.     ContinueLoop
  258.    EndIf
  259.   Next
  260.  EndIf
  261.  If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then
  262.   For $i = 1 To $array[0]
  263.    If $array[$i] = @ScriptName Then ContinueLoop
  264.    FileSetAttrib($array[$i], "+" & $ARCHIVE)
  265.    If @error Then
  266.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  267.     ContinueLoop
  268.    EndIf
  269.   Next
  270.  EndIf
  271.  If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then
  272.   For $i = 1 To $array[0]
  273.    If $array[$i] = @ScriptName Then ContinueLoop
  274.    FileSetAttrib($array[$i], "+" & $SYSTEM)
  275.    If @error Then
  276.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  277.     ContinueLoop
  278.    EndIf
  279.   Next
  280.  EndIf
  281.  If BitAND(GUICtrlRead($Checkbox4), $GUI_CHECKED) = $GUI_CHECKED Then
  282.   For $i = 1 To $array[0]
  283.    If $array[$i] = @ScriptName Then ContinueLoop
  284.    FileSetAttrib($array[$i], "+" & $HIDE)
  285.    If @error Then
  286.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  287.     ContinueLoop
  288.    EndIf
  289.   Next
  290.  EndIf
  291.  If BitAND(GUICtrlRead($Checkbox5), $GUI_CHECKED) = $GUI_CHECKED Then
  292.   For $i = 1 To $array[0]
  293.    If $array[$i] = @ScriptName Then ContinueLoop
  294.    FileSetAttrib($array[$i], "+" & $NORMAL)
  295.    If @error Then
  296.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  297.     ContinueLoop
  298.    EndIf
  299.   Next
  300.  EndIf
  301.  If BitAND(GUICtrlRead($Checkbox6), $GUI_CHECKED) = $GUI_CHECKED Then
  302.   For $i = 1 To $array[0]
  303.    If $array[$i] = @ScriptName Then ContinueLoop
  304.    FileSetAttrib($array[$i], "+" & $OFFLINE)
  305.    If @error Then
  306.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  307.     ContinueLoop
  308.    EndIf
  309.   Next
  310.  EndIf
  311.  If BitAND(GUICtrlRead($Checkbox7), $GUI_CHECKED) = $GUI_CHECKED Then
  312.   For $i = 1 To $array[0]
  313.    If $array[$i] = @ScriptName Then ContinueLoop
  314.    FileSetAttrib($array[$i], "+" & $TEMPORARY)
  315.    If @error Then
  316.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  317.     ContinueLoop
  318.    EndIf
  319.   Next
  320.  EndIf
  321. EndFunc   ;==>GroupAddAttrib
  322. Func GroupDelAttrib()
  323.  If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
  324.   For $i = 1 To $array[0]
  325.    If $array[$i] = @ScriptName Then ContinueLoop
  326.    FileSetAttrib($array[$i], "-" & $READONLY)
  327.    If @error Then
  328.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  329.     ContinueLoop
  330.    EndIf
  331.   Next
  332.  EndIf
  333.  If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then
  334.   For $i = 1 To $array[0]
  335.    If $array[$i] = @ScriptName Then ContinueLoop
  336.    FileSetAttrib($array[$i], "-" & $ARCHIVE)
  337.    If @error Then
  338.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  339.     ContinueLoop
  340.    EndIf
  341.   Next
  342.  EndIf
  343.  If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then
  344.   For $i = 1 To $array[0]
  345.    If $array[$i] = @ScriptName Then ContinueLoop
  346.    FileSetAttrib($array[$i], "-" & $SYSTEM)
  347.    If @error Then
  348.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  349.     ContinueLoop
  350.    EndIf
  351.   Next
  352.  EndIf
  353.  If BitAND(GUICtrlRead($Checkbox4), $GUI_CHECKED) = $GUI_CHECKED Then
  354.   For $i = 1 To $array[0]
  355.    If $array[$i] = @ScriptName Then ContinueLoop
  356.    FileSetAttrib($array[$i], "-" & $HIDE)
  357.    If @error Then
  358.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  359.     ContinueLoop
  360.    EndIf
  361.   Next
  362.  EndIf
  363.  If BitAND(GUICtrlRead($Checkbox5), $GUI_CHECKED) = $GUI_CHECKED Then
  364.   For $i = 1 To $array[0]
  365.    If $array[$i] = @ScriptName Then ContinueLoop
  366.    FileSetAttrib($array[$i], "-" & $NORMAL)
  367.    If @error Then
  368.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  369.     ContinueLoop
  370.    EndIf
  371.   Next
  372.  EndIf
  373.  If BitAND(GUICtrlRead($Checkbox6), $GUI_CHECKED) = $GUI_CHECKED Then
  374.   For $i = 1 To $array[0]
  375.    If $array[$i] = @ScriptName Then ContinueLoop
  376.    FileSetAttrib($array[$i], "-" & $OFFLINE)
  377.    If @error Then
  378.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  379.     ContinueLoop
  380.    EndIf
  381.   Next
  382.  EndIf
  383.  If BitAND(GUICtrlRead($Checkbox7), $GUI_CHECKED) = $GUI_CHECKED Then
  384.   For $i = 1 To $array[0]
  385.    If $array[$i] = @ScriptName Then ContinueLoop
  386.    FileSetAttrib($array[$i], "-" & $TEMPORARY)
  387.    If @error Then
  388.     MsgBox(0 + 16, "提示", "为" & $array[$i] & "设置属性错误")
  389.     ContinueLoop
  390.    EndIf
  391.   Next
  392.  EndIf
  393. EndFunc   ;==>GroupDelAttrib
  394. Func SingleAddAttrib()
  395.  $file = GUICtrlRead($Input1)
  396.  If BitAND(GUICtrlRead($Checkbox8), $GUI_CHECKED) = $GUI_CHECKED Then
  397.   FileSetAttrib($file, "+" & $READONLY)
  398.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  399.  EndIf
  400.  If BitAND(GUICtrlRead($Checkbox9), $GUI_CHECKED) = $GUI_CHECKED Then
  401.   FileSetAttrib($file, "+" & $ARCHIVE)
  402.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  403.  EndIf
  404.  If BitAND(GUICtrlRead($Checkbox10), $GUI_CHECKED) = $GUI_CHECKED Then
  405.   FileSetAttrib($file, "+" & $SYSTEM)
  406.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  407.  EndIf
  408.  If BitAND(GUICtrlRead($Checkbox11), $GUI_CHECKED) = $GUI_CHECKED Then
  409.   FileSetAttrib($file, "+" & $HIDE)
  410.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  411.  EndIf
  412.  If BitAND(GUICtrlRead($Checkbox12), $GUI_CHECKED) = $GUI_CHECKED Then
  413.   FileSetAttrib($file, "+" & $NORMAL)
  414.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  415.  EndIf
  416.  If BitAND(GUICtrlRead($Checkbox13), $GUI_CHECKED) = $GUI_CHECKED Then
  417.   FileSetAttrib($file, "+" & $OFFLINE)
  418.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  419.  EndIf
  420.  If BitAND(GUICtrlRead($Checkbox14), $GUI_CHECKED) = $GUI_CHECKED Then
  421.   FileSetAttrib($file, "+" & $TEMPORARY)
  422.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  423.  EndIf
  424. EndFunc   ;==>SingleAddAttrib
  425. Func SingleDelAttrib()
  426.  $file = GUICtrlRead($Input1)
  427.  If BitAND(GUICtrlRead($Checkbox8), $GUI_CHECKED) = $GUI_CHECKED Then
  428.   FileSetAttrib($file, "-" & $READONLY)
  429.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  430.  EndIf
  431.  If BitAND(GUICtrlRead($Checkbox9), $GUI_CHECKED) = $GUI_CHECKED Then
  432.   FileSetAttrib($file, "-" & $ARCHIVE)
  433.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  434.  EndIf
  435.  If BitAND(GUICtrlRead($Checkbox10), $GUI_CHECKED) = $GUI_CHECKED Then
  436.   FileSetAttrib($file, "-" & $SYSTEM)
  437.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  438.  EndIf
  439.  If BitAND(GUICtrlRead($Checkbox11), $GUI_CHECKED) = $GUI_CHECKED Then
  440.   FileSetAttrib($file, "-" & $HIDE)
  441.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  442.  EndIf
  443.  If BitAND(GUICtrlRead($Checkbox12), $GUI_CHECKED) = $GUI_CHECKED Then
  444.   FileSetAttrib($file, "-" & $NORMAL)
  445.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  446.  EndIf
  447.  If BitAND(GUICtrlRead($Checkbox13), $GUI_CHECKED) = $GUI_CHECKED Then
  448.   FileSetAttrib($file, "-" & $OFFLINE)
  449.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  450.  EndIf
  451.  If BitAND(GUICtrlRead($Checkbox14), $GUI_CHECKED) = $GUI_CHECKED Then
  452.   FileSetAttrib($file, "-" & $TEMPORARY)
  453.   If @error Then MsgBox(0 + 16, "提示", "为" & $file & "设置属性错误")
  454.  EndIf
  455. EndFunc   ;==>SingleDelAttrib
  456. Func SetAttrib()
  457.  If BitAND(GUICtrlRead($Checkbox8), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($Checkbox8, $GUI_UNCHECKED)
  458.  If BitAND(GUICtrlRead($Checkbox9), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($Checkbox9, $GUI_UNCHECKED)
  459.  If BitAND(GUICtrlRead($Checkbox10), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($Checkbox10, $GUI_UNCHECKED)
  460.  If BitAND(GUICtrlRead($Checkbox11), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($Checkbox11, $GUI_UNCHECKED)
  461.  If BitAND(GUICtrlRead($Checkbox12), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($Checkbox12, $GUI_UNCHECKED)
  462.  If BitAND(GUICtrlRead($Checkbox13), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($Checkbox13, $GUI_UNCHECKED)
  463.  If BitAND(GUICtrlRead($Checkbox14), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($Checkbox14, $GUI_UNCHECKED)
  464.  
  465.  GUICtrlSetState($Checkbox8, $GUI_ENABLE)
  466.  GUICtrlSetState($Checkbox9, $GUI_ENABLE)
  467.  GUICtrlSetState($Checkbox10, $GUI_ENABLE)
  468.  GUICtrlSetState($Checkbox11, $GUI_ENABLE)
  469.  GUICtrlSetState($Checkbox12, $GUI_ENABLE)
  470.  GUICtrlSetState($Checkbox13, $GUI_ENABLE)
  471.  GUICtrlSetState($Checkbox14, $GUI_ENABLE)
  472. EndFunc   ;==>SetAttrib
  473. Func Check()
  474.  $file_check = GUICtrlRead($Input1)
  475.  $Attrib1 = FileGetAttrib($file_check)
  476.  If GUICtrlRead($Input1) <> "" Then
  477.   If BitAND(GUICtrlRead($Radio3), $GUI_CHECKED) = $GUI_CHECKED Then
  478.    If StringInStr($Attrib1, 'R') Then
  479.     GUICtrlSetState($Checkbox8, $GUI_DISABLE)
  480.    Else
  481.     GUICtrlSetState($Checkbox8, $GUI_ENABLE)
  482.    EndIf
  483.    If StringInStr($Attrib1, 'A') Then
  484.     GUICtrlSetState($Checkbox9, $GUI_DISABLE)
  485.    Else
  486.     GUICtrlSetState($Checkbox9, $GUI_ENABLE)
  487.    EndIf
  488.    If StringInStr($Attrib1, 'S') Then
  489.     GUICtrlSetState($Checkbox10, $GUI_DISABLE)
  490.    Else
  491.     GUICtrlSetState($Checkbox10, $GUI_ENABLE)
  492.    EndIf
  493.    If StringInStr($Attrib1, 'H') Then
  494.     GUICtrlSetState($Checkbox11, $GUI_DISABLE)
  495.    Else
  496.     GUICtrlSetState($Checkbox11, $GUI_ENABLE)
  497.    EndIf
  498.    If StringInStr($Attrib1, 'N') Then
  499.     GUICtrlSetState($Checkbox12, $GUI_DISABLE)
  500.    Else
  501.     GUICtrlSetState($Checkbox12, $GUI_ENABLE)
  502.    EndIf
  503.    If StringInStr($Attrib1, 'O') Then
  504.     GUICtrlSetState($Checkbox13, $GUI_DISABLE)
  505.    Else
  506.     GUICtrlSetState($Checkbox13, $GUI_ENABLE)
  507.    EndIf
  508.    If StringInStr($Attrib1, 'T') Then
  509.     GUICtrlSetState($Checkbox14, $GUI_DISABLE)
  510.    Else
  511.     GUICtrlSetState($Checkbox14, $GUI_ENABLE)
  512.    EndIf
  513.   Else
  514.    If Not StringInStr($Attrib1, 'R') Then
  515.     GUICtrlSetState($Checkbox8, $GUI_DISABLE)
  516.    Else
  517.     GUICtrlSetState($Checkbox8, $GUI_ENABLE)
  518.    EndIf
  519.    If Not StringInStr($Attrib1, 'A') Then
  520.     GUICtrlSetState($Checkbox9, $GUI_DISABLE)
  521.    Else
  522.     GUICtrlSetState($Checkbox9, $GUI_ENABLE)
  523.    EndIf
  524.    If Not StringInStr($Attrib1, 'S') Then
  525.     GUICtrlSetState($Checkbox10, $GUI_DISABLE)
  526.    Else
  527.     GUICtrlSetState($Checkbox10, $GUI_ENABLE)
  528.    EndIf
  529.    If Not StringInStr($Attrib1, 'H') Then
  530.     GUICtrlSetState($Checkbox11, $GUI_DISABLE)
  531.    Else
  532.     GUICtrlSetState($Checkbox11, $GUI_ENABLE)
  533.    EndIf
  534.    If Not StringInStr($Attrib1, 'N') Then
  535.     GUICtrlSetState($Checkbox12, $GUI_DISABLE)
  536.    Else
  537.     GUICtrlSetState($Checkbox12, $GUI_ENABLE)
  538.    EndIf
  539.    If Not StringInStr($Attrib1, 'O') Then
  540.     GUICtrlSetState($Checkbox13, $GUI_DISABLE)
  541.    Else
  542.     GUICtrlSetState($Checkbox13, $GUI_ENABLE)
  543.    EndIf
  544.    If Not StringInStr($Attrib1, 'T') Then
  545.     GUICtrlSetState($Checkbox14, $GUI_DISABLE)
  546.    Else
  547.     GUICtrlSetState($Checkbox14, $GUI_ENABLE)
  548.    EndIf
  549.   EndIf
  550.  EndIf
  551. EndFunc   ;==>Check


下载地址:
http://u.115.com/file/f5566104f9
批量或单个属性设置助手.7z
附件： 批量或单个属性设置助手.7z (381 K) 下载次数:93
本帖最近评分记录：
  • 无痕币:+50(雨过心晴) 辛苦了！
  • 无痕币:+50(勇者无敌) 原创内容
  • 无痕币:+50(realqwh) 很不错，建议在程序说明 ..
    • 无限追求，超越自我！
    来自： 评分选定 顶端
    回复 引用 评分 分享
    千山同一月 万户尽皆春 千江有水千江月 万里无云万里天
    级别: 总版主

    作者资料 发送短消息
    UID: 998
    精华: 0
    发帖: 605280
    威望: 535140 点
    无痕币: 1823 WHB
    贡献值: 0 点
    在线时间: 66371(时)
    注册时间: 2008-12-25
    最后登录: 2025-01-15
    1  发表于: 2013-09-05 16:05｜请将IE368导航设置为首页，支持论坛
    全看 | 小 中 大

    这个用不上的
    来自： 评分选定 顶端
    回复 引用 评分 分享
    千山同一月 万户尽皆春 千江有水千江月 万里无云万里天
    级别: 总版主

    作者资料 发送短消息
    UID: 998
    精华: 0
    发帖: 605280
    威望: 535140 点
    无痕币: 1823 WHB
    贡献值: 0 点
    在线时间: 66371(时)
    注册时间: 2008-12-25
    最后登录: 2025-01-15
    2  发表于: 2016-03-24 08:26｜请将IE368导航设置为首页，支持论坛
    全看 | 小 中 大

    Re:属性设置助手（批量或单个处理)  By 风无忌

    谢谢分享了。
    来自： 评分选定 顶端
    回复 引用 评分 分享
    千山同一月 万户尽皆春 千江有水千江月 万里无云万里天
    级别: 总版主

    作者资料 发送短消息
    UID: 998
    精华: 0
    发帖: 605280
    威望: 535140 点
    无痕币: 1823 WHB
    贡献值: 0 点
    在线时间: 66371(时)
    注册时间: 2008-12-25
    最后登录: 2025-01-15
    3  发表于: 2017-05-31 08:40｜请将IE368导航设置为首页，支持论坛
    全看 | 小 中 大

    Re:属性设置助手（批量或单个处理)  By 风无忌

    这个可以看看，了解一下。
    来自： 评分选定 顶端
    回复 引用 评分 分享
    上一主题下一主题
     秋无痕论坛 » 『秋无痕原创作品发布』
    Total 0.091583(s) query 5, Time now is:02-05 20:53, Gzip enabled 粤ICP备07514325号-1
    Powered by PHPWind v7.3.2 Certificate Code © 2003-13 秋无痕论坛