weixin_47730444 2023-09-25 17:31 采纳率: 30%
浏览 9
已结题

vba如何写本地html文件执行js

因为遇到遇到一个rsa加密问题，没有相应的加密库，网上有人说可以用htmlfile执行js，请教下如何写；在补充下我的问题，如下是我遇到的rsa加密函数，里面有一个引用jse库的，请教下怎样写这个vba。
var encrypt = new JSEncrypt();
encrypt.setPublicKey('MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDSGzsEzw5f85xQW8hbs46Tc/+5d+tOKO5nYaUnb4ViOCDUg8NziZ3oyj4gh3E7oqFP7eX6Wt2wqUQJ0YbnBfkPvqezCLMeefWBfquxhykuKU1E3wicDjvy8HI/oAOvZm2ytvI2+iEYSmAJZCQaqsrF9B+M0KoXaC2Nutq/1EfFpQIDAQAB');
var encrypted = encrypt.encrypt(message);
return encrypted;
}

  • 写回答

12条回答 默认 最新

  • bug菌¹ Java领域优质创作者 2023-09-28 01:07
    关注

    该回答引用ChatGPT，希望对题主有所帮助，如有帮助，还望采纳。

    可以通过VBA里的CreateObject函数创建HTMLFile对象，然后在该对象里面执行JavaScript代码。下面是示例代码：

    Sub runJS()
    Dim html As Object
    Set html = CreateObject("htmlfile")
    ' 加载HTML代码
    html.Open
    html.Write "<html><body><script>function test(){alert('Hello World!');}</script></body></html>"
    html.Close

    ' 执行JavaScript代码
    html.parentWindow.execScript "test()"
End Sub

    以上代码加载了一个包含一个函数test的HTML代码，并通过parentWindow对象的execScript方法执行test函数。你可以将你的RSA加密算法写成JavaScript函数，然后在以上代码中执行该函数。

    如果你需要引用外部的JS库，可以将库文件保存在本地，在HTML代码中使用<script>标签引用，例如：

    Sub runJS()
    Dim html As Object
    Set html = CreateObject("htmlfile")
    ' 加载HTML文件
    html.Open "c:\Temp\test.html"
    html.Close

    ' 执行JavaScript代码
    html.parentWindow.execScript "var encrypt = new JSEncrypt();"
    html.parentWindow.execScript "encrypt.setPublicKey('MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDSGzsEzw5f85xQW8hbs46Tc/+5d+tOKO5nYaUnb4ViOCDUg8NziZ3oyj4gh3E7oqFP7eX6Wt2wqUQJ0YbnBfkPvqezCLMeefWBfquxhykuKU1E3wicDjvy8HI/oAOvZm2ytvI2+iEYSmAJZCQaqsrF9B+M0KoXaC2Nutq/1EfFpQIDAQAB');"
    html.parentWindow.execScript "var encrypted = encrypt.encrypt(message);"
    html.parentWindow.execScript "return encrypted;"
End Sub

    以上代码加载了一个名为test.html的本地文件，并执行在代码中定义的JavaScript代码。注意JSEncrypt库文件名和路径需要与test.html文件在同一目录下。在JavaScript中使用return语句返回加密结果，VBA中可以通过parentWindow对象获取执行结果。

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
  • 专家-赤兔[在线] 2023-09-25 17:35
    关注

    引自免费小程序-皆我百晓生，希望对题主有所帮助，如有帮助，还望采纳。

    要在 VBA 中编写本地 HTML 文件并执行 JavaScript，可以使用 Microsoft HTML Object Library 中的 HTMLFile 对象来实现。以下是一个示例：

    首先，确保已经将 "Microsoft HTML Object Library" 添加为引用。可以通过 "工具" -> "引用" 菜单打开 "引用" 窗口，并在列表中找到并选中 "Microsoft HTML Object Library"。

    然后，使用以下代码来创建一个本地 HTML 文件，并在其中执行 JavaScript：

    Sub RunJavaScript()
    Dim htmlDoc As MSHTML.HTMLDocument
    Set htmlDoc = New MSHTML.HTMLDocument
    
    ' 创建一个本地 HTML 文件并将 HTML 代码写入其中
    Dim htmlFile As Object
    Set htmlFile = CreateObject("Scripting.FileSystemObject")
    Dim file As Object
    Set file = htmlFile.CreateTextFile("C:\path\to\your\file.html", True)
    file.WriteLine "<html>"
    file.WriteLine "<head>"
    file.WriteLine "<script>"
    file.WriteLine "function myFunction() {"
    file.WriteLine "  // 在这里编写你的 JavaScript 代码"
    file.WriteLine "}"
    file.WriteLine "</script>"
    file.WriteLine "</head>"
    file.WriteLine "<body>"
    file.WriteLine "<button onclick='myFunction()'>Click me</button>"
    file.WriteLine "</body>"
    file.WriteLine "</html>"
    file.Close
    
    ' 在 HTML 文件中执行 JavaScript
    htmlDoc.body.innerHTML = htmlFile.OpenTextFile("C:\path\to\your\file.html").ReadAll
    htmlDoc.parentWindow.execScript "myFunction()"
