SRL Archive - Other Scripts

/////////////////////////////////////////////////////////////////////////////////////////////////////////////// 
  /////////////////////////////////////////////////////////////////////////////////////////////////////////////// 
  ////////////////////////////THIS SPAMMER BROUGHT TO YOU BY NEWGUY45//////////////////////////////////////////// 
  /////////////////////////////////////////////////////////////////////////////////////////////////////////////// 
  /////////////////////////////////////////////////////////////////////////////////////////////////////////////// 

   program Spamer; 
   procedure actavatemail; 
  begin 
    openwebpage('http://yahoo.com/'); // this can be yahoo or aol 
    wait(3000); 
    movemousesmooth(783, 165); //replace 826, 215 with the cords of your mail icon 
    wait(500); 
    clickmouse(783, 165, true); //replace 826, 215 with the cords of your mail icon 
    wait(500); 
    movemousesmooth(899, 249); //replace 905, 292 with the cords of the screenname box 
    wait(500); 
    clickmouse(899, 249, true); //replace 905, 292 with the cords of the screenname box 
    wait(500) 
    sendkeys('name'); //replace neme with your yahoo name. 
    wait(500); 
    clickmouse(892, 274, true); //replace 875, 321 with the cords of the password box 
    wait(500); 
    sendkeys('pass'); //replace pass with your yahoo pass. 
    wait(500); 
    movemousesmooth(963, 336); //replace 957, 383 with the cords of the submit butten. 
    wait(500); 
    clickmouse(963, 336, true); //replace 957, 383 with the cords of the submit butten. 
   end; 
   procedure spam; 
  begin 
    movemousesmooth(153, 237); //replace 118, 282 with the cords of your compose mail butten. 
    wait(500); 
    clickmouse(153, 237, true); //replace 118, 282 with the cords of your compose mail butten. 
    wait(500); 
    movemousesmooth(108, 310); //replace 102, 346 with the cords of the "to:" box. 
    wait(500); 
    clickmouse(108, 310, true); //replace 102, 346 with the cords of the "to:" box. 
    wait(500); 
    sendkeys('name'); //replace name with the person who you spaming's screename. 
    wait(500); 
    movemousesmooth(379, 335); //replace 136, 374 with the cords of the "subject" box. 
    wait(500); 
    clickmouse(379, 335, true); //replace 136, 374 with the cords of the "subject" box. 
    wait(500); 
    sendkeys('hi'); //no need to change this really... 
    wait(500); 
    movemousesmooth(354, 521); //replace 161, 572 with the cords of your "message' box. 
    wait(500); 
    clickmouse(354, 521, true); //replace 161, 572 with the cords of your "message' box. 
    wait(500); 
    sendkeys('spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam '); 
    sendkeys('spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam '); 
    sendkeys('spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam '); 
    sendkeys('spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam '); 
    sendkeys('spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam '); 
    sendkeys('spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam '); 
    sendkeys('spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam '); 
    sendkeys('spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam '); 
    sendkeys('spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam '); 
    sendkeys('spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam spam '); 
    wait(500) 
    movemousesmooth(37, 714); //replace 37, 714 with the cords of the send mail butten. 
    wait(500); 
    clickmouse(37, 714, true); //replace 37, 714 with the cords of the send mail butten. 
    wait(500) 
    movemousesmooth(1264, 16); //replace 1264, 16 with the cords of the "x" butten that closes the window. 
    wait(500) 
    clickmouse(1264, 16, true); //replace 1264, 16 with the cords of the "x" butten that closes the window. 
   end; 
   var count:integer; 
  begin 
   repeat 
    count:=(0); 
    actavatemail; 
    wait(500); 
    spam; 
    count:=count+1; 
   until(count = 10) 
  end.

On the SendKeys part, you could do:

for i:=0 to 1000 do
sendkeys('blabla');

You'd need i as a var though.

so i:

var i:Integer
begin
i:=0;
for i:=0 to 1000 do
sendkeys('blabla');

Run this script:

var
i : Integer;

begin
for i:=0 to 15 do
begin
Writeln('Hi');
Wait(250);
end;
end.

oh so basicaly its another repeat method, i was hopeing it could do something for so long like:

do
sendkeys('ljkgjfkghjlekgnrhf');
for
15 secs

This'd do the trick for 15 seconds ;)

begin
  i := GetSystemTime;
  While(i+15000>GetSystemTime)Do
    SendKeys('ljkgjfkghjlekgnrhf');
end.

I encourage you to take a look at the tutorial found in my signature ;) There are many things for everyone to learn from it (including these loops) :p

so that will

SendKeys('ljkgjfkghjlekgnrhf');

for 15 secs?

Yes.

var i: integer;
begin
 for i:= 1 to 10 do
   SendKeys('Hi..');
end.

Using that as an example that would send, "Hi..", 10 times. It will use the integer i to count the runs during that loop. :)

thanks kane, i rember your scar tut back at kaitnieks u taught me how to use bitmaps :o

That's great to hear. :)