VB6 dll 在 VB6 应用程序中工作，而不是在 ASP 中工作

Question

我正在用 asp 开发一个旧项目 在我成为 .net 开发人员之前，我从未使用过 vb6 或 asp

无论如何，

我制作了一个 .net dll 并更改了一些编译选项以使其与 vb6 一起使用 代码并不重要

我在vb6中创建了一个“包装器有点”dll

Public Function EncryptWrapper(ByVal parameterstring As String, ByVal isShaIn As String, ByVal HashType As String) As String
    Dim o
    Set o = CreateObject("SHA1Module.Conversion")
    EncryptWrapper = CStr(o.EncryptToSHA1(CStr(parameterstring), CBool(isShaIn), CLng(HashType)))
End Function

，并在vb6中创建了一个调用它的表单，

    Private Sub Command1_Click()
    Dim message
    Dim myObject
    Set myObject = CreateObject("SHAModuleWrapper.Encryption")
    message = myObject.EncryptWrapper(txtIn.Text, "1", "2")
    Set myObject = Nothing
    txtOut.Text = message
End Sub

现在在asp中完美运行

我尝试调用该dll，我得到一个错误，

<%  Dim strMessage 
    Dim message
    strMessage = "hello"
    Dim myObject
    Set myObject = Server.CreateObject("SHAModuleWrapper.Encryption")
        message = myObject.EncryptWrapper("testdagtestdagtest", "1", "0")
    Response.Write(message)
%>

这是错误消息

SHAModuleWrapper错误'800a0005'

无效的过程call or argument

/asptest/Default.asp, line 15

这不是参数或输出 正是这部分造成了麻烦

**Dim o
Set o = CreateObject("SHA1Module.Conversion")
EncryptWrapper = CStr(o.EncryptToSHA1(CStr(parameterstring), CBool(isShaIn), CLng(HashType)))**

有人有想法吗？

Answer 1

Dim o 
Dim message
Dim myObject

这些线路令人担忧。这些将是一个变体，因为它们不是定义的类型。

Option Explicit 是您在 VB6 中的朋友 - 始终使用它！

看看这个链接： 使用 Option Explicit 语句避免 VB6 中的程序错误了解更多信息。

Answer 2

经过一番折腾和批处理文件后我找到了解决方案。
我需要为我的程序集创建一个强名称并在 GAC 中注册它

这是关于如何解决此问题的一个很好的分步教程
教程

这两个步骤帮助了我

8)生成公钥/私钥对

sn -k MarkItUp.key

9) 将属性添加到我的程序集中以进行注册：

<Assembly: AssemblyKeyFile("C:\MarkItUp.key")>

Answer 3

在你的错误代码中你有
Set o = CreateObject("SHA1Module.Conversion")
应该是
Set o = CreateObject("SHA1Module.Encryption")

Answer 4

检查 IUSR_机器 是否有权执行您的 dll。