sheetomg
2007-06-18 21:29:53
hey, my first nooby autospammer, im going to be releasing a powerminer soon which is going to own but for now heres a simple spammer, yikes i spelt krockxis supersmammer instead of *spammer.
2007-06-18 21:29:53
2007-06-18 22:06:35
{==============================================================================================]
| krockxis auto spammer |
| Description: |
| 1) Very simple auto spammer |
[==============================================================================================}
program SuperSpammer;
Const
Thewordstosay = 'this is a nooby spammer';//type the stuff you want to say here
procedure signuture;
begin;
writeln(' __ __ .__ ')
Writeln('| | _________ ____ ____ | | _____ __|__| ______ ')
Writeln('| |/ /\_ __ \/ _ \_/ ___\| |/ /\ \/ / |/ ___/ ')
Writeln('| < | | \( <_> ) \___| < > <| |\___ \ ')
Writeln('|__|_ \ |__| \____/ \___ >__|_ \/__/\_ \__/____ > ')
Writeln(' \/ \/ \/ \/ \/ ')
end;
procedure Talk;
begin
repeat
if(IsFKeyDown(9))then ;// change the 9 between the brackets if your not happy with F9
begin
sendkeys(Thewordstosay);
SendKeysVb('{ENTER}',false);
end;
wait(450+random(200));//If you want faster messages than change the speed
until(false)
end;
begin
Signuture;
repeat
Talk;
until(false)
end.
2007-06-18 22:08:55
2007-06-18 22:14:04
2007-06-18 23:01:38
2007-06-19 17:55:18