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


上一主题下一主题
主题 : 一键删除/恢复快捷方式图标小箭头
复制链接 | 浏览器收藏 | 打印
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-17 01:26｜请将IE368导航设置为首页，支持论坛
全看 | 小 中 大

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

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




功能如图了。。。

源码：

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


下载地址：http://u.115.com/file/f513519279
[ 此帖被风无忌在2010-10-17 14:52重新编辑 ]
附件： Soft For Desktop lnks Management.haozip01.zip (196 K) 下载次数:512
附件： Soft For Desktop lnks Management.haozip02.zip (196 K) 下载次数:388
附件： Soft For Desktop lnks Management.haozip03.zip (196 K) 下载次数:397
附件： Soft For Desktop lnks Management.haozip04.zip (27 K) 下载次数:287
本帖最近评分记录：
  • 无痕币:+50(kk43) 原创内容
  • 无痕币:+50(勇者无敌) 感谢分享
  • 无痕币:+50(秋无痕) 原创内容
    • 无限追求，超越自我！
    来自： 评分选定 顶端
    回复 引用 评分 分享
    级别: 初声乍地
    作者资料 发送短消息
    UID: 268698
    精华: 0
    发帖: 4
    威望: 14 点
    无痕币: 13 WHB
    贡献值: 0 点
    在线时间: 0(时)
    注册时间: 2016-03-24
    最后登录: 2016-03-28
    1  发表于: 2016-03-24 13:03｜请将IE368导航设置为首页，支持论坛
    全看 | 小 中 大

    学习了，复制收藏下
    来自： 评分选定 顶端
    回复 引用 评分 分享
    上一主题下一主题
     秋无痕论坛 » 『秋无痕原创作品发布』
    Total 0.075981(s) query 6, Time now is:02-05 18:41, Gzip enabled 粤ICP备07514325号-1
    Powered by PHPWind v7.3.2 Certificate Code © 2003-13 秋无痕论坛