Oscar Sun

                  Function GetDefaultBrowserEXE() '2010/10/18由http://chijanzen.net/wp/?p=156#comment-1303(取得預設瀏覽器(default web browser)的名稱? chijanzen 雜貨舖)而來.
        Dim objShell
        objShell = CreateObject("WScript.Shell")
        'HKEY_CLASSES_ROOT\HTTP\shell\open\ddeexec\Application
        '取得註冊表中的值
        GetDefaultBrowserEXE = objShell.RegRead _
                ("HKCR\http\shell\open\command")

'https://msdn.microsoft.com/zh-tw/library/xz88758e.aspx
End Function

Function GetDefaultBrowser() '2010/10/18¥Ñhttp://chijanzen.net/wp/?p=156#comment-1303(¨ú±o¹w³]ÂsÄý¾¹(default web browser)ªº¦WºÙ? chijanzen Âø³fçE)¦Ó¨Ó.
Dim objShell
    Set objShell = CreateObject("WScript.Shell")
    'HKEY_CLASSES_ROOT\HTTP\shell\open\ddeexec\Application
    '¨ú±oµù¥Uªí¤¤ªº­È
    'GetDefaultBrowser = objShell.RegRead _
        ("HKCR\http\shell\open\ddeexec\Application")
    GetDefaultBrowser = objShell.RegRead _
         ("HKEY_CLASSES_ROOT\http\shell\open\ddeexec\Application")
End Function