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

[qq_28640889]

试了好多调用方法都不行

直接引用和调用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

[清晨曦月]

这玩意似乎挺恶心的嘞。。。
直接调用API，就像你调用的loadlibrary一样调用它的函数，用x86编译。

然后，貌似只能在打标机上调试。。。好像是加密狗的事来

[qq_28640889]

这个问题我已解决，直接引用里面的LmcLib.dll 直接用里面的函数就行