Win7 快捷方式小箭头去除/还原工具

lujd0429 · 发表于 2012-3-30 22:22:58

本帖最后由 lujd0429 于 2012-9-28 14:23 编辑

本人学习AutoIt不久，用仅学会的一点皮毛做出了一个小软件，共享给大家使用！

源码+作品地址：

源码如下


#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Icon=logo.ico
#PRE_Outfile=C:\Users\LJD\Desktop\Win小箭头去除还原工具.exe
#PRE_Res_Comment=Win7小箭头去除\还原工具
#PRE_Res_Description=这是一个可以自由去除和还原Win7系统快捷方式小箭头的工具^_^
#PRE_Res_Fileversion=1.0.0.0
#PRE_Res_LegalCopyright=lujd0429(www.autoitx.com)
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstants.au3>
#include <Process.au3>
GUICREATE ( "Win7小箭头去除/还原工具" , 382 , 250 , - 1 , - 1 ) 
GUISETICON ( ".\logo.ico" ) 
GUISETBKCOLOR ( 16247543 ) 
$P = GUICTRLCREATEPIC ( ".\Pic.jpg" , 2 , 1 , 378 , 86 ) 
GUICTRLCREATEGROUP ( "" , 18 , 98 , 345 , 120 ) 
$BUTTON1 = GUICTRLCREATEBUTTON ( "去除小箭头" , 36 , 113 , 107 , 96 ) 
GUICTRLSETCURSOR ( - 1 , 0 ) 
$BUTTON2 = GUICTRLCREATEBUTTON ( "还原小箭头" , 238 , 113 , 107 , 96 ) 
GUICTRLSETCURSOR ( - 1 , 0 ) 
GUICTRLCREATEGROUP ( "" , - 99 , - 99 , 1 , 1 ) 
GUICTRLCREATELABEL ( "本软件由" , 18 , 224 , 48 , 40 ) 
$BUTTONTEXT = GUICTRLCREATELABEL ( "lujd0429" , 69 , 224 , 72 , 40 ) 
GUICTRLSETCOLOR ( - 1 , 16711680 ) 
GUICTRLSETCURSOR ( - 1 , 0 ) 
GUICTRLCREATELABEL ( "制作" , 120 , 224 , 45 , 40 ) 
GUICTRLCREATELABEL ( "2012年3月27日" , 283 , 224 , 99 , 40 ) 
GUISETSTATE ( @SW_SHOW ) 

$Path = "C:\Windows\Temp"
FileInstall(".\Pic.jpg",$Path&"\Pic.jpg",1)
FilesetAttrib($Path&"\Pic.jpg","+H",1)
if $p == 0 Then
   GUICTRLCREATEPIC ( $Path&"\Pic.jpg" , 2 , 1 , 378 , 86 ) 
   Endif
IF @OSARCH == "X86" THEN 
LOCAL $VAR = REGREAD ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" , "29" ) 
ELSE 
        LOCAL $VAR = REGREAD ( "HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" , "29" ) 
ENDIF 
IF ( $VAR == "" AND @ERROR ) THEN 
CONTROLDISABLE ( "Win7小箭头去除/还原工具" , "还原小箭头" , "Button3" ) 
ELSEIF @ERROR == 0 THEN 
CONTROLDISABLE ( "Win7小箭头去除/还原工具" , "去除小箭头" , "Button2" ) 
ENDIF 




WHILE 1 
$MSG = GUIGETMSG ( ) 
SELECT 
CASE $MSG = $BUTTONTEXT 
SHELLEXECUTE ( "http://www.autoitx.com/space-uid-7658831.html" ) 
CASE $MSG = $BUTTON1 
DELETE ( ) 
CASE $MSG = $BUTTON2 
RESET ( ) 
CASE $MSG = $GUI_EVENT_CLOSE 
$POS = WINGETPOS ( "Win7小箭头去除/还原工具" , "" ) 
WINMOVE ( "Win7小箭头去除/还原工具" , "" , 1490 , $POS [ 1 ] , $POS [ 2 ] , $POS [ 3 ] , 3 ) 
FileDelete($Path&"\Pic.jpg")
EXIT 
ENDSELECT 
WEND 




