• 主页
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API

金橙子的函数库这个根本没法调用

qq_28640889 2020-01-04 08:07:20
试了好多调用方法都不行

直接引用和调用API函数调用也不行
   Private Function GetProcAddress(ByVal hModule As IntPtr, ByVal procName As String) As UIntPtr
End Function
<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Ansi)> _
Public Shared Function LoadLibrary(ByVal lpFileName As String) As IntPtr
End Function
<DllImport("kernel32.dll", SetLastError:=True, EntryPoint:="FreeLibrary")> _
Public Shared Function FreeLibrary(ByVal hModule As IntPtr) As Boolean
End Function


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile("E:\设备项目\项目\影像检测\激光刻字+影像\EzCad270-开发版\EzCad270-OPEN\MarkEzd.dll")
' Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.LoadFrom("E:\设备项目\项目\影像检测\激光刻字+影像\EzCad270-开发版\EzCad270-OPEN\MarkEzd.dll")
Dim A As IntPtr = LoadLibrary(" 路径及名称 ")
ListBox1.Items.Add("句柄:" & A.ToString)
Dim C As String = "LmcLib.LmcErrCode"
Dim B As UIntPtr = GetProcAddress(A, C)
ListBox1.Items.Add("DLL中的输出函数地址:" & B.ToString)
ListBox1.Items.Add("指针指向的函数名:" & C)
Dim D As Boolean = FreeLibrary(A)
ListBox1.Items.Add("释放结果:" & D)
Dim aa As LmcLib.LmcErrCode

End Sub
...全文
22 点赞 收藏 2
写回复
2 条回复
qq_28640889 04月19日
这个问题我已解决,直接引用里面的LmcLib.dll 直接用里面的函数就行
回复 点赞
清晨曦月 2020年01月04日
这玩意似乎挺恶心的嘞。。。
直接调用API,就像你调用的loadlibrary一样调用它的函数,用x86编译。

然后,貌似只能在打标机上调试。。。好像是加密狗的事来
回复 点赞
发动态
发帖子
VB
创建于2007-09-28

1.1w+

社区成员

11.0w+

社区内容

VB技术相关讨论,主要为经典vb,即VB6.0
社区公告
暂无公告