試了好多呼叫方法都不行
直接參考和呼叫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
uj5u.com熱心網友回復：
這玩意似乎挺惡心的嘞。。。直接呼叫API，就像你呼叫的loadlibrary一樣呼叫它的函式，用x86編譯。
然后，貌似只能在打標機上除錯。。。好像是加密狗的事來
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/80487.html
標籤：VB.NET
上一篇：C# 專案配置問題。
下一篇：影像二值化