Vbscript 从HTA调用时，编码的VBS不工作

我们有一个HTA，用于使用VBS自动登录到服务器。为了维护安全性，我们希望对VBS进行编码，它具有登录服务器的凭据。我们遇到了一个VBS脚本，当拖动到它上时，它对VBS文件进行了编码，输出是一个VBE文件

现在，当从HTA调用此VBE时，它会显示和错误，看起来它无法正确读取VBE

下面是我们如何将VBE链接到我们的HTA：

此外，下面是编码代码：

Option Explicit 

dim oEncoder, oFilesToEncode, file, sDest 
dim sFileOut, oFile, oEncFile, oFSO, i 
dim oStream, sSourceFile 

set oFilesToEncode = WScript.Arguments 
set oEncoder = CreateObject("Scripting.Encoder") 
For i = 0 to oFilesToEncode.Count - 1 
    set oFSO = CreateObject("Scripting.FileSystemObject") 
    file = oFilesToEncode(i) 
    set oFile = oFSO.GetFile(file) 
    Set oStream = oFile.OpenAsTextStream(1) 
    sSourceFile=oStream.ReadAll 
    oStream.Close 
    sDest = oEncoder.EncodeScriptFile(".vbs",sSourceFile,0,"") 
    sFileOut = Left(file, Len(file) - 3) & "vbe" 
    Set oEncFile = oFSO.CreateTextFile(sFileOut) 
    oEncFile.Write sDest 
    oEncFile.Close 
Next 

---

根据我的理解，编码的VBS应该像正常的一样工作，不知道为什么我们在这种情况下会出现褪色问题

要使用编码的VBScript，您需要指定与

language=“VBScript.Encode”

一起使用的语言引擎，而不仅仅是

language=“VBScript”

---

另外，如果你想用它来“维护安全”，要非常小心。脚本编码器的目的是防止随意检查，但它不会以任何传统意义上的方式“加密”代码，而是取回普通脚本。

要使用编码的VBScript，您需要指定与

language=“VBScript.Encode”

一起使用的语言引擎，而不仅仅是

language=“VBScript”

另外，如果你想用它来“维护安全”，要非常小心。脚本编码器的目的是阻止随意检查，但它不会以任何传统意义上的方式“加密”代码，而是取回普通脚本