Adblock breaks this site

[Help Request]Unknown Reason for Error...

Discussion in 'Scar/Simba Help' started by Markizano, Sep 25, 2007.

Thread Tools

Thread Tools

  • Thread ID:
  1. Markizano

    Markizano Active Member
    Banned

    Joined:
    Mar 2, 2006
    Posts:
    100
    Referrals:
    0
    Sythe Gold:
    0
    [Help Request]Unknown Reason for Error...
    I'm trying to make an AutoLogger because Im tired of entering in the same passwords and user names every time i want to use a resource. I figured I'd make my life easier by having a script that i could run every time i needed one of these resources.

    Here's the error I get:
    Code:
    Failed when compiling
Line 134: [Error] (134:22): Invalid number of parameters in script C:\Documents and Settings\Owner\Desktop\Public AutoLogger.scar
    I have no clue as to how it can misunderstand the assignment of the boolean value to a boolean function.
     
    Markizano, Sep 25, 2007
    #1
  2. Rickyru

    Rickyru Member
    Banned

    Joined:
    Sep 18, 2007
    Posts:
    64
    Referrals:
    0
    Sythe Gold:
    0
    [Help Request]Unknown Reason for Error...
    its m8 i think keylogged so if its on ur pc delet it directly
     
    Rickyru, Sep 25, 2007
    #2
  3. WillowZ

    WillowZ Member

    Joined:
    Sep 24, 2007
    Posts:
    82
    Referrals:
    0
    Sythe Gold:
    0
    [Help Request]Unknown Reason for Error...
    Can you post the Entire Script ? So i can See what is Going on.

    I Made a Autofighter with Autologin etc. But i Lost it when i redid PC
     
    WillowZ, Sep 25, 2007
    #3
  4. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    [Help Request]Unknown Reason for Error...
    Post the script here in a code box. I doubt the link was infected, but I removed it anyway.
     
    Town, Sep 25, 2007
    #4
  5. Markizano

    Markizano Active Member
    Banned

    Joined:
    Mar 2, 2006
    Posts:
    100
    Referrals:
    0
    Sythe Gold:
    0
    [Help Request]Unknown Reason for Error...
    Here's the source code since the link was thrown out the door:
    Code:
    Program AutoLogger;
Const
 Loc = 1; //Where am I? so i can paste the right values.
 IsEmail = False; //Do I have to type "@yahoo.com"?

 YahooMail_Markizano     = 1;
 YahooMail_Brutis76107   = 2;
 Sythe                   = 3;
 MSNMail_Markizano       = 4;
 MSNMail_mharris23       = 5;
 VLib                    = 6; //Virtual Library

 EMail = '@Yahoo.com';

Var
 UName: Array[0..2] Of String;
 PWord: Array[0..3] Of String;

Procedure TypeByte(k: Byte);
Begin
  KeyDown(k);
  Wait(10);
  KeyUp(k);
End;

Procedure pTab;
Begin
 TypeByte(9)
 Wait(5)
end;

Procedure pEnter;
Begin
 TypeByte(13)
 Wait(5)
end;

Procedure TypeSend(Text: string);
Var
  i: Integer;
  Shift: Boolean;
begin
  for i := 1 to Length(Text) do
  begin
    Shift := (Text[i] = ':') or (Text[i] = '!') or (Text[i] = '+') or
      (Text[i] = '?') or (Text[i] = '<') or (Text[i] = '>') or
      (Text[i] = '@') or (Text[i] = '#') or (Text[i] = '$') or
      (Text[i] = '&') or (Text[i] = '%') or (Text[i] = '*');
    if (Shift) then
    begin
      KeyDown(VK_Shift);
      Wait(10);
    end;
    TypeByte(GetKeyCode(Text[i]));
    if (Shift) then
    begin
      KeyUp(VK_Shift);
      Wait(10);
    end;
    Wait(75);
  end;
  Wait(350);
  TypeByte(13);
end;

Procedure AssignValues;
Begin
 UName[0] := ''
 UName[1] := ''
 UName[2] := ''

 PWord[0] := ''
 PWord[1] := ''
 PWord[2] := ''
 PWord[3] := ''
end;

Procedure SendData(Location: LongInt; bIsEmail, bMySpace: Boolean);
Begin
 Case Location Of
  1: Begin //YahooMail.Markizano
      TypeSend(UName[0]);
      If bIsEmail Then TypeSend(EMail);
      pTab;
      If bMySpace Then TypeSend('')
      TypeSend(PWord[0]);
      pEnter;
     end;
  2: Begin //YahooMail.Brutis76107
      TypeSend(UName[2]);
      Wait(10);
      pTab;
      TypeSend(PWord[0]);
      Wait(10);
      pEnter;
     end;
  3: Begin //Sythe
      TypeSend(UName[0])
      Wait(10)
      pTab;
      TypeSend(PWord[3])
      Wait(10);
      pEnter;
     End;
  4: Begin //MSNMail.Markizano
      TypeSend(UName[1]);
      pTab;
      Wait(10);
      TypeSend(PWord[1]);
      pTab;
      Wait(10);
      pEnter;
     end;
  5: Begin //MSNMail.mharris23
      TypeSend(PWord[0]);
      Wait(10);
      pEnter;
     end;
  6: Begin //Virtual Library
      TypeSend(UName[1]);
      Wait(10);
      pTab;
      TypeSend(PWord[1]);
      Wait(10);
      pTab;
      pEnter;
     end;
  end;
