程序修改IE主页的方法（VB语言举例）

来源：互联网 2023-02-21 20:26:27 版权归原作者所有，如有侵权，请联系我们

当我们需要编程实现修改IE主页时，往往需要的不止一种方法(因为有些方法在不同的电脑环境下不能有效实现）需要到网上搜索对应代码。而搜索到的不是不能达到效果，就是重复的，浪费许多宝贵的时间，今天，我就把我在修改IE首页时所用到的方法，给大家列出来，给大家一个参考。由于我的才疏学浅，书写过程中难免出错。望发现错误的朋友能给与指正（lxw77320@163.com）

程序修改IE主页的方法（VB语言举例）

工具/原料

电脑
编程工具

方法/步骤

Windows API函数访问注册表修改ie主页

用到的函数有RegCreateKey，RegSetValueEx 读取并修改注册表下面列出VB 举例的一个函数

'API访问注册表修改ie主页-声明开始Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Const REG_SZ = 1

Const HKEY_CURRENT_USER = &H80000001

Const HKEY_LOCAL_MACHINE = &H80000002

'API访问注册表修改ie主页-声明结束

Public Function apiChangeIEShouye(x As String) As Boolean '返回true说明成功，返回false说明失败 x是要设置的主页

Dim hKey As Long, S As String, M As IntegerS = x '默认主页

M = Len(S) 1

Dim okng1, okng2, okng3, okng4 As Integer

okng1 =RegCreateKey(HKEY_LOCAL_MACHINE, "SoftwareMicrosoftInternet ExplorerMain", hKey) '用于读取键的句柄，方便下面函数调用

okng2 = RegSetValueEx(hKey, "Start Page", 0, REG_SZ, ByVal S, M) '设置主页，需要改动免杀

okng3 = RegCreateKey(HKEY_CURRENT_USER, "SOFTWAREMicrosoftInternet ExplorerMAIN", hKey)

okng4 = RegSetValueEx(hKey, "Start Page", 0, REG_SZ, ByVal S, M) '设置主页，需要改动免杀

If okng4 = 0 Then '这里只判断了设置状态apiChangeIEShouye = TrueElseapiChangeIEShouye = FalseEnd If

End Function

程序修改IE主页的方法（VB语言举例）

1相关内容非法爬取自百度经验

利用shell 函数启动cmd.exe 修改注册表来修改IE首页

用到的函数 shell 下面列出具体实现语句

Dim okng1 As Long, okng2 As Long

okng1 = Shell("cmd.exe /k reg add ""HKLMSOFTWAREMicrosoftInternet ExplorerMAIN"" /v ""Start Page"" /t REG_SZ /d你的IE主页地址 /f &exit", vbHide)

okng2 = Shell("cmd.exe /k reg add ""HKCUSoftwareMicrosoftInternet ExplorerMain"" /v ""Start Page"" /t REG_SZ /d 你的IE主页地址 /f &exit", vbHide)

用的时候把你的IE主页地址改为你的主页地址

程序修改IE主页的方法（VB语言举例）

利用VBS访问注册表来修改IE主页

用到createobject 以下列出使用方法

set aaa=createobject("wscript.shell")

REGPath="HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorermainStart Page"

bb=aaa.regwrite(REGPath,"你的IE主页")

set REGPath=nothing

REGPath="HKEY_CURRENT_USERSOFTWAREMICROSOFTInternet ExplorerMainStart Page"

bb=aaa.regwrite(REGPath,"你的IE主页")

wscript.quit

使用的时候把你的IE主页换位具体的网址

程序修改IE主页的方法（VB语言举例）

利用桌面新建快捷方式的方法修改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 FilesInternet ExplorerIEXPLORE.EXE" & Chr(34)

lnk.Arguments = 你要设置的主页

lnk.Description = ""

lnk.Save

Aaashell.Run "cmd /c attrib r "& Chr(34) & stringfile & Chr(34), 0, 1

Aaashell.Run "cmd /C reg add "& Chr(34) &"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerHideDesktopIconsNewStartPanel"& Chr(34) & " /v {871C5380-42A0-1069-A2EA-08002B30309D} /tREG_DWORD /d 1 /F", 0, 1

Aaashell.Run "cmd /C reg add "& Chr(34) &"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerHideDesktopIconsClassicStartMenu"& Chr(34) & " /v {871C5380-42A0-1069-A2EA-08002B30309D} /tREG_DWORD /d 1 /F", 0, 1

strDesktop = Aaashell.SpecialFolders("Desktop")

Aaashell.AppActivate strDesktop

Aaashell.SendKeys "{F5}"

以上是新建快捷方式的代码

程序修改IE主页的方法（VB语言举例）

利用VBS直接修改iE主页

实现代码如下

X是你设置的主页

Public Function vbsChangeShouYe(x As String) As Boolean '无返回值

Dim aaashell

Set aaashell = CreateObject("WScript.Shell")aaashell.RegWrite "HKCR.reg", "REGFILE"aaashell.RegWrite "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page", x, "REG_SZ"

'已修改

strComputer = "."

Set bbbReg = GetObject("winmgmts:" & strComputer & "rootdefault:StdRegProv")strKeyPath = "SOFTWAREMicrosoftInternet ExplorerMain"

ValueName = "Start Page"

strValue = x

bbbReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue

End Function

程序修改IE主页的方法（VB语言举例）

注意事项

仅供参考
如果复制的代码由于格式原因不能使用，请参考下方图片，全部代码经过测试

以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！

标签：操作系统程序修改方法语言

上一篇：友坚5260开发板如何利用SD自动升级镜像下一篇：友坚5260开发板如何USB升级镜像

程序修改IE主页的方法（VB语言举例）

工具/原料

方法/步骤

注意事项

热门文章

标签列表