Cita de: raul338 en 16 Junio 2013, 01:44 AMCódigo [Seleccionar]entraste al link que te deje? tiene un buscador, ahí ponias "LoadLibrary" y te salia una definicion como esta
[url=http://www.pinvoke.net/default.aspx/kernel32/LoadLibrary.html]LoadLibraryCódigo (vbnet) [Seleccionar]<DllImport("kernel32.dll", SetLastError:=True)> _
Public Shared Function LoadLibrary(ByVal lpFileName As String) As IntPtr
End Function
Copias y pegas, y lo llamas como si fuera una funcion.
Si no entendes la sintaxis de vb.net, busca algun tutorial!
Ya solucione mi problema pero utilice otras maneras de declarar las funciones ya que con esta me lanzaba excepción tras excepción y/o errores!! ..
Para declarar las funciones utilizo esto :
Código [Seleccionar]
Dim X As Long
Dim Y As Long
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" _
(ByVal lpLibFileName As String) As Long
Public Declare Function FreeLibrary Lib "kernel32" _
(ByVal hLibModule As Long) As Long
Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As _
Long, ByVal lpProcName As String) As Long
Public Declare Function CallWindowProc Lib "user32" Alias _
"CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, _
ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Y despues sobre el form para que abra la dll y se cierre utilizo esto :
Código [Seleccionar]
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
X = LoadLibrary("c:\My_DLL.dll")
Y = GetProcAddress(X, "MyDLLFunc1")
Me.Close()
End Sub
Saludos gracias google ayuda ! ..
en este foro pero ninguno responde mi pregunta de como hacer un simple LoadLibrary , como declarar la función y como hacer que el form autoinjecte una ".dll "
.