SRL Archive - Help and Support

Ok… I made an Auto login… I'm wanting to make it better so It will work on any computer…because some computers are faster than others… and i want it to like repeat find bitmap and click thing until they find the bitmap and then go to the next one understand?

/////////////////////////////////////////////////////////////////
//                     Auto Login                              //
//                    By: Whitevans1                           //
/////////////////////////////////////////////////////////////////
//                     Instructions:                           //
// 1. Type In Username                                         //
// 2. Type In Password                                         //
// 3. Hit Ctrl+Alt+R                                           //
/////////////////////////////////////////////////////////////////
program AutoLogin;


//-------------------------------------------------------------\\
const
Username='';//Your username
Password='';//Your password
//-------------------------------------------------------------\\

var
x,y: integer;
firstlogin: Integer;
secondlogin: Integer;
thirdlogin: Integer;
fourthlogin: Integer;
finallogin: Integer;

//-------------------------------------------------------------\\
Procedure Login;
begin
  firstlogin := BitmapFromString(17, 10, 'z78DA8D52410AC0200C' +
       'FB92CC08DB5198FEFF4903DD21254B590F456A4D93D43AEAC4850' +
       '3C0C089DE801BB3F5F7BCEB92EB7AC5D975DABCF1D3293CEBD7AD' +
       '62B2A2952705D7C35BC74D6E039A702B148C36D350E41D014D701' +
       'CAB9286EBE4CD6A0FBB9AAB705A7483F9947D76CC73C79CF3ECA4' +
       'DB7EEEA42A725AB49EEF373017EDF68F99FA07F2EA79000394E77' +
       '4');
if(FindBitmap(firstlogin, x, y))then
ClickMouse(x,y, true);
wait(500);
  secondlogin := BitmapFromString(20, 10, 'z78DABD933B0E80300' +
       'C43AF048A91602CBFFB1F09A9ED90C84955C4278307E3E6A551C1' +
       '08C18E6E955D4E2C3D8A19691247A98FA1A88C4926592155DB67A' +
       '30E34DBD951CC2D3DA33C6FACFA441C72B51DEEA393EDBCDEC95D' +
       '6E71A2B3D13CDF71B9F4065EE36E38A625A21822BDB1E75CA63BA' +
       'F4B718D939527344EEEEFDCA2287D756ECD7FD9EF7A01BC4C129D' +
       '');
if(FindBitmap(secondlogin, x, y))then
ClickMouse(x,y, true);
SendKeysSilent(username);
Wait(1000);
  thirdlogin := BitmapFromString(17, 5, 'z78DA737343000324606' +
       '268626CE20221DD30D4608A183B1A3B99181BBB18BB9958229B03' +
       '11C169BE8589A3A9B11B0E3760B1056C1A84447621B23B31DD8FC' +
       'B17F8C5719103600B3894304937BC0097EDC8B600006C1D7452');
if(FindBitmap(thirdlogin, x, y))then
ClickMouse(x,y, true);
SendKeysSilent(password)
Wait(704);
  fourthlogin := BitmapFromString(12, 7, 'z78DA9591410AC0200C' +
       '04BF24660BED51C1FCFF49051370254D69F73087A8434C5457CA0' +
       'C2A808113ED8073566488E2F2D3407DF790C1D9A403910F1E3244' +
       '6E862A22DD98F6C36FA913FD10F36CBF480C859279FE4E32F5F0A' +
       '688D94DABDCA53C746D');
if(FindBitmap(fourthlogin, x, y))then
ClickMouse(x,y, true);
Wait(6000);
  finallogin := BitmapFromString(39, 10, 'z78DA8D954B8EC3300C' +
       '43AF242775DA2EA79FDCFF4803985A3C8391512F8C4026F597723' +
       'FF76DDB8EDE22FAF16AEF78EABBF738A2A5FCBB45EBFABE3D628B' +
       '48E4B853026472A14D98FED77A3C241766D23690F7E10F6FBED2C' +
       'F0B245ED3A279324547B9B1269D60251739A106C5A8FBF9BE9DFB' +
       '47F2FD157BC4A413B99A22B55BAF6E57726916322D8ED7D38EC77' +
       '2F16AB5D67D16A7CAA12325CF48879549CF90E8D5E5CAA7770B91' +
       '314E65D191CA1B2B2E2B55A462FD6E9DB55E2303473E783F3B529' +
       'E3BD735674FA2E729A93CF13A4EB6069712AFE99AEBB3468BF461' +
       'EA1CCC451529319C9A8B6A62222EB481EBBBE89718739AB001DCA' +
       '2F0CC404681FD50FA56ECC62AD26A16A60DC68D54E4CDB3C79C73' +
       'D7D1226BEA3D29D6BA46DC84556698F32A6FDE7555F7B2F7C8E54' +
       '6626F784D3971B2524D16BD22B7AADA7ABF91CB1E5EEF73B7EB33' +
       'E835F54CAE23ADF457F875A4E4AEFF5CD53F82FA39A792FC03E7B' +
       'F057B');
if(FindBitmap(finallogin, x, y))then
ClickMouse(x,y, true);
end;
begin
Login;
end.

I was thinking use repeat until then or something but i'm really not sure any advice on how to make it better or how to make it keep looking for the next bitmap until it finds it would help alot…

soemthing like this?

function  emmmmm;
var tol, bitmap : integer;
begin
   if(findbitmapspiraltolerance(x,y,bitmaps,x1,y1,x2,y2,tol))then
     begin
          Mmosue(x,y,5,5)
          result:= true;
        end;
    if not result then
tol:= tol+1;
until result or (tol=50)
end;

Here is how you should do it. This will make it so that it will wait until the screen has loaded and the bitmap is seen.

procedure waituntilb; [I]//procedure name[/I]
begin //begins procedure
  var bitmap: Integer; [I]//makes 'bitmap' a Integer [b]var[/b]iable[/I]
  bitmap:=(0,0,dgisgjosf2-35i90g348ygm); [I]//the bitmap[/I]
  repeat [I]//starts repeating the following:[/I]
   wait(500);[I] //waits for 500 milliseconds(half a second)[/I]
  until(findbitmap(bitmap,x,y); [I]//end of the repeating proccess, it will stop once it finds the bitmap[/I]
end; [I]//ends procedure[/I]

Hope that helped, if you need any questions just PM me.
Btw, you don't have to use that procedure to wait, as the bitmap is not a vaild one and the procedure will ot work.