Un simple programa para revelar los famosos asteriscos.
El clasico de los clasicos xDD.
Una imagen :
El codigo :
Si quieren bajarlo pueden hacerlo de aca.
El clasico de los clasicos xDD.
Una imagen :
El codigo :
Código (delphi) [Seleccionar]
// Magic Click 0.2
// Coded By Doddy H
// Credits : Thanks to Victory Fernandes for their excellent manual on how to reveal asterisks
unit magic;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, sSkinManager, jpeg, ExtCtrls, StdCtrls, sEdit, sGroupBox, sButton;
type
TForm1 = class(TForm)
sSkinManager1: TsSkinManager;
Image1: TImage;
sGroupBox1: TsGroupBox;
sEdit1: TsEdit;
sGroupBox2: TsGroupBox;
sButton1: TsButton;
sButton2: TsButton;
sButton3: TsButton;
Timer1: TTimer;
procedure sButton2Click(Sender: TObject);
procedure sButton3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure sButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
sSkinManager1.SkinName := 'neonnight';
sSkinManager1.Active := True;
Timer1.Enabled := True;
end;
procedure TForm1.sButton2Click(Sender: TObject);
begin
ShowMessage('Contact to lepuke[at]hotmail[com]');
end;
procedure TForm1.sButton1Click(Sender: TObject);
begin
sEdit1.SelectAll;
sEdit1.CopyToClipboard;
end;
procedure TForm1.sButton3Click(Sender: TObject);
begin
Form1.Close();
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
posicion: TPoint;
password: array [0 .. 63] of Char;
need: HWND;
begin
GetCursorPos(posicion);
need := WindowFromPoint(posicion);
if SendMessage(need, EM_GETPASSWORDCHAR, 0, 0) <> 0 then
begin
SendMessage(need, WM_GETTEXT, 64, Longint(@password));
sEdit1.Text := password;
end;
end;
end.
// The End ?
Si quieren bajarlo pueden hacerlo de aca.
