这段代码是什么意思？

Question

这段代码是什么意思？ 当我将代码转换为setuo文件时会产生什么影响？

Dim W As Object 
     Dim E As String 
     W = CreateObject("Wscript.shell") 
     If VB.Left(Extension, 1) <> "." Then 
      E = "." & Extension & "\" 
     Else 
      E = Extension & "\" 
      Extension = Mid(Extension, 2) 
     End If 
     W.regwrite("HKCU\" & E, Extension & " File") 
     W.regwrite("HKCU\" & Extension & " File\", Description) 
     W.regwrite("HKCU\" & Extension & " File\DefaultIcon\", FileIcon) 
    W.regwrite("HKCU\" & Extension & " File\Shell\Open\Command\", ProgramPath & " %1") 
     W.regwrite("HKCU\" & Extension & " File\Shell\", "Open") 
    End Sub 

这是什么意思？

W.regwrite("HKCU\" & Extension & " File\Shell\Open\Command\", ProgramPath & " %1") 

Answer 1

看起来代码是在Windows注册表中注册一个扩展名，并将应用程序与它关联。

Answer 2

这两个片段正在写入注册表的HKeyCurrentUser部分。

HKCR

HKCU