16,553
社区成员
发帖
与我相关
我的任务
分享
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