查看完整版本: [-- 一键删除/恢复快捷方式图标小箭头 --]

秋无痕论坛 -> 『秋无痕原创作品发布』 -> 一键删除/恢复快捷方式图标小箭头 [打印本页] 登录 -> 注册 -> 回复主题 -> 发表主题

<<   1   2  >>  Pages: ( 2 total )

风无忌 2010-10-17 01:26

上图:

[attachment=87745]

功能如图了。。。

源码:

复制代码


  1. #Region AutoIt3Wrapper 预编译参数(常用参数)
    #AutoIt3Wrapper_Icon= D:\Program Files\autoit3\Aut2Exe\Icons\FOLDER.ico   ;图标,支持EXE,DLL,ICO
    #AutoIt3Wrapper_OutFile_Type=exe       ;文件类型
    #AutoIt3Wrapper_Compression=4        ;压缩等级
    #AutoIt3Wrapper_UseUPX=y          ;使用压缩
    #AutoIt3Wrapper_Res_Comment=Soft For Desktop lnks Management  By FengWuji               ;注释
    #AutoIt3Wrapper_Res_Description=Soft For Desktop lnks Management           ;详细信息
    #AutoIt3Wrapper_Res_FileVersion=1.0.0      ;文件版本
    ;#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p   ;自动更新版本
    #AutoIt3Wrapper_Res_LegalCopyright=  风无忌           ;版权
    ;#AutoIt3Wrapper_Change2CUI=N                       ;修改输出的程序为CUI(控制台程序)
    #AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%  ;自定义资源段
    #AutoIt3Wrapper_Res_Field=Email|wzh880801@163.com        ;自定义资源段
    ;#AutoIt3Wrapper_Run_Tidy=                       ;脚本整理
    ;#AutoIt3Wrapper_Run_Obfuscator=            ;代码迷惑
    ;#AutoIt3Wrapper_Run_AU3Check=         ;语法检查
    ;#AutoIt3Wrapper_Run_Before=         ;运行前
    ;#AutoIt3Wrapper_Run_After=         ;运行后
    #EndRegion AutoIt3Wrapper 预编译参数(常用参数)
    #NoTrayIcon
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    #Region ### START Koda GUI section ### Form=
    Global $reg1 = "HKEY_CLASSES_ROOT\lnkfile"
    Global $reg2 = "IsShortCut"
    Global $reg3 = $reg1 & "\" & $reg2
    FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
    FileInstall("vista_style.skf", @TempDir & "\vista_style.skf", 1)
    $Dll = DllOpen(@TempDir & "\SkinCrafterDll.dll")
    $Form1 = GUICreate("快捷方式小箭头管理工具       By FengWuji", 382, 307, 336, 182)
    DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
    DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
    DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", @TempDir & "\vista_style.skf")
    DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Form1, "int", 25)
    DllCall($Dll, "int:cdecl", "ApplySkin")
    $Group1 = GUICtrlCreateGroup("操作选项", 24, 184, 337, 73)
    $Radio1 = GUICtrlCreateRadio("删除快捷方式小箭头", 40, 216, 137, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $Radio2 = GUICtrlCreateRadio("恢复快捷方式小箭头", 200, 216, 137, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("", 24, 136, 337, 41)
    $Label2 = GUICtrlCreateLabel("快捷方式小箭头已经删除", 127, 152, 136, 17)
    $Label1 = GUICtrlCreateLabel("系统当前状态:", 40, 152, 79, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button1 = GUICtrlCreateButton("执行(&O)", 80, 272, 73, 25)
    $Button2 = GUICtrlCreateButton("取消(&E)", 224, 272, 73, 25)
    $Label3 = GUICtrlCreateLabel("2010年10月15日 星期五 14时23分50秒", 100, 10, 218, 17)
    $Group3 = GUICtrlCreateGroup("操作系统信息", 24, 32, 337, 97)
    $Label4 = GUICtrlCreateLabel("操作系统:", 38, 56, 55, 17)
    $Label5 = GUICtrlCreateLabel("系统版本:", 38, 77, 55, 17)
    $Label6 = GUICtrlCreateLabel("Microsoft Windows Xp", 134, 56, 155, 17)
    $Label7 = GUICtrlCreateLabel("Service Pack 3", 133, 77, 155, 17)
    $Label8 = GUICtrlCreateLabel("         路漫漫其修远兮,吾将上下而求索。", 45, 102, 300, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    Time()
    CheckOS()
    Judge()
    AdlibRegister("Time", 1000)
    While 1
     $nMsg = GUIGetMsg()
     Switch $nMsg
      Case $GUI_EVENT_CLOSE
       Exit
      Case $Button2
       Exit
      Case $Button1
       ;以下2行代码诶测试所用
       ;MsgBox(0,GUICtrlGetState($Radio1),GUICtrlGetState($Radio2))
       ;Exit
       Local $var1 = GUICtrlGetState($Radio1)
       GUIDelete()
       If $var1 = 80 Then
        RegDelete($reg1, $reg2)
        If @error Then
         MsgBox(0 + 16, "操作失败", "程序3秒后自动退出!", 3)
         Exit
        EndIf
        ProcessClose("explorer.exe")
        Do
         Until Not ProcessExists("explorer.exe")
        Run(@SystemDir & "\explorer.exe", "", @SW_HIDE)
        Do
        Until ProcessExists("explorer.exe")
        MsgBox(0 + 48, "提示", "删除快捷方式小箭头成功!")
        Exit
       Else
        RegWrite($reg1, $reg2, "REG_SZ", "")
        If @error Then
         MsgBox(0 + 16, "操作失败", "程序3秒后自动退出!", 3)
         Exit
        EndIf
        ProcessClose("explorer.exe")
        Do
         Until Not ProcessExists('explorer.exe')
        Run(@SystemDir & "\explorer.exe", "", @SW_HIDE)
        Do
        Until ProcessExists("explorer.exe")
        MsgBox(0 + 48, "提示", "恢复快捷方式小箭头成功!")
        Exit
       EndIf
     EndSwitch
    WEnd
    ;时间函数
    Func Time()
     Local $wday
     Switch @WDAY
      Case 1
       $wday = "星期天"
      Case 2
       $wday = "星期一"
      Case 3
       $wday = "星期二"
      Case 4
       $wday = "星期三"
      Case 5
       $wday = "星期四"
      Case 6
       $wday = "星期五"
      Case 7
       $wday = "星期六"
     EndSwitch
     Local $time = @YEAR & "年" & @MON & "月" & @MDAY & "日" & " " & $wday & " " & @HOUR & ":" & @MIN & ":" & @SEC
     GUICtrlSetData($Label3, $time)
    EndFunc   ;==>Time
    Func Judge()
     Local $array[10], $i
     For $i = 0 To 9 Step 1
      $array[$i] = RegEnumVal($reg1, $i + 1)
      If @error <> 0 Then ExitLoop
     Next
     ;MsgBox(0,$array[0],$array[2])
     _ArraySort($array)
     ;_ArrayDisplay($array)
     Local $var = _ArrayBinarySearch($array, "IsShortCut")
     If Not @error Then
      GUICtrlSetData($Label2, "快捷方式小箭头未删除")
      GUICtrlSetState($Radio2, $GUI_DISABLE)
      GUICtrlSetState($Radio1, $GUI_CHECKED)
     Else
      GUICtrlSetData($Label2, "快捷方式小箭头已经删除")
      GUICtrlSetState($Radio1, $GUI_DISABLE)
      GUICtrlSetState($Radio2, $GUI_CHECKED)
     EndIf
    EndFunc   ;==>Judge
    Func CheckOS()
     Local $Osversion = @OSVersion
     Local $CSDVersion = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
     Local $CurrentVersion = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CurrentVersion")
     Switch $Osversion
      Case "WIN_2008R2"
       GUICtrlSetData($Label6, "Microsoft Windows 2008R2")
      Case "WIN_7"
       GUICtrlSetData($Label6, "Microsoft Windows 7")
      Case "WIN_2008"
       GUICtrlSetData($Label6, "Microsoft Windows 2008")
      Case "WIN_VISTA"
       GUICtrlSetData($Label6, "Microsoft Windows Vista")
      Case "WIN_2003"
       GUICtrlSetData($Label6, "Microsoft Windows 2003")
      Case "WIN_XP"
       GUICtrlSetData($Label6, "Microsoft Windows XP")
      Case "WIN_XPe"
       GUICtrlSetData($Label6, "Microsoft Windows XPE")
      Case "WIN_2000"
       GUICtrlSetData($Label6, "Microsoft Windows 2000")
     EndSwitch
     If $Osversion = "WIN_2008R2" Or $Osversion = "WIN_7" Or $Osversion = "WIN_2008" Or $Osversion = "WIN_VISTA" Then
      GUICtrlSetData($Label7, $CurrentVersion)
     Else
      GUICtrlSetData($Label7, $CSDVersion)
     EndIf
     If $Osversion = "WIN_2008R2" Or $Osversion = "WIN_7" Or $Osversion = "WIN_2008" Or $Osversion = "WIN_VISTA" Then
      GUICtrlSetData($Label8, "您的操作系统为" & @OSVersion & ",请确定用管理员身份运行本程序!")
     EndIf
    EndFunc   ;==>CheckOS



下载地址:http://u.115.com/file/f513519279

网侠 2013-04-04 12:37
方便,一般是改注册表

xingxi114 2013-04-17 11:50
学习了,复制收藏下

5201314 2013-04-19 13:21
好东东哦,感谢分享了

skyasp 2013-05-21 15:06
这个很实用

mjwde410 2013-05-22 08:23
收藏了,很实用的小工具

hexj9 2013-05-22 08:28
其实这个无所谓

皓轩你好 2013-05-22 08:40
不错的资源 谢谢分享  很好

午夜的探戈 2013-05-28 20:06
小箭头是不协调,微软德行,谢谢楼主

ccppyyyy 2013-05-29 12:01
完全看不懂呢

cdt888 2013-05-29 12:18
复制收藏下         

397174593 2013-05-30 15:49
最近遇到了这个问题,这个工具收了,多谢分享

dhl8020 2014-11-15 00:08
很方便的工具

maradona 2014-11-15 00:13
这个一键删除小箭头功能可有可无!

rip206 2014-11-15 13:08
这有点老了,不过也谢谢了

方便面头 2014-11-21 15:47
加油,支持支持

丁香雨丁香泪 2014-12-20 10:38
收藏了,很实用的小工具

hexj9 2014-12-21 07:03
不用这个了哦

jmsgch 2015-05-14 15:12
不错的资源 谢谢分享

jiszen 2015-06-02 09:10
下载试试,非常感谢。

oughouz 2015-06-24 17:06
学习了,复制收藏下

方便面头 2015-06-30 17:23
其实没什么分别

fjnplin 2015-06-30 17:45
谢谢分享  很好

chenran01 2015-07-08 05:51
看看。。。。。。

boyhk652 2015-07-13 02:24
謝謝大大無私的分享~~

hexj9 2015-07-13 08:56
看看这个了

jdy10295075 2015-07-19 13:27
     怎么没有更新?Windows7能用吗?

嘻嘻 2015-08-01 20:29
很实用的工具,感谢分享了

boyhk652 2015-10-01 03:55
非常感謝您的分享~~

boyhk652 2015-10-01 03:55
非常感謝您的分享~~

yejihua 2016-02-18 23:09
不错。 下载收藏备用。

kingzf 2016-02-19 11:22
不错喔,自己写的小程序!

yejihua 2016-02-20 23:10
没有效果呀

com60400 2016-03-20 11:26
收藏了,很实用的小工具

sxlcsh 2016-03-24 13:03
学习了,复制收藏下

royhao 2016-03-25 12:12
完全看不懂呢

ccxccx 2016-05-23 19:01
感谢分享了。。。。。。。。

tzg2008 2016-05-26 08:12
谢谢分享下载收藏

cat00199 2016-09-18 11:59
這個好用~可以把桌面上的圖案~用的更乾淨漂亮~謝謝分享

jmsgch 2016-10-03 18:13
感谢分享了

xrxsxfs 2016-10-06 12:25
这个方便,收藏一个,谢谢了。

luhuanfeng 2016-12-01 11:14
这个东西留着不错,方便快捷

zzzlxfe 2016-12-14 10:18
希望这个有用……用工具优化后小箭头恢复不了了233

jiahuaqiao 2016-12-14 10:28
进来看看支持一下

okdok 2016-12-14 15:27
竟然还提供了源码,够专业。

巴尔扎特 2017-02-20 11:11
哦,有源码公布呀,谢谢。

jhgao 2017-03-02 17:27
win7的有吗

老八 2017-04-22 06:55
不错,学习了,有问题的时候用上。

hexj9 2017-04-22 08:43
这个可以看看,了解一下。

zhaofa520 2017-08-26 22:39
非常感謝您的分享~~辛苦了~


查看完整版本: [-- 一键删除/恢复快捷方式图标小箭头 --] [-- top --]



Powered by PHPWind v7.3.2 Code © 2003-08 PHPWind
Time 3.160026 second(s),query:3 Gzip enabled

You can contact us