设置默认浏览器的问题

Question

我把自己的浏览器设置为默认浏览器后发现点QQ邮箱可以在我的浏览器打开 点QQ空间就不可以  在点一切其他弹出页 变会IE 浏览器去了我仿照 TT浏览器把注册表该写的值都写了
是不是浏览器本身程序要做支持?

Answer 1

这个问题其实跟
http://topic.csdn.net/u/20080330/16/951661a9-a233-454d-a127-116febdfeae3.html
这个一样

Answer 2

会不会它的有些菜单是用Shell("IEXPLORE.EXE .......")的方式来启动的呢？

Answer 3

正解。QQ空间使用了一些ActiveX插件，像Firefox等不支持，所以是手动调用IE来打开的。而IE打开之后，把自己注册为了默认浏览器，所以又弹回去了。把Internet选项里的设为默认浏览器去掉就行了。

Answer 4

那QQ空间是这样  象弹出来的QQ迷你首页呢肯定有办法解决的吧

Answer 5

'添加 Command1  Command2Option Explicit
Const REG_SZ As Long = 1
Const HKEY_CURRENT_USER = &H80000001
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
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
Dim hKey&
Private Sub Form_Load()
   Command1.Caption = "百 度"
   Command2.Caption = "空 白"
End SubPrivate Sub Command1_Click()
   RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey
   RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal "http://baidu.com", 19
   MsgBox "已成功设置首页为百度!", , "CBM666"
   RegCloseKey hKey
End SubPrivate Sub Command2_Click()
   RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey
   RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal "about:blank", 11
   MsgBox "已成功设置首页为空白页!", , "CBM666"
   RegCloseKey hKey
End Sub