End Sub

    上述代码中，首先创建了一个本地 HTML 文件，并将 HTML 代码写入其中。可以根据需要自定义 HTML 代码，包括 JavaScript 代码。然后，使用 HTMLFile 对象将 HTML 文件的内容加载到 htmlDoc 中，并使用 .execScript 方法执行 JavaScript 函数。

    注意，文件路径和文件名需要根据实际情况进行修改，确保写入和读取文件的路径正确。

    希望这能帮到你！如果有任何进一步的问题，请随时提问。

    评论 编辑记录
  • IT技术分享社区 数据库领域优质创作者 2023-09-25 17:52
    关注

    该回答引用chatgpt

    在 HTML 中执行 JavaScript 有多种方法，其中一种方法是使用 HTML 的 <script> 标签。但是，如果需要在 HTML 中执行 JavaScript 并获取返回值，可以使用 HtmlFile 对象来实现。

    HtmlFile 对象是一个 COM 对象，它提供了与 Internet Explorer 相同的 HTML DOM 访问方式，并且可以在 IE 浏览器中执行 JavaScript 代码。以下是一个示例代码，使用 HtmlFile 对象在 HTML 中执行 JavaScript 并获取返回值：

    // 创建一个 HtmlFile 对象
var htmlfile = new ActiveXObject("htmlfile");

// 设置 HtmlFile 对象的文档内容
htmlfile.write("<html><head><script>function add(a, b) { return a + b; }</script></head><body></body></html>");

// 调用 JavaScript 函数，并获取返回值
var result = htmlfile.parentWindow.add(1, 2);

// 输出返回值
console.log(result);

// 释放 HtmlFile 对象
htmlfile.close();

    在上述示例中，我们首先创建了一个 HtmlFile 对象，并使用 write 方法设置了该对象的文档内容，其中包括一个名为 add 的 JavaScript 函数，用于计算两个数的和。然后，我们使用 parentWindow 属性获取 HtmlFile 对象所在的窗口对象，并调用 add 函数计算两个数的和。最后，我们输出了函数的返回值，并使用 close 方法释放了 HtmlFile 对象的资源。

    需要注意的是，使用 HtmlFile 对象在 HTML 中执行 JavaScript 代码需要在 IE 浏览器中运行，因此只能在 Windows 操作系统下使用。同时，由于 HtmlFile 对象是一个 COM 对象，因此需要在浏览器中启用 ActiveX 控件才能使用。另外，由于 IE 浏览器的安全性较低，因此使用 HtmlFile 对象时需要注意安全性问题。

    评论
  • 紫薇东风折 2023-09-25 19:14
    关注

    本回答引用AI回答：
    关于使用 HTML 文件执行 JavaScript 代码，你实际上可以使用 Microsoft 的 JavaScript ActiveX Control。下面是一个简单的示例，展示了如何在 VBA 中调用 JavaScript 函数进行 RSA 加密：

    1. 首先，确保你的系统中已经安装了 Microsoft Scripting Host Object Model。如果没有，请在控制面板的“程序和功能”中找到“Microsoft Scripting Host Object Model”进行安装。
    2. 在 VBA 编辑器中，插入一个新的 ActiveX 控件，并选择“Microsoft Scripting Host Object Model”。
    3. 在 VBA 编辑器中，你可以使用以下代码调用 JavaScript 函数进行 RSA 加密：
      Option Explicit
Sub TestRSAEncryption()
Dim ws As New Scripting.WebService  
Dim html As String  
  
' 设置要加密的消息  
Const message As String = "Hello, World!"  
  
