Results 1 to 6 of 6

Thread: How do i get this to work?

  1. #1
    Join Date
    May 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default How do i get this to work?

    Line 10: [Error] (16767:10): Type mismatch in script

    Hmm?

    Code:
    program UserCracker;
    {.Include SRL\SRL.scar}
    var
    names,size:string;
    usernames:integer;
    begin
        usernames:= OpenFile('C:\usernames.txt', false);
        ReadFileString(usernames, names, FileSize(usernames));
        Explode(', ',names);
         For names:= 0 to 4000 do
          KeyDown(BACKSPACE);
          sleep(600)
          KeyUp(BACKSPACE);
         Clickmouse(752, 460, true);
          SendKeys(names);
           Clickmouse(488, 596, true);
        until(false);
    end.

  2. #2
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    Quote Originally Posted by kewlscaper View Post
    Line 10: [Error] (16767:10): Type mismatch in script

    Hmm?

    Code:
    program UserCracker;
    {.Include SRL\SRL.scar}
    var
    names,size:string;
    usernames:integer;
    begin
        usernames:= OpenFile('C:\usernames.txt', false);
        ReadFileString(usernames, names, FileSize(usernames));
        Explode(', ',names);
         For names:= 0 to 4000 do
          KeyDown(BACKSPACE);
          sleep(600)
          KeyUp(BACKSPACE);
         Clickmouse(752, 460, true);
          SendKeys(names);
           Clickmouse(488, 596, true);
        until(false);
    end.
    end.
    your type is missmatched

  3. #3
    Join Date
    May 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    fix it for me plz? im still learning i just cant figure it out
    I dont understand the explode function
    it breaks a string up into a array and but i dunno how im sopost to use that array becuz i get type mismatch
    Last edited by kewlscaper; 05-08-2009 at 01:13 AM.

  4. #4
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you have to declare an integer to go through the for statement, and you need an array for all of the names. Then you have to iterate through the array with the for statement
    ~ Metagen

  5. #5
    Join Date
    May 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i got no idea what u just said lol well i sort of do but its jus confusing for a beginner can sum1 plz get it workin plz id realli appreciate it

  6. #6
    Join Date
    Dec 2008
    Location
    In a galaxy far, far away...
    Posts
    584
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here you go bro!

    SCAR Code:
    program UserCracker;
    {.Include SRL\SRL.scar}

    var
      names: string;
      i, usernames: integer;
      arrNames: TStringArray;
     
    begin
        usernames:= OpenFile('C:\usernames.txt', false);
        ReadFileString(usernames, names, FileSize(usernames));
        arrNames := Explode(', ',names);
       
        for i := 0 to High(arrNames) do
        begin
          KeyDown(VK_BACK);
          sleep(600)
          KeyUp(VK_BACK);
          Clickmouse(752, 460, true);
          SendKeys(names);
          Clickmouse(488, 596, true);
        end;
    end.

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
  •