SRL Archive - SRL Archives

this is shorter and from what i can see it should still work just as well

{*******************************************************************************
procedure TypeSendEx(Text: string; PressEnter: Boolean);
By: Shuttleu
Description: Sends human like text.
*******************************************************************************}
procedure TypeSendEx(Text: string; PressEnter: Boolean);
var
  I: Integer;
  Char: Byte;
  ThisOne, NextOne, LastOne: Boolean;
begin
  for I:=1 to Length(Text) do
  begin
    ThisOne:= (Uppercase(Text[I]) = Text[I]);
    if (not(I = Length(Text))) then
      NextOne:= (Uppercase(Text[I+1]) = Text[I+1]);
    if (not(I = 1)) then
      LastOne:= (Uppercase(Text[I-1]) = Text[I-1]);
    Char := GetKeyCode(Text[i]);
    if ((not(LastOne)) and (ThisOne)) then
    begin
      KeyDown(VK_SHIFT);
      Wait(40 + Random(40));
    end;
    TypeByte(Char);
    Wait(40 + Random(40));
    if (not(NextOne))or(I = Length(Text)) then
    begin
      KeyUp(VK_SHIFT);
      Wait(40 + Random(40));
    end;
  end;
  if (not(PressEnter)) then Exit;
  Char := GetKeyCode(Chr(13));
  TypeByte(Char);
end;

~shut

EDIT: also while looking through the current TypeSendEx it doesnt wait between typing capitals

Good idea. I support it. :p

Note: Not fair to call the whole function yours, after just shortening it.

Got an "Closing parenthesis expected in script", fixed it.. Look under

{*******************************************************************************
procedure TypeSendEx(Text: string; PressEnter: Boolean);
By: Shuttleu
Description: Sends human like text.
*******************************************************************************}
procedure TypeSendEx(Text: string; PressEnter: Boolean);
var
  S: string;
  I: Integer;
  D: Byte;
  A, B, C: Boolean;
begin
  S:= 'ABCDEFGHIJKLMNOPQRSTUVWXZ' + '~!@#$%^&*()_+{}|:"<>?';
  for I:=0 to Length(Text) do
  begin
    A:= (Pos(Text[i], S) > 0);
    if (not(I = Length(Text))) then
      B:= (Pos(Text[I+1], S) > 0);
    if (not(I = 0)) then
      C:= (Pos(Text[I-1], S) > 0);
    D := GetKeyCode(Text[i]);
    if ((not(C)) and (A)) then
    begin
      KeyDown(VK_SHIFT);
      Wait(40 + Random(40));
    end;
    TypeByte(D);
    Wait(40 + Random(40));
    if (not(B))or(I = Length(Text)) then  // This line had the error.
    begin
      KeyUp(VK_SHIFT);
      Wait(40 + Random(40));
    end;
  end;
  if (not(PressEnter)) then Exit;
  D := GetKeyCode(Chr(13));
  TypeByte(D);
end;

Than I tested the function with this
Note: The slight name change is to get rid of errors..

program New;
{.include SRL/SRL.scar}

{*******************************************************************************
procedure TypeSendEx(Text: string; PressEnter: Boolean);
By: Shuttleu
Description: Sends human like text.
*******************************************************************************}
procedure n_TypeSendEx(Text: string; PressEnter: Boolean);
var
  S: string;
  I: Integer;
  D: Byte;
  A, B, C: Boolean;
begin
  S:= 'ABCDEFGHIJKLMNOPQRSTUVWXZ' + '~!@#$%^&*()_+{}|:"<>?';
  for I:=0 to Length(Text) do
  begin
    A:= (Pos(Text[i], S) > 0);
    if (not(I = Length(Text))) then
      B:= (Pos(Text[I+1], S) > 0);
    if (not(I = 0)) then
      C:= (Pos(Text[I-1], S) > 0);
    D := GetKeyCode(Text[i]);
    if ((not(C)) and (A)) then
    begin
      KeyDown(VK_SHIFT);
      Wait(40 + Random(40));
    end;
    TypeByte(D);
    Wait(40 + Random(40));
    if (not(B))or(I = Length(Text)) then
    begin
      KeyUp(VK_SHIFT);
      Wait(40 + Random(40));
    end;
  end;
  if (not(PressEnter)) then Exit;
  D := GetKeyCode(Chr(13));
  TypeByte(D);
end;

begin
  SetupSRL;
  Wait(2000);
  n_TypeSendEx('abcdefghijlgmnlopqrstouwz', False);
end.