' 创建一个 HTML 文件，包含加密函数的调用  
html = "<!DOCTYPE html><html><head><script src='" & Chr(34) & "javascript.js" & Chr(34) & "></script></head><body>"  
html = html & "var encrypted = encrypt(" & Chr(34) & message & Chr(34) & ");"  
html = html & "document.write(encrypted);"  
html = html & "</body></html>"  
  
' 使用 JavaScript Service 调用 JavaScript 函数  
ws.Open  
ws.Type = 2  
ws.Write html  
ws.Send  
  
' 获取加密后的结果  
Dim encrypted As String  
encrypted = ws.ResponseBody  
  
' 在 VBA 中处理加密后的结果  
Debug.Print encrypted
End Sub
    4. 创建一个名为 javascript.js 的 JavaScript 文件，并添加以下代码：
      var encrypt = new JSEncrypt();  
var message = 'Hello, World!';  
encrypt.setPublicKey('MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDSGzsEzw5f85xQW8hbs46Tc/+5d+tOKO5nYaUnb4ViOCDUg8NziZ3oyj4gh3E7oqFP7eX6Wt2wqUQJ0YbnBfkPvqezCLMeefWBfquxhykuKU1E3wicDjvy8HI/oAOvZm2ytvI2+iEYSmAJZCQaqsrF9B+M0KoXaC2Nutq/1EfFpQIDAQAB');  
var encrypted = encrypt.encrypt(message);
    5. 保存以上代码，并运行 VBA 子例程 TestRSAEncryption。你将在 Immediate 窗口中看到加密后的结果。
      注意：由于 JavaScript 和 VBA 的数据类型和函数签名存在差异，你可能需要根据实际情况调整代码。此外，此方法可能存在安全风险，请谨慎使用。
    评论
  • coder_small_bell 2023-09-25 19:48
    关注

    JSEncrypt这个类拔下来运行

    评论
  • 普通网友 2023-09-25 20:20
    关注

    参考gpt
    可以使用VBA的CreateObject方法创建HTMLFile对象，然后通过HTMLFile对象的write方法将需要执行的JavaScript代码写入到一个本地的HTML文件中，最后通过HTMLFile对象的parentWindow.execScript方法执行JavaScript代码。

    下面是一个简单的示例代码：

    Sub ExecuteJavaScript()
    Dim htmlFile As Object
    Dim script As String
    
    ' 创建HTMLFile对象
    Set htmlFile = CreateObject("htmlfile")
    
    ' 写入JavaScript代码
    script = "var message = 'Hello World!'; alert(message);"
    htmlFile.write "<html><head><script>" & script & "</script></head><body></body></html>"
    
    ' 执行JavaScript代码
    htmlFile.parentWindow.execScript script, "javascript"
    
    ' 释放对象
    Set htmlFile = Nothing
End Sub

    对于引用了jsencrypt.js库的JavaScript代码，可以将该库文件的代码写入到HTML文件的<head>标签中，然后在需要执行加密操作的JavaScript代码中调用该库的方法。

    下面是一个示例代码，假设jsencrypt.js库文件已经下载并保存到本地：

    Sub EncryptMessage()
    Dim htmlFile As Object
    Dim script As String
    Dim publicKey As String
    Dim message As String
    Dim encrypted As String
    
    ' 创建HTMLFile对象
    Set htmlFile = CreateObject("htmlfile")
    
    ' 写入JavaScript代码和库文件内容
    publicKey = "MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDSGzsEzw5f85xQW8hbs46Tc/+5d+tOKO5nYaUnb4ViOCDUg8NziZ3oyj4gh3E7oqFP7eX6Wt2wqUQJ0YbnBfkPvqezCLMeefWBfquxhykuKU1E3wicDjvy8HI/oAOvZm2ytvI2+iEYSmAJZCQaqsrF9B+M0KoXaC2Nutq/1EfFpQIDAQAB"
    message = "Hello World!"
    script = "var encrypt = new JSEncrypt(); encrypt.setPublicKey('" & publicKey & "'); var encrypted = encrypt.encrypt('" & message & "');"
    htmlFile.write "<html><head><script src='jsencrypt.js'></script><script>" & script & "</script></head><body></body></html>"
    
    ' 执行JavaScript代码
    encrypted = htmlFile.parentWindow.encrypted
    
    ' 输出加密结果
    MsgBox encrypted
    
    ' 释放对象
    Set htmlFile = Nothing
