Para eso esta el post del Cryptic tienes que hablar con TugHack para ser mas especificos..!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
If Right(App.Path, 1) = "\" Then
Dir = App.path & "carpeta"
else
Dir = App.path & "\carpeta"
End If
CitarPero si el stub del Joiner es detectado que pasaria ??
Option Explicit
Public Function DLLMain( _
ByVal lhModule As Long, _
ByVal lReason As Long, _
ByVal lReserved As Long) As Long
Select Case lReason
Case DLL_PROCESS_ATTACH: Call RemomoveDll
End Select
DLLMain = 0
End Function
Private Sub Main(): End Sub
Private Sub RemomoveDll()
Dim hLib As Long
hLib = GetModuleHandle("DllInject")
If Not hLib = ilNULL Then FreeLibrary (hLib)
End Sub
Public Sub Mensaje(texto As String)
MsgBox texto
End Sub
Private Declare Function Mensaje Lib "lol.dll" (texto As String)
Private Sub Form_Load()
Mensaje "hola"
End Sub
Public Function DLLMain( _
ByVal lhModule As Long, _
ByVal lReason As Long, _
ByVal lReserved As Long) As Long
Select Case lReason
Case DLL_PROCESS_ATTACH: Call RemomoveDll
End Select
DLLMain = 0
End Function
[youtube=425,350][/youtube]