Ignore-O-Matic

I wrote this nice little snippet to ignore people without having to talk to them. Can be downloaded with wav files at: www.westergard.com/bjorn/ignore.zip

use Win32::Sound;
use Win32::GUI;
$MW = new Win32::GUI::Window(
    -title   => 'Ignore-O-matic',
    -left    => 100,
    -top     => 100,
    -width   => 150,
    -height  => 175,
    -name    => 'MainWindow',
    -visible => 1,
);
$because = $MW->AddButton(
    -text    => 'because!', 
    -name    => 'because',
    -left    => 25,
    -top     => 25,
);

$quiet = $MW->AddButton(
    -text    => 'Be Quiet!', 
    -name    => 'quiet',
    -left    => 25,
    -top     => 50,
);

$goaway = $MW->AddButton(
    -text    => 'Go AWAY!', 
    -name    => 'away',
    -left    => 25,
    -top     => 75,
);

$nocare = $MW->AddButton(
    -text    => 'I do not care!', 
    -name    => 'nocare',
    -left    => 25,
    -top     => 100,
);

$important = $MW->AddButton(
    -text    => 'More important!', 
    -name    => 'important',
    -left    => 25,
    -top     => 125,
);


my ($DOS) = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);

Win32::GUI::Dialog();

sub MainWindow_Terminate {
    $MW->PostQuitMessage(1);
}

sub quiet_Click {
Win32::Sound::Play("bequite.wav");
return 0;
}
sub because_Click {
Win32::Sound::Play("because.wav");
return 0;
}
sub away_Click {
Win32::Sound::Play("goaway.wav");
return 0;
}
sub nocare_Click {
Win32::Sound::Play("nocare.wav");
return 0;
}
sub important_Click {
Win32::Sound::Play("moreimportant.wav");
return 0;
}
[download]

Comment on Ignore-O-Matic Download Code

Replies are listed 'Best First'.
Re: Ignore-O-Matic by BrotherAde (Pilgrim) on May 07, 2001 at 13:11 UTC
We should also have a similar program: One with "yes", "go on", "do tell", "is that so?" and more buttons to give somebody the impression that you're listening to them. Could possibly even hook that up to the phone system... BrotherAde	[reply]
Re: Ignore-O-Matic by jorg (Friar) on May 11, 2001 at 17:50 UTC
Cool little program beretboy ! This slightly modified version brings your DOS window back afterwards when running it from the commandline. I know this code wasn't submitted for peer review but i couldn't resist :) use Win32::Sound; use Win32::GUI; $MW = new Win32::GUI::Window( -title => 'Ignore-O-matic', -left => 100, -top => 100, -width => 150, -height => 175, -name => 'MainWindow', -visible => 1, ); $because = $MW->AddButton( -text => 'because!', -name => 'because', -left => 25, -top => 25, ); $quiet = $MW->AddButton( -text => 'Be Quiet!', -name => 'quiet', -left => 25, -top => 50, ); $goaway = $MW->AddButton( -text => 'Go AWAY!', -name => 'away', -left => 25, -top => 75, ); $nocare = $MW->AddButton( -text => 'I do not care!', -name => 'nocare', -left => 25, -top => 100, ); $important = $MW->AddButton( -text => 'More important!', -name => 'important', -left => 25, -top => 125, ); my ($DOS) = Win32::GUI::GetPerlWindow(); Win32::GUI::Hide($DOS); Win32::GUI::Dialog(); sub MainWindow_Terminate { $MW->PostQuitMessage(1); Win32::GUI::Show($DOS); } sub quiet_Click { Win32::Sound::Play("bequite.wav"); return 0; } sub because_Click { Win32::Sound::Play("because.wav"); return 0; } sub away_Click { Win32::Sound::Play("goaway.wav"); return 0; } sub nocare_Click { Win32::Sound::Play("nocare.wav"); return 0; } sub important_Click { Win32::Sound::Play("moreimportant.wav"); return 0; } [download] Jorg "Do or do not, there is no try" -- Yoda	[reply] [d/l]
Re: Ignore-O-Matic by elwarren (Priest) on May 10, 2001 at 01:52 UTC
Not only is it a cufp, but I never realized it was just that easy to write a win32 app. Gives me something to tinker with this weekend...	[reply]
Re: Ignore-O-Matic by mexnix (Pilgrim) on May 11, 2001 at 00:08 UTC
The next generation in tech support technology...	[reply]
Re: Ignore-O-Matic by beretboy (Chaplain) on Jul 13, 2001 at 17:03 UTC
I complied this with perl2exe so I can now use it on systems that don't have perl! "Sanity is the playground of the unimaginative" -Unknown	[reply]