End Sub

    注意，由于VBA的字符串中不能直接包含换行符，因此将jsencrypt.js库文件的内容写入到HTML文件时，需要将换行符替换为<br>标签。或者也可以将库文件的内容存储到一个单独的文本文件中，在VBA代码中读取该文件的内容并写入到HTML文件中。

    评论
  • 杨得江-君临天下wyj 2023-09-25 20:44
    关注
    
Sub RunJavaScript()
    Dim htmlDoc As MSHTML.HTMLDocument
    Set htmlDoc = New MSHTML.HTMLDocument
    ' 创建一个本地 HTML 文件并将 HTML 代码写入其中
    Dim htmlFile As Object
    Set htmlFile = CreateObject("Scripting.FileSystemObject")
    Dim file As Object
    Set file = htmlFile.CreateTextFile("C:\path\to\your\file.html", True)
    file.WriteLine "<html>"
    file.WriteLine "<head>"
    file.WriteLine "<script>"
    file.WriteLine "function myFunction() {"
    file.WriteLine "  // 在这里编写你的 JavaScript 代码"
    file.WriteLine "}"
    file.WriteLine "</script>"
    file.WriteLine "</head>"
    file.WriteLine "<body>"
    file.WriteLine "<button onclick='myFunction()'>Click me</button>"
    file.WriteLine "</body>"
    file.WriteLine "</html>"
    file.Close
    ' 在 HTML 文件中执行 JavaScript
    htmlDoc.body.innerHTML = htmlFile.OpenTextFile("C:\path\to\your\file.html").ReadAll
    htmlDoc.parentWindow.execScript "myFunction()"
End Sub
    评论
  • 玥轩_521 2023-09-25 22:52
    关注

    援引通义千问：
    在VBA中，你可以使用InternetExplorer.Application对象来打开本地的HTML文件，并执行其中的JavaScript代码。以下是一个简单的示例：

    Sub ExecuteJS()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False
    ie.Navigate "C:\path\to\your\html\file.html"
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    ie.Document.all("yourJavaScriptFunction").CallMethod "execJS", "yourJavaScriptCode"
    ie.Quit
End Sub

    在这个示例中，我们首先创建了一个InternetExplorer.Application对象，并设置了它的可见性为False。然后，我们使用Navigate方法打开了本地的HTML文件。接着，我们使用DoEvents方法等待页面加载完成。最后，我们使用CallMethod方法调用了HTML文件中的JavaScript函数，并传入了要执行的JavaScript代码。
    对于你的问题，你可以将上述代码中的"yourJavaScriptFunction"和"yourJavaScriptCode"替换为你的JavaScript函数和代码。例如，你可以将"yourJavaScriptFunction"替换为"encrypt"，将"yourJavaScriptCode"替换为encrypt(message)。这样，VBA就会执行HTML文件中的encrypt函数，并将message作为参数传递给它。

    评论
  • 数据大魔王 2023-09-25 23:15
    关注

    在VBA中使用HTMLFile执行JavaScript可以通过以下步骤实现：

    1. 首先，将以下代码复制到一个名称为rsa.html的HTML文件中：

      <!DOCTYPE html>
<html>
<head>
 <script src="https://cdnjs.cloudflare.com/ajax/libs/jsencrypt/3.1.0/jsencrypt.min.js"></script>
</head>
<body>
 <script>
     function encryptMessage(message) {
         var encrypt = new JSEncrypt();
         encrypt.setPublicKey('MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDSGzsEzw5f85xQW8hbs46Tc/+5d+tOKO5nYaUnb4ViOCDUg8NziZ3oyj4gh3E7oqFP7eX6Wt2wqUQJ0YbnBfkPvqezCLMeefWBfquxhykuKU1E3wicDjvy8HI/oAOvZm2ytvI2+iEYSmAJZCQaqsrF9B+M0KoXaC2Nutq/1EfFpQIDAQAB');
         var encrypted = encrypt.encrypt(message);
         return encrypted;
     }
     window.external.passEncryptedValue(encryptMessage(window.external.getOriginalMessage()));
 </script>
