• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-快速建立IE图标(支持XP/Wind10)

AutoIT3 奇跡の海 1年前 (2017-11-04) 426次浏览 已收录 0个评论 扫描二维码

代码简介

AutoIt3(au3)源码-快速建立IE图标(支持XP/Wind10)
快速帮你建立IE本身不带右删除,快速删除IE图标

AU3源码

#NoTrayIcon
#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\..\重装系统\ICO图标\IE9-Windows7-x64_2001.ico
#AutoIt3Wrapper_outfile=C:\Users\Administrator\Desktop\桌面32位IE.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=桌面32位IE
#AutoIt3Wrapper_Res_Fileversion=15.6.6.1
#AutoIt3Wrapper_Res_LegalCopyright=QQ:411933069
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ACN_MISC.au3>

If @OSVersion = 'WIN_XP' Or @OSVersion = 'WIN_2003' Or @OSVersion = 'WIN_2000' Then
MsgBox(0, '温馨提示', '本程序不支持该操作系统!5秒后退出!', 5)
Exit
EndIf
Local $var = RegRead('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', '')
If $var = 'Internet Explorer' Then
Local $IE = MsgBox(1, '温馨提示', '您的系统已经建立了桌面IE图标!' & @CRLF & '点【确定】删除原有图标重新建立桌面IE图标,' & @CRLF & '点【取消】清除原有桌面IE图标并退出!')
If $IE = 1 Then
Del()
If @OSArch = 'X86' Then
X86()
Else
X64()
EndIf
Else
Del()
EndIf
_RefreshIcon()
Exit
Else
If @OSArch = 'X86' Then
X86()
Else
X64()
EndIf
_RefreshIcon()
Exit
EndIf


Func X86()
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', '', 'REG_SZ', 'Internet Explorer')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', 'InfoTip', 'REG_SZ', '@C:\\Windows\\system32\\zh-CN\\ieframe.dll.mui,-881')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', 'LocalizedString', 'REG_SZ', '@C:\\Windows\\system32\\zh-CN\\ieframe.dll.mui,-881')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\DefaultIcon', '', 'REG_SZ', 'C:\\Windows\\system32\\ieframe.dll,-190')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\NoAddOns')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\NoAddOns', '', 'REG_SZ', '在没有加载项的情况下启动(&N)')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\NoAddOns\Command', '', 'REG_SZ', '"C:\\Program Files\\Internet Explorer\\iexplore.exe" about:NoAdd-ons')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\Open', '', 'REG_SZ', '打开主页(&H)')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\Open\Command', '', 'REG_SZ', '"C:\\Program Files\\Internet Explorer\\iexplore.exe"')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\Properties', '', 'REG_SZ', '属性(&R)')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\Properties\Command', '', 'REG_SZ', 'Rundll32.exe Shell32.dll,Control_RunDLL Inetcpl.cpl')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\ShellFolder', 'Attributes', 'REG_DWORD', 'dword:00000030')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\ShellFolder', 'HideAsDeletePerUser', 'REG_SZ', '')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\ShellFolder', 'HideFolderVerbs', 'REG_SZ', '')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\ShellFolder', 'HideOnDesktopPerUser', 'REG_SZ', '')
RegWrite('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\ShellFolder', 'WantsParseDisplayName', 'REG_SZ', '')
RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', '', 'REG_SZ', 'Internet Explorer')
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', '', 'REG_SZ', 'Windows Media')
MsgBox(0, '温馨提示', '你使用的是【32】位操作系统' & @CRLF & '桌面【Internet Explorer】图标建立成功!', 3)
EndFunc ;==>X86

Func X64()
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', '', 'REG_SZ', 'Internet Explorer')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', 'InfoTip', 'REG_SZ', '@C:\\Windows\\system32\\zh-CN\\ieframe.dll.mui,-881')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', 'LocalizedString', 'REG_SZ', '@C:\\Windows\\system32\\zh-CN\\ieframe.dll.mui,-881')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\DefaultIcon', '', 'REG_SZ', 'C:\\Windows\\system32\\ieframe.dll,-190')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\NoAddOns')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\NoAddOns', '', 'REG_SZ', '在没有加载项的情况下启动(&N)')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\NoAddOns\Command', '', 'REG_SZ', '"C:\\Program Files (x86)\\Internet Explorer\\iexplore.exe" about:NoAdd-ons')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\Open', '', 'REG_SZ', '打开主页(&H)')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\Open\Command', '', 'REG_SZ', '"C:\\Program Files (x86)\\Internet Explorer\\iexplore.exe"')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\Properties', '', 'REG_SZ', '属性(&R)')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\Shell\Properties\Command', '', 'REG_SZ', 'Rundll32.exe Shell32.dll,Control_RunDLL Inetcpl.cpl')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\ShellFolder', 'Attributes', 'REG_DWORD', 'dword:00000030')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\ShellFolder', 'HideAsDeletePerUser', 'REG_SZ', '')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\ShellFolder', 'HideFolderVerbs', 'REG_SZ', '')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\ShellFolder', 'HideOnDesktopPerUser', 'REG_SZ', '')
RegWrite('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\ShellFolder', 'WantsParseDisplayName', 'REG_SZ', '')
RegWrite('HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', '', 'REG_SZ', 'Internet Explorer')
RegWrite('HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}', '', 'REG_SZ', 'Windows Media')
MsgBox(0, '温馨提示', '你使用的是【64】位操作系统' & @CRLF & '桌面【Internet Explorer】图标建立成功!', 3)
EndFunc ;==>X64

Func Del()
If @OSArch = 'X86' Then
RegDelete('HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}')
RegDelete('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}')
RegDelete('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}')
Else
RegDelete('HKEY_CLASSES_ROOT64\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}')
RegDelete('HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}')
RegDelete('HKEY_CURRENT_USER64\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}')
EndIf
EndFunc ;==>Del

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(au3)源码-快速建立IE图标(支持XP/Wind10)!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址