上一主题下一主题
«12345»Pages: 1/6     Go
主题 : 一键删除/恢复快捷方式图标小箭头
If you put your heart into it,nothing is impossible!
级别: 技术组成员

UID: 85553
精华: 2
发帖: 124
威望: 768 点
无痕币: 3522 WHB
贡献值: 0 点
在线时间: 171(时)
注册时间: 2009-06-27
最后登录: 2013-12-09

0 一键删除/恢复快捷方式图标小箭头

管理提醒: 本帖被 秋无痕 执行加亮操作(2010-10-17)
上图:




功能如图了。。。

源码:

复制代码
  1. #Region AutoIt3Wrapper 预编译参数(常用参数)
  2. #AutoIt3Wrapper_Icon= D:\Program Files\autoit3\Aut2Exe\Icons\FOLDER.ico   ;图标,支持EXE,DLL,ICO
  3. #AutoIt3Wrapper_OutFile_Type=exe       ;文件类型
  4. #AutoIt3Wrapper_Compression=4        ;压缩等级
  5. #AutoIt3Wrapper_UseUPX=y          ;使用压缩
  6. #AutoIt3Wrapper_Res_Comment=Soft For Desktop lnks Management  By FengWuji               ;注释
  7. #AutoIt3Wrapper_Res_Description=Soft For Desktop lnks Management           ;详细信息
  8. #AutoIt3Wrapper_Res_FileVersion=1.0.0      ;文件版本
  9. ;#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p   ;自动更新版本
  10. #AutoIt3Wrapper_Res_LegalCopyright=  风无忌           ;版权
  11. ;#AutoIt3Wrapper_Change2CUI=N                       ;修改输出的程序为CUI(控制台程序)
  12. #AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%  ;自定义资源段
  13. #AutoIt3Wrapper_Res_Field=Email|wzh880801@163.com        ;自定义资源段
  14. ;#AutoIt3Wrapper_Run_Tidy=                       ;脚本整理
  15. ;#AutoIt3Wrapper_Run_Obfuscator=            ;代码迷惑
  16. ;#AutoIt3Wrapper_Run_AU3Check=         ;语法检查
  17. ;#AutoIt3Wrapper_Run_Before=         ;运行前
  18. ;#AutoIt3Wrapper_Run_After=         ;运行后
  19. #EndRegion AutoIt3Wrapper 预编译参数(常用参数)
  20. #NoTrayIcon
  21. #include <ButtonConstants.au3>
  22. #include <GUIConstantsEx.au3>
  23. #include <StaticConstants.au3>
  24. #include <WindowsConstants.au3>
  25. #include <Array.au3>
  26. #Region ### START Koda GUI section ### Form=
  27. Global $reg1 = "HKEY_CLASSES_ROOT\lnkfile"
  28. Global $reg2 = "IsShortCut"
  29. Global $reg3 = $reg1 & "\" & $reg2
  30. FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
  31. FileInstall("vista_style.skf", @TempDir & "\vista_style.skf", 1)
  32. $Dll = DllOpen(@TempDir & "\SkinCrafterDll.dll")
  33. $Form1 = GUICreate("快捷方式小箭头管理工具       By FengWuji", 382, 307, 336, 182)
  34. DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
  35. DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
  36. DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", @TempDir & "\vista_style.skf")
  37. DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Form1, "int", 25)
  38. DllCall($Dll, "int:cdecl", "ApplySkin")
  39. $Group1 = GUICtrlCreateGroup("操作选项", 24, 184, 337, 73)
  40. $Radio1 = GUICtrlCreateRadio("删除快捷方式小箭头", 40, 216, 137, 17)
  41. GUICtrlSetState(-1, $GUI_CHECKED)
  42. $Radio2 = GUICtrlCreateRadio("恢复快捷方式小箭头", 200, 216, 137, 17)
  43. GUICtrlCreateGroup("", -99, -99, 1, 1)
  44. $Group2 = GUICtrlCreateGroup("", 24, 136, 337, 41)
  45. $Label2 = GUICtrlCreateLabel("快捷方式小箭头已经删除", 127, 152, 136, 17)
  46. $Label1 = GUICtrlCreateLabel("系统当前状态:", 40, 152, 79, 17)
  47. GUICtrlCreateGroup("", -99, -99, 1, 1)
  48. $Button1 = GUICtrlCreateButton("执行(&O)", 80, 272, 73, 25)
  49. $Button2 = GUICtrlCreateButton("取消(&E)", 224, 272, 73, 25)
  50. $Label3 = GUICtrlCreateLabel("2010年10月15日 星期五 14时23分50秒", 100, 10, 218, 17)
  51. $Group3 = GUICtrlCreateGroup("操作系统信息", 24, 32, 337, 97)
  52. $Label4 = GUICtrlCreateLabel("操作系统:", 38, 56, 55, 17)
  53. $Label5 = GUICtrlCreateLabel("系统版本:", 38, 77, 55, 17)
  54. $Label6 = GUICtrlCreateLabel("Microsoft Windows Xp", 134, 56, 155, 17)
  55. $Label7 = GUICtrlCreateLabel("Service Pack 3", 133, 77, 155, 17)
  56. $Label8 = GUICtrlCreateLabel("         路漫漫其修远兮,吾将上下而求索。", 45, 102, 300, 17)
  57. GUICtrlCreateGroup("", -99, -99, 1, 1)
  58. GUISetState(@SW_SHOW)
  59. #EndRegion ### END Koda GUI section ###
  60. Time()
  61. CheckOS()
  62. Judge()
  63. AdlibRegister("Time", 1000)
  64. While 1
  65.  $nMsg = GUIGetMsg()
  66.  Switch $nMsg
  67.   Case $GUI_EVENT_CLOSE
  68.    Exit
  69.   Case $Button2
  70.    Exit
  71.   Case $Button1
  72.    ;以下2行代码诶测试所用
  73.    ;MsgBox(0,GUICtrlGetState($Radio1),GUICtrlGetState($Radio2))
  74.    ;Exit
  75.    Local $var1 = GUICtrlGetState($Radio1)
  76.    GUIDelete()
  77.    If $var1 = 80 Then
  78.     RegDelete($reg1, $reg2)
  79.     If @error Then
  80.      MsgBox(0 + 16, "操作失败", "程序3秒后自动退出!", 3)
  81.      Exit
  82.     EndIf
  83.     ProcessClose("explorer.exe")
  84.     Do
  85.      Until Not ProcessExists("explorer.exe")
  86.     Run(@SystemDir & "\explorer.exe", "", @SW_HIDE)
  87.     Do
  88.     Until ProcessExists("explorer.exe")
  89.     MsgBox(0 + 48, "提示", "删除快捷方式小箭头成功!")
  90.     Exit
  91.    Else
  92.     RegWrite($reg1, $reg2, "REG_SZ", "")
  93.     If @error Then
  94.      MsgBox(0 + 16, "操作失败", "程序3秒后自动退出!", 3)
  95.      Exit
  96.     EndIf
  97.     ProcessClose("explorer.exe")
  98.     Do
  99.      Until Not ProcessExists('explorer.exe')
  100.     Run(@SystemDir & "\explorer.exe", "", @SW_HIDE)
  101.     Do
  102.     Until ProcessExists("explorer.exe")
  103.     MsgBox(0 + 48, "提示", "恢复快捷方式小箭头成功!")
  104.     Exit
  105.    EndIf
  106.  EndSwitch
  107. WEnd
  108. ;时间函数
  109. Func Time()
  110.  Local $wday
  111.  Switch @WDAY
  112.   Case 1
  113.    $wday = "星期天"
  114.   Case 2
  115.    $wday = "星期一"
  116.   Case 3
  117.    $wday = "星期二"
  118.   Case 4
  119.    $wday = "星期三"
  120.   Case 5
  121.    $wday = "星期四"
  122.   Case 6
  123.    $wday = "星期五"
  124.   Case 7
  125.    $wday = "星期六"
  126.  EndSwitch
  127.  Local $time = @YEAR & "年" & @MON & "月" & @MDAY & "日" & " " & $wday & " " & @HOUR & ":" & @MIN & ":" & @SEC
  128.  GUICtrlSetData($Label3, $time)
  129. EndFunc   ;==>Time
  130. Func Judge()
  131.  Local $array[10], $i
  132.  For $i = 0 To 9 Step 1
  133.   $array[$i] = RegEnumVal($reg1, $i + 1)
  134.   If @error <> 0 Then ExitLoop
  135.  Next
  136.  ;MsgBox(0,$array[0],$array[2])
  137.  _ArraySort($array)
  138.  ;_ArrayDisplay($array)
  139.  Local $var = _ArrayBinarySearch($array, "IsShortCut")
  140.  If Not @error Then
  141.   GUICtrlSetData($Label2, "快捷方式小箭头未删除")
  142.   GUICtrlSetState($Radio2, $GUI_DISABLE)
  143.   GUICtrlSetState($Radio1, $GUI_CHECKED)
  144.  Else
  145.   GUICtrlSetData($Label2, "快捷方式小箭头已经删除")
  146.   GUICtrlSetState($Radio1, $GUI_DISABLE)
  147.   GUICtrlSetState($Radio2, $GUI_CHECKED)
  148.  EndIf
  149. EndFunc   ;==>Judge
  150. Func CheckOS()
  151.  Local $Osversion = @OSVersion
  152.  Local $CSDVersion = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
  153.  Local $CurrentVersion = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CurrentVersion")
  154.  Switch $Osversion
  155.   Case "WIN_2008R2"
  156.    GUICtrlSetData($Label6, "Microsoft Windows 2008R2")
  157.   Case "WIN_7"
  158.    GUICtrlSetData($Label6, "Microsoft Windows 7")
  159.   Case "WIN_2008"
  160.    GUICtrlSetData($Label6, "Microsoft Windows 2008")
  161.   Case "WIN_VISTA"
  162.    GUICtrlSetData($Label6, "Microsoft Windows Vista")
  163.   Case "WIN_2003"
  164.    GUICtrlSetData($Label6, "Microsoft Windows 2003")
  165.   Case "WIN_XP"
  166.    GUICtrlSetData($Label6, "Microsoft Windows XP")
  167.   Case "WIN_XPe"
  168.    GUICtrlSetData($Label6, "Microsoft Windows XPE")
  169.   Case "WIN_2000"
  170.    GUICtrlSetData($Label6, "Microsoft Windows 2000")
  171.  EndSwitch
  172.  If $Osversion = "WIN_2008R2" Or $Osversion = "WIN_7" Or $Osversion = "WIN_2008" Or $Osversion = "WIN_VISTA" Then
  173.   GUICtrlSetData($Label7, $CurrentVersion)
  174.  Else
  175.   GUICtrlSetData($Label7, $CSDVersion)
  176.  EndIf
  177.  If $Osversion = "WIN_2008R2" Or $Osversion = "WIN_7" Or $Osversion = "WIN_2008" Or $Osversion = "WIN_VISTA" Then
  178.   GUICtrlSetData($Label8, "您的操作系统为" & @OSVersion & ",请确定用管理员身份运行本程序!")
  179.  EndIf
  180. EndFunc   ;==>CheckOS


