标题：[求助]引用外部api出错

1楼

hanxuntx 发表于：2011/10/24 15:39:00

图片点击可在新窗口打开查看此主题相关图片如下：qq截图未命名.png

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

2楼

狐狸爸爸 发表于：2011/10/24 15:45:00

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

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

3楼

hanxuntx 发表于：2011/10/24 15:52:00

。net

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

[此贴子已经被作者于2011-10-24 15:53:33编辑过]

4楼

狐狸爸爸 发表于：2011/10/24 15:57:00

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

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

5楼

hanxuntx 发表于：2011/10/24 16:02:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:et99_sample_vbnet.zip

下载信息 [文件大小：下载次数： ]
点击浏览该文件:et99_sample_vb.zip

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

您帮忙看看图片点击可在新窗口打开查看

6楼

狐狸爸爸 发表于：2011/10/24 16:51:00

显然，他是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

[此贴子已经被作者于2011-10-24 16:54:43编辑过]

7楼

hanxuntx 发表于：2011/10/24 17:42:00

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

[此贴子已经被作者于2011-10-24 17:41:59编辑过]

8楼

hanxuntx 发表于：2011/10/24 18:36:00

还是有同样的错误提示啊

9楼

hanxuntx 发表于：2011/10/24 18:39:00

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20111024184140.png

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

10楼

hanxuntx 发表于：2011/10/24 19:20:00

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20111024184140.png

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

共11 条记录, 每页显示 10 条, 页签: [1] [2]