end;

Function BoolToStrMe(Text: String): Boolean;
Begin
 Case LowerCase(Text) Of
 'yes'  : BoolToStrMe := True;
 'true' : BoolToStrMe := True;
 End;
End;

Begin
 ActivateClient

 AssignValues
 SendData(Loc, IsEmail, BoolToStrMe(ReadLn('Are you at MySpace?')))
End.
     
    Markizano, Sep 25, 2007
    #5
  6. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    [Help Request]Unknown Reason for Error...
    Code:
    Program AutoLogger;
Const
 Loc = 1; //Where am I? so i can paste the right values.
 IsEmail = False; //Do I have to type "@yahoo.com"?

 YahooMail_Markizano     = 1;
 YahooMail_Brutis76107   = 2;
 Sythe                   = 3;
 MSNMail_Markizano       = 4;
 MSNMail_mharris23       = 5;
 VLib                    = 6; //Virtual Library

 EMail = '@Yahoo.com';

Var
 UName: Array[0..2] Of String;
 PWord: Array[0..3] Of String;

Procedure TypeByte(k: Byte);
Begin
  KeyDown(k);
  Wait(10);
  KeyUp(k);
End;

Procedure pTab;
Begin
 TypeByte(9)
 Wait(5)
end;

Procedure pEnter;
Begin
 TypeByte(13)
 Wait(5)
end;

Procedure TypeSend(Text: string);
Var
  i: Integer;
  Shift: Boolean;
begin
  for i := 1 to Length(Text) do
  begin
    Shift := (Text[i] = ':') or (Text[i] = '!') or (Text[i] = '+') or
      (Text[i] = '?') or (Text[i] = '<') or (Text[i] = '>') or
      (Text[i] = '@') or (Text[i] = '#') or (Text[i] = '$') or
      (Text[i] = '&') or (Text[i] = '%') or (Text[i] = '*');
    if (Shift) then
    begin
      KeyDown(VK_Shift);
      Wait(10);
    end;
    TypeByte(GetKeyCode(Text[i]));
    if (Shift) then
    begin
      KeyUp(VK_Shift);
      Wait(10);
    end;
    Wait(75);
  end;
  Wait(350);
  TypeByte(13);
end;

Procedure AssignValues;
Begin
 UName[0] := ''
 UName[1] := ''
 UName[2] := ''

 PWord[0] := ''
 PWord[1] := ''
 PWord[2] := ''
 PWord[3] := ''
end;

Procedure SendData(Location: LongInt; bIsEmail, bMySpace: Boolean);
Begin
 Case Location Of
  1: Begin //YahooMail.Markizano
      TypeSend(UName[0]);
      If bIsEmail Then TypeSend(EMail);
      pTab;
      If bMySpace Then TypeSend('')
      TypeSend(PWord[0]);
      pEnter;
     end;
  2: Begin //YahooMail.Brutis76107
      TypeSend(UName[2]);
      Wait(10);
      pTab;
      TypeSend(PWord[0]);
      Wait(10);
      pEnter;
     end;
  3: Begin //Sythe
      TypeSend(UName[0])
      Wait(10)
      pTab;
      TypeSend(PWord[3])
      Wait(10);
      pEnter;
     End;
  4: Begin //MSNMail.Markizano
      TypeSend(UName[1]);
      pTab;
      Wait(10);
      TypeSend(PWord[1]);
      pTab;
      Wait(10);
      pEnter;
     end;
  5: Begin //MSNMail.mharris23
      TypeSend(PWord[0]);
      Wait(10);
      pEnter;
     end;
  6: Begin //Virtual Library
      TypeSend(UName[1]);
      Wait(10);
      pTab;
      TypeSend(PWord[1]);
      Wait(10);
      pTab;
      pEnter;
     end;
  end;
end;

Function BoolToStrMe(Text: String): Boolean;
Begin
 Case LowerCase(Text) Of
 'yes'  : Result := True;
 'true' : Result := True;
 End;
End;

Begin
 ActivateClient
 
 AssignValues
 SendData(Loc, IsEmail, BoolToStrMe(ReadLn('Are you at MySpace?')))
End.
    What a function returns is specified in the varible "Result".
     
    Town, Sep 26, 2007
    #6
  7. Markizano

    Markizano Active Member
    Banned

    Joined:
    Mar 2, 2006
    Posts:
    100
    Referrals:
    0
    Sythe Gold:
    0
    [Help Request]Unknown Reason for Error...
    Oh ya, forgot about that. Apparently, I need to dust off my SCAR skills...

    TY
     
    Markizano, Sep 26, 2007
    #7
< help needed! | Weird problem please help >


 
 
Adblock breaks this site