ctrl+alt+supr como las capturo?

[roman]

Empezado por seoane

La prueba de que la inyeccion de codigo funciona para interceptar el Ctr+Alt+Supr es que hay varios programas que lo consiguen de esta forma, en codeproject creo que hay algun ejemplo.

Pues no sé. Si tienes una referencia específica me gustaría verla porque siempre que he buscado acerca del Ctrl+Alt+Supr termino con GINA.

El tema es, desde luego, interesante, pero nunca me he metido a profundidad en las entrañas de Windows. El primer ejemplo que citaste aquí, lo vi pero no me metí a estudiarlo, pero con el segundo, que apenas hoy (ayer) ví, la cosa cambia porque, como dices, es más divertido

// Saludos

[[seoane]]

Empezado por roman

Pues no sé. Si tienes una referencia específica me gustaría verla porque siempre que he buscado acerca del Ctrl+Alt+Supr termino con GINA.

Por ejemplo este http://www.codeproject.com/win32/AntonioWinLock.asp

Código Delphi [-]
El primer ejemplo que citaste aquí, lo vi pero no me metí a estudiarlo, pero con el segundo, que apenas hoy (ayer) ví, la cosa cambia porque, como dices, es más divertido

Y seguro que podemos buscarle otras utilidades igual de divertidas

[roman]

Increible. Ese artículo ya lo había visto hace como medio año. Seguramente como no tenía ni la más remota idea de la inyección ni cómo hacerla, mi mente lo bloqueó Pues apenas tenga tiempo ya me veo estudiando su código.

// Saludos

[[ArdiIIa]]

Sigo indagando sobre este asunto, y al margen de haber visto componentes para Delphi (dwinlock) y que por cierto ya cita roman en alguno de sus hilos, así como las librerías de Mathias Rauen que alivian mucho código, básicamente todo se basa en el famoso código GINA, pero hay un concepto que no acabo de entender...
¿Es posible que la tan afamada clase "SAS Window class" sea encontrada por FindWindow cuando el código ha sido inyectado?
Quiero decir que bajo XP y en circunstancias normales, y sin inyectar nada, esa clase no la encuentro por ningún lado... con lo cual hacerle un SetWindowLong lo veo difícil a simple vista.
¿seaone, sabes algo de este asunto?
Por cierto, el código traducido a Delphi, se puede encontrar en la web de Liu Yang LYSoft.
Solamente hay que inyectar la Dll propuesta, pero sigo con la duda de esa clase...

[[seoane]]

No la encuentras porque se encuentra en un escritorio diferente. FindWindows solo encuentra las ventanas que están en el mismo escritorio que la aplicación que la llama. Así que antes de nada tenemos que meternos en el mismo escritorio que la ventana en cuestión.

Eso es lo que intento en el primer código que puse, con las funciones SetProcessWindowStation y SetThreadDesktop. Una vez estamos en el mismo escritorio ya podemos interactuar con la ventana famosa.

De todas formas, si no estoy equivocado, cuando inyectas código dentro de otro proceso, este pasa a formar parte del el, es decir, pasa a tener el mismo escritorio y los mismo permisos. Así que una vez inyectado el código no tendríamos ningún problema en localizar la ventana, sin necesidad de andar saltando de un escritorio a otro.

[[ArdiIIa]]

Empezado por seoane

De todas formas, si no estoy equivocado, cuando inyectas código dentro de otro proceso, este pasa a formar parte del el...

Si eso tiene su lógica, pero el tema de "otro escritorio", es difícil de asumir... ya por curiosidad más que por conseguirlo (que visto lo visto es posible), estoy mirando por "Undocumented Windows" a ver si me aclaro con estos conceptos...

Vale, parece que no es una cuestión nada indocumentada...

[[ArdiIIa]]

Empezado por seoane

cuando se pulsa Ctrl+Alt+Sup windows manda el mensaje WM_HOTKEY a una ventana del proceso winlogon.exe. Pues bien, hasta ahora he conseguido estar en el mismo desktop que esa ventana

Pues he estado haciendo varias pruebas y no hay manera de obtener un handle bueno en:

Código Delphi [-]
Desktop:= OpenDesktop('Winlogon', 0, FALSE, MAXIMUM_ALLOWED);

Con diferentes parámetros e incluso ejecutándolo como servicio, siempre Desktop me devuelve CERO, con lo cual, la jodi** clase SAS.. no la voy a ver nunca...

Al menos ya me he aclarado un poco con el tema de los desktop y para verlo con mis propios ojos he encontrado este código que es muy ilustrativo y sencillo:

Código Delphi [-]
//Hace falta un treeview
//CODIGO OBTENIDO DE: http://www.delphipraxis.net/topic23721.html

function EnumDesktopProc(lpszDesktop:LPTSTR;lParam:LPARAM):Boolean; stdcall;
Var Clase : Array[0..200] of char;
begin
Form1.Treeview1.Items.AddChild(Form1.Treeview1.Items.Item[lParam],lpszDesktop).AbsoluteIndex;
result:=true;
end;

function EnumWindowStationProc(lpszWindowStation:LPTSTR; lParam:LPARAM): Boolean; stdcall;
begin
EnumDesktops(OpenWindowStation(lpszWindowStation,false,GENERIC_READ),@EnumDesktopProc,Form1.Treeview  1.Items.AddChild(Form1.Treeview1.Items.Item[lParam],lpszWindowStation).AbsoluteIndex);
result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Treeview1.Items.Clear;
EnumWindowStations(@EnumWindowStationProc,Treeview1.Items.AddChildFirst(nil,'PC').AbsoluteIndex);
Treeview1.FullExpand;
end;

Al final, a mí también me aburre el tema, así que dejo de curiosear, me parece demasiado esfuerzo para tan poca cosa... De hecho hay componentes y Dll GINA para meter mano al asunto, si se me diera el caso de necesitarlo, retomaría el asunto... pero lo dudo...

[erickahr]

Hola a todos, perdon por mi ignorancia compañeros, intente compilar el codigo de ArdiIIa en delphi 2010 con Win 7, y me bota error 216, es cosa del S.O. o lo estoy haciendo mal?