FUNC DELETE ( ) 
IF @OSARCH == "X86" THEN 
FILEINSTALL ( ".\Empty.ico" , "C:\Windows\Empty.ico" ) 
REGWRITE ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" , "29" , "REG_SZ" , "C:\Windows\Empty.ico,0" ) 
ELSE 
FILEINSTALL ( ".\Empty.ico" , "C:\Windows\Empty.ico" ) 
REGWRITE ( "HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" , "29" , "REG_SZ" , "C:\Windows\Empty.ico,0" ) 
ENDIF 
IF MSGBOX ( 0 , "提示" , "删除小箭头成功!" ) = 1 THEN 
PROCESSCLOSE ( "explorer.exe" )
 Sleep(90)
 IF NOT ( PROCESSEXISTS ( "explorer.exe" ) == 0 ) THEN 
 _RunDos("taskkill /f /im explorer.exe")         ; 此处用于检测并达到指定结束Explorer。exe的目的
  _RunDos("start explorer.exe") 
 Else 
RUN ( @SYSTEMDIR & "\explorer.exe" ) 
Endif
IF PROCESSEXISTS ( "explorer.exe" ) == 0 THEN 
 _RunDos("start explorer.exe")     
ENDIF 
ENDIF 
CONTROLENABLE ( "Win7小箭头去除/还原工具" , "还原小箭头" , "Button3" ) 
CONTROLDISABLE ( "Win7小箭头去除/还原工具" , "去除小箭头" , "Button2" ) 
ENDFUNC 

FUNC RESET ( ) 
FILEDELETE ( "C:\Windows\Empty.ico" ) 
IF @OSARCH == "X86" THEN 
REGDELETE ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" ) 
ELSE 
REGDELETE ( "HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" ) 
ENDIF 
IF MSGBOX ( 0 , "提示" , "恢复小箭头成功！" ) = 1 THEN 
 
PROCESSCLOSE ( "explorer.exe" ) 
IF NOT ( PROCESSEXISTS ( "explorer.exe" ) == 0 ) THEN         
    _RunDos("taskkill /f /im explorer.exe")        ; 此处用于检测并达到指定结束Explorer。exe的目的
    _RunDos("start explorer.exe") 
Else
    RUN ( @SYSTEMDIR & "\explorer.exe" ) 
Endif
IF PROCESSEXISTS ( "explorer.exe" ) == 0 THEN 
_RunDos("start explorer.exe") 
ENDIF 
ENDIF 
CONTROLENABLE ( "Win7小箭头去除/还原工具" , "去除小箭头" , "Button2" ) 
CONTROLDISABLE ( "Win7小箭头去除/还原工具" , "还原小箭头" , "Button3" ) 
ENDFUNC

80ren · 发表于 2012-3-31 00:52:31

支持LZ新作

lujd0429 · 发表于 2012-3-31 08:23:58

回复 2# 80ren

多谢支持！！呵呵

whitehead · 发表于 2012-3-31 22:08:17

支持LZ新作

地平线 · 发表于 2012-4-5 23:38:59

LZ能提供源码参考一下吗？现在学GUI界面，很多地方弄不懂。

461767057 · 发表于 2012-4-18 16:32:18

谢谢分享，试试了。

fjvip · 发表于 2012-4-24 19:31:54

希望能开源学习一下你的界面。

fjvip · 发表于 2012-4-24 19:32:19

希望能开源学习一下你的界面。

fjvip · 发表于 2012-4-24 19:32:19

希望能开源学习一下你的界面。

xyy0451 · 发表于 2012-4-30 06:35:37

行不行？前段时间下载一个，不好使。

lujd0429 · 发表于 2012-4-30 09:20:53

LZ能提供源码参考一下吗？现在学GUI界面，很多地方弄不懂。
地平线发表于 2012-4-5 23:38

不好意思上次没看到你的回复，现已帖源码！

lujd0429 · 发表于 2012-4-30 09:22:06

回复 9# fjvip

已贴源码！初学时所做写的不好！

lujd0429 · 发表于 2012-4-30 09:22:57

行不行？前段时间下载一个，不好使。
xyy0451 发表于 2012-4-30 06:35

试试不就知道了！

xyhqqaa · 发表于 2012-4-30 14:49:16

谢谢分享。。。

执迷不悟 · 发表于 2012-5-14 21:46:17

XP能用吗

		自动登录	找回密码
密码			加入

[原创] Win7 快捷方式小箭头去除/还原工具

本帖子中包含更多资源