将默认浏览器设置为自己的浏览器需要的全部注册表项

将默认浏览器设置为自己的浏览器MultipageIe需要的全部注册表项：
 
'默认设置为"open"
DEF_Browser="MultipageIe"
 
'默认设置为"IEXPLORE.EXE"
DEF_BrowserExeName="MULTIPAGEIE.EXE"
 
'默认设置为"C:\Program Files\internet explorer\iexplore.exe"
DEF_BrowserExePath="E:\VC++案例\MultipageIe\MultipageIe.exe"
 
'默认设置为"Internet Explorer"
DEF_BrowserLocalizedString="MultipageIe Web Explorer"
 
Set WshShell = WScript.CreateObject("WScript.Shell")
 
WshShell.RegWrite "HKCR\.htm\","htmlfile","REG_SZ"
WshShell.RegWrite "HKCR\.html\","htmlfile","REG_SZ"
 
WshShell.RegWrite "HKCR\.shtm\","htmlfile","REG_SZ"
WshShell.RegWrite "HKCR\.shtml\","htmlfile","REG_SZ"
 
WshShell.RegWrite "HKCR\.mht\","mhtmlfile","REG_SZ"
WshShell.RegWrite "HKCR\.mhtml\","mhtmlfile","REG_SZ"
 
WshShell.RegWrite "HKCR\.url\","InternetShortcut","REG_SZ"
 
WshShell.RegWrite "HKCR\htmlfile\shell\","open","REG_SZ"
WshShell.RegWrite "HKCR\htmlfile\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\htmlfile\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\htmlfile\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\InternetShortcut\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\InternetShortcut\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\InternetShortcut\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\mhtmlfile\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\mhtmlfile\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\mhtmlfile\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\http\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\http\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\http\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\https\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\https\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\https\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\file\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\file\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\file\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\ftp\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\ftp\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\ftp\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\CLSID\{0002DF01-0000-0000-C000-000000000046}\LocalServer32\","" & DEF_BrowserExePath & "","REG_SZ"
 
WshShell.RegWrite "HKLM\SOFTWARE\Clients\StartMenuInternet\",DEF_BrowserExeName,"REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Clients\StartMenuInternet\" & DEF_BrowserExeName & "\LocalizedString",DEF_BrowserLocalizedString,"REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Clients\StartMenuInternet\" & DEF_BrowserExeName & "\shell\open\command\","" & DEF_BrowserExePath & "","REG_SZ"
 
WshShell.RegWrite "HKLM\SOFTWARE\TENCENT\Traveler\exe","" & DEF_BrowserExePath & "","REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\TENCENT\Traveler\exeOld","" & DEF_BrowserExePath & "","REG_SZ"
 
WshShell.Run "Rundll32.exe User32.dll,UpdatePerUserSystemParameters"
 
WshShell.Popup "设置完成。",10,"提示",64
 
 

本文链接地址： 将默认浏览器设置为自己的浏览器需要的全部注册表项
https://blog.qingfengju.com/index.asp?id=143

上一篇： CEdit(EDIT)控件小技巧
下一篇： 键盘钩子

分类：脚本编程 查看次数：9701 发布时间：2009/8/18 0:21:40