以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]引用外部api出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13715)

--  作者:hanxuntx
--  发布时间:2011/10/24 15:39:00
--  [求助]引用外部api出错


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

 

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


--  作者:狐狸爸爸
--  发布时间:2011/10/24 15:45:00
--  

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

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


--  作者:hanxuntx
--  发布时间:2011/10/24 15:52:00
--  

。net

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

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

--  作者:狐狸爸爸
--  发布时间:2011/10/24 15:57:00
--  

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

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


--  作者:hanxuntx
--  发布时间:2011/10/24 16:02:00
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:et99_sample_vbnet.zip

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:et99_sample_vb.zip

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

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


--  作者:狐狸爸爸
--  发布时间: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编辑过]

--  作者:hanxuntx
--  发布时间:2011/10/24 17:42:00
--  

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

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

--  作者:hanxuntx
--  发布时间:2011/10/24 18:36:00
--  
还是有同样的错误提示啊
--  作者:hanxuntx
--  发布时间:2011/10/24 18:39:00
--  


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

 

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


--  作者:hanxuntx
--  发布时间:2011/10/24 19:20:00
--  


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

 

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