此主题相关图片如下：qq截图未命名.png

狐爸请问这个是什么原因。

意思是这个dll格式不争取。

你是.net的库，还是传统的api库。

。net

在坚石诚信买的et99加密狗的api

.net 按道理直接引用就行了，也许人家发给你的.dll有问题吧。

另外加密狗的库是.net的可能性不大。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:et99_sample_vbnet.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:et99_sample_vb.zip

狐爸，本人菜鸟一枚，这是api和示例源码，但是也想给自己的程序用个加密狗

您帮忙看看

显然，他是api的，不需要引用，只需定义函数即可。

在全局代码中加入：

Public Declare Function et_FindToken Lib "FT_ET99_API.dll" (ByVal et99pid As String, ByRef et99count As Short) As Integer
Public Declare Function et_OpenToken Lib "FT_ET99_API.dll" (ByRef et99handle As Integer, ByVal et99pid As String, ByVal et99index As Short) As Integer
Public Declare Function et_CloseToken Lib "FT_ET99_API.dll" (ByVal et99handle As Integer) As Integer
Public Declare Function et_Write Lib "FT_ET99_API.dll" (ByVal et99handle As Integer, ByVal et99offset As Short, ByVal et99len As Short, ByRef et99write As Byte) As Integer
Public Declare Function et_Read Lib "FT_ET99_API.dll" (ByVal et99handle As Integer, ByVal et99offset As Short, ByVal et99len As Short, ByRef et99read As Byte) As Integer
Public Declare Function et_Verify Lib "FT_ET99_API.dll" (ByVal et99handle As Integer, ByVal et99flag As Short, ByVal et99pin As String) As Integer
Public Declare Function et_GetSN Lib "FT_ET99_API.dll" (ByVal et99handle As Integer, ByRef et99sn As Byte) As Integer
Public Declare Function et_HMAC_MD5 Lib "FT_ET99_API.dll" (ByVal et99handle As Integer, ByVal et99keyID As Integer, ByVal et99textLen As Short, ByRef et99pucText As Byte, ByRef et99pucDigest As Byte) As Integer
Public Declare Function MD5_HMAC Lib "FT_ET99_API.dll" (ByRef et99pucText As Byte, ByVal et99textLen As Integer, ByRef et99pucKey As Byte, ByVal et99keyLen As Integer, ByRef et99tokenKey As Byte, ByRef et99pucDigest As Byte) As Integer
Public Declare Function et_SetKey Lib "FT_ET99_API.dll" (ByVal et99handle As Integer, ByVal et99keyID As Integer, ByRef et99write As Byte) As Integer

Public Sub HexToString(ByRef ByteArray() As Byte, ByRef str_Renamed As String, ByRef lSize As Integer)
Dim b As Byte
Dim i As Integer
For i = lSize - 1 To 0 Step -1
    b = ByteArray(i) \\ 16
    If b > 9 Then
        str_Renamed = str_Renamed & Chr(b + Asc("A") - 10)
    Else
        str_Renamed = str_Renamed & Chr(b + Asc("0"))
    End If
   
    b = ByteArray(i) Mod 16
    If b > 9 Then
        str_Renamed = str_Renamed & Chr(b + Asc("A") - 10)
    Else
        str_Renamed = str_Renamed & Chr(b + Asc("0"))
    End If
Next i
End Sub

恩，谢谢狐爸，太多知识要学习了

此主题相关图片如下：qq截图20111024184140.png

再登陆就有这样的错误提示

此主题相关图片如下：qq截图20111024184140.png

用开发者身份进去，事件代码也无法编辑了