La bronca es COMO tienes declaradas las APIS... segun como las declares debes pasar los parametros de cierta manera...

para evitar estar poniendo mas y mas codigos...

unCrambleAPI

Sangriento Infierno Lunas!¡.

Option Explicit
'KERNEL32
Private Declare Function GetModuleFileName Lib "kernel32.dll" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function lstrlen Lib "kernel32.dll" Alias "lstrlenA" (ByVal lpString As String) As Long
 
Public Function GetMyPath() As String
    Dim sPath       As String * 260
    Call GetModuleFileName(App.hInstance, sPath, Len(sPath))
 
    GetMyPath = Left$(sPath, lstrlen(sPath))
End Function
 
Private Sub Form_Load()
    Debug.Print "Extension:", Mid$(GetMyPath, InStrRev(GetMyPath, ".") + 1)
End Sub

Saludos

Msgbox Right(App.EXEName,3)

Saludos

Buenooo se me fue la pinza quería decir:


sobre los hooks casi no hay info a nivel de teclado en VB


 

Hola... tengo un problema que llevo tiempo pensando pero sin resultado, hiceun simple keylogger y tal todo funciona bien, el problema esque cuando la ventana esta minimizada o tienes otra ventana por encima el programa no capta las teclas.


He probado con apis para tener siempre la ventana activa y varias cosas mas pero sin éxito.


Alguna solucion?