'╭──────╮
'│www.sduw.com│
'╰──────╯
'功能:恢复reg文件打开方式
'注意:运行后立即生效
'
Set wso = CreateObject("WScript.Shell")
wso.Regwrite "HKEY_LOCAL_MACHINE\Software\CLASSES\.reg\","regfile"
msgbox"修复成功!"