SRL Archive - Other Scripts

Face book log in script, very practical if anything.. maybe somebody could learn about some function here because nobody focuses on these one as my noob experience grows greater.
///////////////////////////////////////////////////////////////////////////////////////


program JoesInstaLogger;
var
DTM, x, y : integer;
begin
ActivateClient;
openwebpage('http://www.facebook.com');wait(3000);

DTM := DTMFromString('78DA630C64606090624001CBB75E04D38C503' +
'EE33A202189AAC63A7206AA1A2620214E404D10906022428D3A01' +
'3520F73013E11E3522D41032672D61F7000070390F6A');

if(finddtm(DTM,x,y, 0, 0, 500, 500))then
freedtm(dtm);
typekeys('YOEMAILGOESHERE');//this is where your facebook email goes
keydown(9);
typekeys('YOPASSWORDGOHERE');//this is where your facebook password goes
keydown(13);

end.



///////////////////////////////////////////////////////////////////////////////////////





ALSO CAN SOMEONE help me by telling me how to post professional looking threads??? please!!

You could write it like this

program JoesInstaLogger;
{.include SRL\SRL.scar}

var DTM, x, y, time : integer;
begin
  ActivateClient;
  openwebpage('http://www.facebook.com');
  DTM := DTMFromString('78DA630C64606090624001CBB75E04D38C5 03' +
  'EE33A202189AAC63A7206AA1A2620214E404D10906022428D 3A01' +
  '3520F73013E11E3522D41032672D61F7000070390F6A');
  MarkTime (time);
  repeat
    if(finddtm(DTM,x,y, 0, 0, 500, 500)) then break;
    wait (100);
  until (TimeFromMark (time) > 30000) // If greater than 30 seconds, abort
  freedtm(dtm);
  if TimeFromMark(time) > 30000) then
  begin
    writeln ('Could not load webpage');
    TerminateScript;
  end;
  Mouse (x, y, 0, 0, true);
  typekeys('YOEMAILGOESHERE');//this is where your facebook email goes
  keydown(9);
  typekeys('YOPASSWORDGOHERE');//this is where your facebook password goes
  keydown(13);
end.

NOTE THE ABOVE DOESNT COMPILE. I keep getting an error with Math.scar from the SRL include (using scar 3.22), but I do not get this error with simba. I guess SCAR 3.22 is out of date or SRL isnt supported in SCAR as much anymore?


Just use tags


I don't use SCAR anymore, I use simba. You won't get typekeys with it though :/

You'll need SetupSRL for Mouse to function properly. Or set the mouse speed.

You can also use Simba tags;

~RM