Material escrito en delphi7, usando apis.
El quid en este caso, no es el mas elegante, pero vale.
Entrar en nod32, presiona: control+u <--- muestra caja de insercion de user y pwd Inserta username tecla tabular Inserta password Enter El codigo queda inmerso en registro de windows, listo para actualizar. Todo via codigo en delphi. Cualquier informacion, sugerencia, bienvenido.
procedure TForm1.Button1Click(Sender: TObject);varHandle1:hwnd;beginHandle1 := FindWindowEx(0, 0, 'ESET Client Frame', nil); //Estoy en Nod32SetForegroundWindow(Handle1); //Nod32 en primer plano//CTRL+U <--- LLamada pantalla de password y usernamekeybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0); // Tecla Controlkeybd_event(Ord('U'), MapVirtualKey(Ord('U'), 0), 0, 0); // Tecla Ukeybd_event(Ord('U'), MapVirtualKey(Ord('U'), 0), KEYEVENTF_KEYUP, 0); // Soltar tecla Ukeybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0); // Soltar tecla Ctrl//CTRL+V <--- Pega usernameClipBoard.SetTextBuf(Pchar(Edit1.text));
// De concepto, Aqui aplicar codigo respectivokeybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(Ord(
'V'), MapVirtualKey(Ord('V'), 0), 0, 0);
keybd_event(Ord('
V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);
// Para que el asunto no vaya demasiado rapido, y quede perfecto!Sleep(100);
// TABULAR <--- de username a passwordkeybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), 0, 0);
keybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), KEYEVENTF_KEYUP, 0);
//CTRL+V <--- Pega passwordClipBoard.SetTextBuf(Pchar(Edit2.text));
// De concepto, Aqui aplicar codigo respectivokeybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(Ord('
V'), MapVirtualKey(Ord('
V'), 0), 0, 0);
keybd_event(Ord('
V'), MapVirtualKey(Ord('
V'), 0), KEYEVENTF_KEYUP, 0);
//ENTER aceptarkeybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN, 0), 0, 0);
keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN, 0), KEYEVENTF_KEYUP, 0);
end;Codigo fuente/source code