But I got "[Runtime Error] : Out of string range in line 19 in script" while running it.

Sorry for being such a killer..

From: N1ke!
Looking at it…
Will edit when done…

Note: Not fair to call the whole function yours, after just shortening it.

i rewrote the whole thing from scratch in a bog standard text editor

~shut

Chars in a string start at index 1. So it should be for I := 1 to Length(string) do

From: ZephyrsFury
Chars in a string start at index 1. So it should be for I := 1 to Length(string) do

oh i thought they started at 0 which wil explain N1kes!'s error

~shut

You can do:

if uppercase(text[i]) = text[i] then
//it's uppercase

From: Da 0wner
You can do:

if uppercase(text[i]) = text[i] then
//it's uppercase

i dont think that
~!@#$%^&*()_+{}|:"<>?
would comeup as uppercase text

~shut

It does. I have my own TypeSend function which is shorter than yours.

edited

~shut

:). I'll post mine in a few days. However I am grounded so cannot go on any computer.

so how are you posting?

~shut

iTouch/iPhone.. one of those two.

Yep, 99_ is right, <3 :p.

How is this better than the current one though? I don't wanna fix something that isn't broken but might introduce more bugs.

Zeph, stay on for 2 or 3 hours and I will sneak on to post mine. Then you can commit it. I assure you that it is flawless :p.

{*******************************************************************************
procedure iType(Text : string; WaitTime : integer; Return : boolean);
By: Da 0wner
Description: Types text...
*******************************************************************************}

procedure iType(Text : string; WaitTime : integer; Return : boolean);
var
  i: integer;
  s : string;
begin
  s := '~!@#$%^&*()_+ABCDEFGHIJKLMNOPQRSTUVWXYZ{}|:"<>?';
  for i := 1 to Length(Text) do
  begin
    if  pos(Text[i], s) > 0 then
    begin
      KeyDown(VK_SHIFT);
      Wait(WaitTime + Random(40));
    end;
    KeyDown(GetKeyCode(Text[i]));
    Wait(WaitTime + Random(30));
    KeyUp(GetKeyCode(Text[i]));
    Wait(WaitTime + Random(30));
    if  pos(Text[i], s) > 0 then
      KeyUp(VK_SHIFT);
  end;
  if not Return then
    exit;
  Wait(10 + Random(30));
  KeyDown(VK_RETURN);
  Wait(10 + Random(30));
  KeyUp(VK_RETURN);
end;

?

From: Da 0wner
Zeph, stay on for 2 or 3 hours and I will sneak on to post mine. Then you can commit it. I assure you that it is flawless :p.

Da 0wner, your's and Shuttleu's are four lines different…

From: Da 0wner
Zeph, stay on for 2 or 3 hours and I will sneak on to post mine. Then you can commit it. I assure you that it is flawless :p.

I'm not commiting stuff for no reason. =/

if it's not broken, don't fix it.

~RM

From: Rasta Magician
if it's not broken, don't fix it.

~RM

in the current one when typing more than one uppercase letter at a time it doesn't wait before typing them

~shut

From: Shuttleu
in the current one when typing more than one uppercase letter at a time it doesn't wait before typing them

~shut

Can we not just add a wait to the current function then:

procedure TypeSendEx(Text: string; PressEnter: Boolean);
var
  S: string;
  I, L: Integer;
  C: Byte;
  Shift: Boolean;
begin
  S:= 'ABCDEFGHIJKLMNOPQRSTUVWXZ' + '~!@#$%^&*()_+{}|:"<>?';
  L := Length(Text);
  for I:= 1 to L do
  begin
    Shift:= (Pos(Text[i], S) > 0);
    if(Shift)then
    begin
      KeyDown(VK_SHIFT) Wait(40 + Random(40));
      while(Pos(Text[i], S) > 0)and(I <= Length(Text))do
      begin
        C := GetKeyCode(StrGet(Text, I));
        TypeByte(c);
        Wait(40 + Random(40)); //Here?
        I:= I + 1;
        if(I > Length(Text))then Break;
      end;
    end;
    if(Shift)then
      KeyUp(VK_SHIFT);
    Wait(40 + Random(40));
    if(I <= Length(Text))then
    begin
      C:= GetKeyCode(StrGet(Text, I));
      TypeByte(C);
      Wait(40 + Random(40));
    end;
  end;
  If Not PressEnter Then Exit;
  C := GetKeyCode(Chr(13));
  TypeByte(C);
end;

From: Quickmarch
Da 0wner, your's and Shuttleu's are four lines different…

That's an outdated function, Naum posted it :p.