Indetectables

Código: Seleccionar todo

    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

Código: Seleccionar todo

    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