</body>
</html>

    2. 在VBA中插入以下代码并运行，以调用HTML文件并获取加密结果：

      Sub EncryptWithRSA()
 Dim originalMessage As String
 Dim encryptedMessage As String
 
 ' 设置原始消息
 originalMessage = "Hello, World!"
 
 ' 创建Web浏览器对象
 Dim webBrowser As Object
 Set webBrowser = CreateObject("InternetExplorer.Application")
 webBrowser.Visible = False
 
 ' 打开HTML文件（确保文件路径正确）
 webBrowser.Navigate "文件路径/rsa.html"
 Do While webBrowser.Busy Or webBrowser.ReadyState <> 4
     DoEvents
 Loop
 
 ' 通过调用JavaScript函数获取加密结果
 encryptedMessage = webBrowser.Document.parentWindow.external.passEncryptedValue(originalMessage)
 
 ' 关闭Web浏览器对象
 webBrowser.Quit
 
 ' 打印加密结果
 MsgBox encryptedMessage, vbInformation, "加密结果"
End Sub

    3. 在步骤2中的代码中，将"文件路径/rsa.html"替换为你实际保存rsa.html文件的路径。

    4. 在VBA中运行EncryptWithRSA子过程，将会弹出一个消息框显示加密后的结果。

    评论
  • 心梓知识 2023-09-26 02:31
    关注

    结合GPT给出回答如下请题主参考
    要使用VBA编写本地HTML文件并执行JavaScript，您可以使用Microsoft HTML Object Library。以下是一个示例代码，演示如何打开本地HTML文件并执行其中的JavaScript：

    Sub RunJavaScriptInLocalHTMLFile()

    'Create a new instance of the HTML file object.
    Dim HTMLFile As HTMLDocument
    Set HTMLFile = New HTMLDocument

    'Load the local HTML file.
    HTMLFile.body.innerHTML = "<script src=""file:///C:/path/to/localfile.js""></script>"

    'Execute the JavaScript code.
    Call HTMLFile.parentWindow.eval("MyJavaScriptFunction();")

    'Cleanup.
    Set HTMLFile = Nothing

End Sub

    在此示例中，我们将本地HTML文件的路径传递给src属性，然后使用eval方法执行JavaScript代码。您需要将file:///C:/path/to/localfile.js替换为实际的文件路径。

    如果要在VB中调用jsencrypt库来执行rsa加密，您需要首先在HTML文件中加载jsencrypt库，然后调用其方法来执行加密操作。以下是示例代码：

    Sub EncryptDataWithRSA()

    'Create a new instance of the HTML file object.
    Dim HTMLFile As HTMLDocument
    Set HTMLFile = New HTMLDocument

    'Load the local HTML file that contains the jsencrypt library.
    HTMLFile.body.innerHTML = "<script src=""file:///C:/path/to/jsencrypt.min.js""></script>"

    'Create a new instance of the jsencrypt object and set the public key.
    Dim JSEncrypt As Object
    Set JSEncrypt = HTMLFile.parentWindow.eval("new JSEncrypt();")
    Call JSEncrypt.setPublicKey("-----BEGIN PUBLIC KEY-----\n" _
            & "MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA1qD1J9z5FvQKK3rGj8J0\n" _
            & "wR8jwu5+D6IyG5Iv8Sc8okM71mq9y0x9qmIP2GTrdgL9jfiEE6yE0t/t63JgRar+\n" _
            & "CmnL2i3GvCWjvHg1uU2IbCx5X/4Jvq3FrV3zk4QgRi3FkazxqA0kQF16Tf/NWzg4\n" _
            & "KfWUxITdEEWp4Ourcr4jyDDp/7v9T2zNhVpULVeJ/z8yWq/4m/CkFfoirr+LbFB2\n" _
            & "qFgGsxjtN0D2QpkvjY+ZkG8rUfsTqu8Q+WkPb76VHMzMK3S+FhQjv9wC+BzlZmVE\n" _
            & "fJN9aO34kKIwGOOvQ4tjCQm+0IMV+a9plpNzV4vdSEwXz8xjc6r1Dgu2hYsGjvpk\n" _
            & "WQIDAQAB\n" _
            & "-----END PUBLIC KEY-----")

    'Encrypt the data with the public key.
    Dim EncryptedData As String
    EncryptedData = JSEncrypt.encrypt("This is my secret message.")

    'Output the encrypted data.
    Debug.Print EncryptedData

    'Cleanup.
    Set JSEncrypt = Nothing
    Set HTMLFile = Nothing