下载地址:http://u.115.com/file/f513519279
[ 此帖被风无忌在2010-10-17 14:52重新编辑 ]
附件: Soft For Desktop lnks Management.haozip01.zip (196 K) 下载次数:456
附件: Soft For Desktop lnks Management.haozip02.zip (196 K) 下载次数:339
附件: Soft For Desktop lnks Management.haozip03.zip (196 K) 下载次数:347
附件: Soft For Desktop lnks Management.haozip04.zip (27 K) 下载次数:246
本帖最近评分记录:
  • 无痕币:+50(kk43) 原创内容
  • 无痕币:+50(勇者无敌) 感谢分享
  • 无痕币:+50(秋无痕) 原创内容
  • 无限追求,超越自我!
    级别: 二分秋色
    UID: 204714
    精华: 0
    发帖: 90
    威望: 251 点
    无痕币: 42 WHB
    贡献值: 0 点
    在线时间: 13(时)
    注册时间: 2013-02-01
    最后登录: 2017-11-19

    方便,一般是改注册表
    级别: 初声乍地
    UID: 205091
    精华: 0
    发帖: 9
    威望: 0 点
    无痕币: 18 WHB
    贡献值: 0 点
    在线时间: 0(时)
    注册时间: 2013-02-05
    最后登录: 2013-08-29

    学习了,复制收藏下
    http://www.xingxi114.com
    级别: 六行秋雁
    UID: 99415
    精华: 0
    发帖: 1256
    威望: 21158 点
    无痕币: 3062 WHB
    贡献值: 0 点
    在线时间: 277(时)
    注册时间: 2010-07-20
    最后登录: 2017-11-16

    好东东哦,感谢分享了
    级别: 二分秋色
    UID: 207736
    精华: 0
    发帖: 99
    威望: 213 点
    无痕币: 14 WHB
    贡献值: 0 点
    在线时间: 49(时)
    注册时间: 2013-03-14
    最后登录: 2016-05-22

    这个很实用
    级别: 四缕秋风
    UID: 177749
    精华: 0
    发帖: 207
    威望: 2164 点
    无痕币: 1020 WHB
    贡献值: 0 点
    在线时间: 39(时)
    注册时间: 2012-08-06
    最后登录: 2017-11-13

    收藏了,很实用的小工具
    千山同一月 万户尽皆春 千江有水千江月 万里无云万里天
    级别: 总版主

    UID: 998
    精华: 0
    发帖: 359050
    威望: 303840 点
    无痕币: 1337 WHB
    贡献值: 0 点
    在线时间: 34282(时)
    注册时间: 2008-12-25
    最后登录: 2017-11-19

    其实这个无所谓
    多多交流
    级别: 六行秋雁

    UID: 194945
    精华: 0
    发帖: 1143
    威望: 15473 点
    无痕币: 10776 WHB
    贡献值: 0 点
    在线时间: 365(时)
    注册时间: 2012-11-18
    最后登录: 2017-10-17

    不错的资源 谢谢分享  很好
    级别: 五分秋意
    UID: 107283
    精华: 0
    发帖: 312
    威望: 8596 点
    无痕币: 9037 WHB
    贡献值: 0 点
    在线时间: 128(时)
    注册时间: 2010-12-27
    最后登录: 2017-10-14

    回 楼主(风无忌) 的帖子

    小箭头是不协调,微软德行,谢谢楼主
    久仰秋无痕大名。
    这个人很懒......
    级别: 四缕秋风
    UID: 98289
    精华: 0
    发帖: 104
    威望: 2002 点
    无痕币: 236 WHB
    贡献值: 2 点
    在线时间: 66(时)
    注册时间: 2009-12-01
    最后登录: 2017-11-19

    完全看不懂呢
    上一主题下一主题
    «12345»Pages: 1/6     Go
    Total 0.102162(s) query 4, Time now is:11-19 22:18, Gzip enabled 粤ICP备07514325号-1
    Powered by PHPWind v7.3.2 Certificate Code © 2003-13 秋无痕论坛