Question

vb怎样设置或恢复ie为默认浏览器?

有时360成了默认浏览器，想把ie恢复成默认浏览器，怎样通过vb实现呢？

Answer 1

通过操作注册表可以实现
在模块中添加
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public 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
Public Const REG_SZ = 1
Public Const READ_CONTROL = &H20000
Public Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Public Const KEY_SET_VALUE = &H2
Public Const SYNCHRONIZE = &H100000
Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Public Const HKEY_CLASSES_ROOT = &H80000000

在窗体某一合件中(如按钮的单击)添加代码:

RegOpenKeyEx HKEY_LOCAL_MACHINE, "http\shell\open\command", 0, KEY_WRITE, hhKey
RegSetValueEx hhKey, "", 0, REG_SZ, ByVal "C:\Program Files\Internet Explorer\iexplore.exe -nohome", 55
RegCloseKey hhKey
RegOpenKeyEx HKEY_LOCAL_MACHINE, "http\shell\open\ddeexec\Application", 0, KEY_WRITE, hhKey
RegSetValueEx hhKey, "", 0, REG_SZ, ByVal "IExplore",8
RegCloseKey hhKey

追问

用你的代码显示：编译错误：要求常数表达式

追答

不好意思，把HKEY_LOCAL_MACHINE改成HKEY_CLASSES_ROOT

追问

HKEY_LOCAL_MACHINE有两个地方，都改了，还是同样的问题。模块“KEY_CREATE_SUB_KEY”部分高亮。请再修正下

追答

在模块常量声明部分再加一句Public Const KEY_CREATE_SUB_KEY = &H4
回答的有点苍促，不好意思

追问

把Public Const KEY_CREATE_SUB_KEY = &H4放到Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))的上面后运行，360提示更改默认设置，点允许，360还是默认。程序没效果。能查什么问题修改代码？

追答

360在掏鬼，没办法

追问

但用ie浏览器的“internet选项”的“程序”选项卡上的“设为默认值”就可以把ie恢复为默认。说明代码可能还可以修改达到和ie本身修改默认值得相同的效果。

追答

但用ie浏览器的“internet选项”的“程序”选项卡上的“设为默认值”就可以把ie恢复为默认 360会不会提示?

追问

360也会提示。但点击360提示界面上的允许后，就真的恢复ie成默认浏览器了，同时取消了360的默认浏览器地位。而通过上面的vb，出现同样的提示，选择允许后却不能动摇360的默认浏览器地位。

追答

容我再琢磨一下

Dim hhKey As Long
RegOpenKeyEx HKEY_CLASSES_ROOT, "http\shell\open\command", 0, KEY_WRITE, hhKey
RegSetValueEx hhKey, "", 0, REG_SZ, ByVal """C:\Program Files\Internet Explorer\Iexplore.exe"" -nohome", 57
RegCloseKey hhKey
 
RegOpenKeyEx HKEY_CLASSES_ROOT, "http\shell\open\ddeexec\Application", 0, KEY_WRITE, hhKey
RegSetValueEx hhKey, "", 0, REG_SZ, ByVal "IExplore", 8
RegCloseKey hhKey

这回没有问题了，亲测（前面的声明不变）

追问

测试，还是老样子。用几个浏览器，包括360、搜狗、firefox，都不行。

追答

我在winxp下没问题,不知道你是什么系统

追问

vista