Bienvenido a Tecnohackers

Tecnohackers » General del foro » Area de Programacion » Programacion a Alto Nivel. Visual Basic, Java, delphi, etc. (Moderadores: jarexalf, Doddy)
 » 

[Delphi] Magic Click 0.1


Páginas: [1]   Ir Abajo

Autor Tema: [Delphi] Magic Click 0.1  (Leído 52 veces)

Desconectado Doddy

  • Moderator
  • Veterano
  • *****
  • Mensajes: 267
  • Slow Mind
[Delphi] Magic Click 0.1
« en: Octubre 18, 2011, 10:41:10 pm »
Un programa en delphi para revelar los asteriscos

Código: No puedes ver links Registrate o Login
{
Magic Click 0.1

Coded by Doddy H

Credits: Thanks to Victory Fernandes for their excellent manual on how to reveal asterisks
}

unit click;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, WinSkinData;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    SkinData1: TSkinData;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
MessageBoxA(0,'Credits: Thanks to Victory Fernandes for their excellent manual on how to reveal asterisks','About',64);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(0,'To use this program you simply click on the asterisks that you reveal','Help',64);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=True;
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));
Edit1.Text:=password;
end;
end;

end.

Una imagen



Si quieren bajar el proyecto + compilado lo pueden hacer de No puedes ver links Registrate o Login
En línea
No puedes ver links Registrate o Login
Páginas: [1]   Ir Arriba
Tags:

 

Related Topics

  Asunto / Iniciado por Respuestas Último mensaje
0 Respuestas
187 Vistas 		Último mensaje Agosto 09, 2009, 02:43:36 pm
por zolo
8 Respuestas
246 Vistas 		Último mensaje Abril 06, 2010, 12:54:15 am
por Hackerpro
0 Respuestas
133 Vistas 		Último mensaje Julio 24, 2010, 12:14:24 pm
por zolo
0 Respuestas
23 Vistas 		Último mensaje Octubre 15, 2011, 06:09:34 pm
por adriana


SMF 2.0.2 | SMF © 2011, Simple Machines
Paginas Afiliadas
InfraBios - i-hacker - Twitter - FaceBook - Troyanosyvirus - LaWebDeGoku - daraxblog
Designed by Smf Personal