Results 1 to 3 of 3

Thread: Facebook Log In Script

  1. #1
    Join Date
    Sep 2010
    Location
    Azeroth
    Posts
    395
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default Facebook Log In Script

    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('78DA630C64606090624001CBB75E04D38C5 03' +
    'EE33A202189AAC63A7206AA1A2620214E404D10906022428D 3A01' +
    '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!!

  2. #2
    Join Date
    May 2007
    Location
    Everywhere
    Posts
    1,428
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    You could write it like this

    SCAR Code:
    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 [/scar] tags


    I don't use SCAR anymore, I use simba. You won't get typekeys with it though :/
    Last edited by Cstrike; 09-03-2010 at 06:23 PM.

  3. #3
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

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

    You can also use Simba tags; [simba ] [/simba ]

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •