Siempre quize hacer la tipica broma donde te mandan un programa donde aparece la foto de una mina en tetas y cuando queres cerrar la ventana en vez de cerrarse se multiplica.
Si la victima no quiere cerrar la ventana puse un timer cada 1 segundo para que se multiplique de todas formas.

Hice algo asi en delphi , pondria una captura del programa en accion pero me borrarian la imagen xDD.

El codigo.

Código: Seleccionar todo

// Joke : Big Tits
// (C) Doddy Hackman 2013

unit big;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, acPNG, ExtCtrls, Math;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure nomepiensoir();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.nomepiensoir;

// Based on : http://delphi.about.com/od/adptips2006/qt/formclone.htm
// Thanks to Zarko Gajic

var

  parte1: TMemoryStream;
  acatoy: TForm;

const
  dimensiones: array [1 .. 5] of string = ('100', '200', '300', '400', '500');

begin

  parte1 := TMemoryStream.Create;
  parte1.WriteComponent(Form1);

  parte1.Position := 0;

  acatoy := TFormClass(Form1.ClassType).CreateNew(Application);
  parte1.ReadComponent(acatoy);

  acatoy.Left := Form1.Left + StrToInt(dimensiones[RandomRange(1, 5)]);
  acatoy.Top := Form1.Top + StrToInt(dimensiones[RandomRange(1, 5)]);

  acatoy.Show;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  nomepiensoir();
  Abort;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  nomepiensoir();
end;

end.

// The End ?
Si lo quieren bajar lo pueden hacer de [Enlace externo eliminado para invitados].
Jaja algo pasado xD
[code2=masm]"For the honor of a king. And the destiny of a country. All for one."[/code2]
Doddy escribió:lo probaste ?
Si funcional en win 8 x64
[code2=masm]"For the honor of a king. And the destiny of a country. All for one."[/code2]
a la mierda que sugerente
como que la chica esta esperando algo

encontre este en un foro ruso
[Enlace externo eliminado para invitados]

[Enlace externo eliminado para invitados]
para salir
oprimir tecla escape[esc] o
ctrl+ alt +sup y terminar el proceso
paresco malo ,pero soy bueno
muy ofuscado escribió:a la mierda que sugerente
como que la chica esta esperando algo

encontre este en un foro ruso
[Enlace externo eliminado para invitados]

[Enlace externo eliminado para invitados]
para salir
oprimir tecla escape[esc] o
ctrl+ alt +sup y terminar el proceso

Pues en windows 8 con solo dar doble clic en cualquier lado se quita
es similar,solo que en ve de la mina en tetas salen paginas xxx y gemidos :v y e multipican cada 3 segundos

do
Set WshShell = WScript.CreateObject("WScript.Shell")
Set IExp = CreateObject("InternetExplorer.Application")
Set WSHShell = WScript.CreateObject("WScript.Shell")

IExp.Width = 800
IExp.Height = 600
IExp.Left = 0
IExp.Top = 0

IExp.Visible = True
IExp.TheaterMode = True

Do While (IExp.Busy)
Wscript.Sleep 200
Loop

IExp.navigate "[Enlace externo eliminado para invitados]"
IExp.navigate "[Enlace externo eliminado para invitados]"
IExp.navigate "[Enlace externo eliminado para invitados]"
IExp.navigate "[Enlace externo eliminado para invitados]"
IExp.navigate "[Enlace externo eliminado para invitados]"


WScript.Sleep 3000

loop
@coxte16 : jajaajaja , si , y tambien aparecen tios en tu version , me hace acordar a una broma asi de elgranoscarin.
No es viejo ni ná, estos programas recuerdo que los ponian para descarga en una web y cuando intentabas cerrarlo se multiplicaban como tu dices, eran divertidos
Habla conmigo en ICQ; 702402114
Responder

Volver a “Nuestros Programas”