End Sub

    在此示例中，我们首先加载了jsencrypt.min.js库文件，然后创建了一个新的JSEncrypt对象并设置了公钥。您需要将公钥替换为实际的RSA公钥。最后，我们使用encrypt方法将数据加密，然后输出加密后的字符串。请注意，encrypt方法将返回Base64编码的加密数据。

    评论
  • yy64ll826 2023-09-27 10:29
    关注

    vba 执行网页javascript_单击按钮或使用VBA执行JavaScript功能

    vba 执行网页javascript_单击按钮或使用VBA执行JavaScript功能_吟游诗人基德的博客-CSDN博客 我正在尝试让我的VBA例程与使用JavaScript的页面进行交互,并且过去已经成功.最近更新后,它不再有效.此时我需要A)以编程方式单击按钮或B)执行按钮调用的功能.棘手的部分是该按钮没有声明的名称.在源代码中声明的工作表上还有其他名称,我可以很好地与它们进行交互.这是页面源代码中的html代码：如您所见,它没有声明按钮的名称.在过去,以下工作：Set ie = CreateObject("In..._jrjqvb https://blog.csdn.net/weixin_29013129/article/details/113004998

    vba 执行网页javascript_JavaScript简介-CSDN博客 JavaScript背景Web前端有三层：HTML：从语义的角度，描述页面结构CSS：从审美的角度，描述样式（美化页面）JavaScript：从交互的角度，描述行为（实现业务逻辑和页面控制）发展历史JavaScript诞生于1995年。布兰登 • 艾奇（Brendan Eich，1961年～），1995年在网景公司，发明的JavaScript。JavaScript是由网景公司发明，起初命名为Liv..._vba htmlfile 执行js https://blog.csdn.net/weixin_39836860/article/details/112509824

    评论
  • Leodong. 2023-09-27 11:11
    关注

    该回答通过自己思路及引用到GPTᴼᴾᴱᴺᴬᴵ搜索,得到内容具体如下：
    要在VBA中执行本地HTML文件中的JavaScript代码，你可以使用Internet Explorer对象。以下是一个示例：

    1. 首先，确保你的计算机上安装了Internet Explorer，并在VBA引用中添加了"Microsoft Internet Controls"和"Microsoft HTML Object Library"。

    2. 然后，使用以下代码在VBA中执行本地HTML文件中的JavaScript代码：

    Sub RunJavaScriptInHtmlFile()
    Dim ie As New InternetExplorer
    Dim htmlFilePath As String
    Dim htmlContent As String

    ' 设置HTML文件路径
    htmlFilePath = "C:\path\to\your\html\file.html"

    ' 读取HTML文件内容
    With CreateObject("Scripting.FileSystemObject").OpenTextFile(htmlFilePath, 1)
        htmlContent = .ReadAll
    End With

    ' 打开Internet Explorer并加载HTML文件
    With ie
        .Visible = False ' 设置为False以便在后台运行
        .navigate htmlFilePath
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        ' 等待页面加载完成
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        ' 执行JavaScript代码
        .document.parentWindow.execScript "var publicKey = 'MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDSGzsEzw5f85xQW8hbs46Tc/+5d+tOKO5nYaUnb4ViOCDUg8NziZ3oyj4gh3E7oqFP7eX6Wt2wqUQJ0YbnBfkPvqezCLMeefWBfquxhykuKU1E3wicDjvy8HI/oAOvZm2ytvI2+iEYSmAJZCQaqsrF9B+M0KoXaC2Nutq/1EfFpQIDAQAB'; var encrypted = publicKeyEncrypt(message); return encrypted;"
    End With
End Sub

    请注意，你需要将htmlFilePath变量设置为你的HTML文件的路径，并将publicKeyEncrypt函数替换为你的RSA加密函数。

    如果以上回答对您有所帮助，点击一下采纳该答案～谢谢

    评论
查看更多回答(11条)

报告相同问题？

问题事件

  • 系统已结题 10月6日
  • 已采纳回答 9月28日
  • 修改了问题 9月26日
  • 修改了问题 9月25日
  • 展开全部

悬赏问题

  • ¥30 哈夫曼编码译码器打印树形项目
  • ¥20 求完整顺利登陆QQ邮箱的python代码
  • ¥15 怎么下载MySQL，怎么卸干净原来的MySQL
  • ¥15 网络打印机Ip地址自动获取出现问题
  • ¥15 求局部放电案例库，用于预测局部放电类型
  • ¥100 QT Open62541
  • ¥15 stata合并季度数据和日度数据
  • ¥15 谁能提供rabbitmq，erlang，socat压缩包，记住版本要对应
  • ¥15 Vue3 中使用 `vue-router` 只能跳转到主页面？
  • ¥15 用QT，进行QGIS二次开发，如何在添加栅格图层时，将黑白的矢量图渲染成彩色