'╭──────╮
'│www.sduw.com│
'╰──────╯
'功能:恢复地址栏下拉菜单内的网址
'注意:关闭所有浏览器生效
'
msgbox"如果注册表中找不到此键值,程序就会出错!"
Set wso = CreateObject("WScript.Shell")
wso.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs\"
msgbox"修复成功!"