电脑
编程工具
利用shell 函数启动cmd.exe 修改注册表来修改IE首页用到的函数 shell 下面列出具体实现语句 Dim okng1 As Long, okng2 As Longokng1 = Shell('cmd.exe /k reg add ''HKLM\SOFTWARE\Microsoft\Internet Explorer\MAIN'' /v ''Start Page'' /t REG_SZ /d 你的IE主页地址 /f &exit', vbHide)okng2 = Shell('cmd.exe /k reg add ''HKCU\Software\Microsoft\Internet Explorer\Main'' /v ''Start Page'' /t REG_SZ /d 你的IE主页地址 /f &exit', vbHide) 用的时候把你的IE主页地址改为你的主页地址
利用VBS访问注册表来修改IE主页 用到createobject 以下列出使用方法 set aaa=createobject('wscript.shell')REGPath='HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\main\Start Page' bb=aaa.regwrite(REGPath,'你的IE主页')set REGPath=nothingREGPath='HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\Internet Explorer\Main\Start Page'bb=aaa.regwrite(REGPath,'你的IE主页')wscript.quit 使用的时候把 你的IE主页 换位具体的网址
利用桌面新建快捷方式的方法修改IE主页 具体思路是 在桌面新建一个IE浏览器的快捷方式(名字为Internet Explorer),此快捷方式指向你想要设置的主页。然后隐藏真正的IE浏览器此时打开IE浏览器器的快捷方式进入的就是你设置的主页 新建快捷方式代码如下 Set Aaashell = CreateObject('Wscript.Shell')stringfile = Aaashell.SpecialFolders('desktop') & '\Internet Explorer.lnk'Set lnk = Aaashell.CreateShortcut(stringfile)lnk.TargetPath = Chr(34) & 'C:\Program Files\Internet Explorer\IEXPLORE.EXE' & Chr(34)lnk.Arguments = 你要设置的主页lnk.Description = ''lnk.SaveAaashell.Run 'cmd /c attrib +r ' & Chr(34) & stringfile & Chr(34), 0, 1Aaashell.Run 'cmd /C reg add ' & Chr(34) & 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel' & Chr(34) & ' /v {871C5380-42A0-1069-A2EA-08002B30309D} /t REG_DWORD /d 1 /F', 0, 1Aaashell.Run 'cmd /C reg add ' & Chr(34) & 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu' & Chr(34) & ' /v {871C5380-42A0-1069-A2EA-08002B30309D} /t REG_DWORD /d 1 /F', 0, 1strDesktop = Aaashell.SpecialFolders('Desktop')Aaashell.AppActivate strDesktopAaashell.SendKeys '{F5}' 以上是新建快捷方式的代码
利用VBS直接修改iE主页 实现代码如下 X是你设置的主页 Public Function vbsChangeShouYe(x As String) As Boolean '无返回值Dim aaashellSet aaashell = CreateObject('WScript.Shell')aaashell.RegWrite 'HKCR\.reg\', 'REGFILE'aaashell.RegWrite 'HKCU\Software\Microsoft\Internet Explorer\Main\Start Page', x, 'REG_SZ' '已修改 strComputer = '.'Set bbbReg = GetObject('winmgmts:\\' & strComputer & '\root\default:StdRegProv')strKeyPath = 'SOFTWARE\Microsoft\Internet Explorer\Main'ValueName = 'Start Page'strValue = xbbbReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue End Function
仅供参考
如果复制的代码由于格式原因不能使用,请参考下方图片,全部代码经过测试