SRL Archive - RS3 Help

I tried using KeyDown and KeyUp for dropping things from the actionbar in my script, but they had no effect.

To try to narrow down the problem I used this test script in a new Simba tab:

program new;
begin
  KeyDown(31);
  WriteLn(isKeyDown(31));
  Wait(1000);
  KeyUp(31);
end.

The blinky-text-thing was in the Simba script so it would type "11111111111111111111111" when I pressed play but nothing typed.

isKeyDown resulted true though, so I'm not sure why it didn't type.

Does this test work for any of you?

Can't you use TypeSend?

EDIT: Or TypeByte to be exact.

From: Frement
Can't you use TypeSend?

EDIT: Or TypeByte to be exact.

If I'm correct that would simulate (repeated) tapping of the key which isn't what I want. So yes, I could, but it's not quite what I was trying to do.

program new;

var
  StartTime: Integer;

begin
  Sleep(5000);
  StartTime := GetSystemTime;
  while (GetSystemTime - StartTime < 5000) do begin
    KeyDown(VK_A);
    Sleep(10);
  end;
  KeyUp(VK_A);
end.

EDIT: And you might want to do something like this:

program new;

var
  StartTime: Integer;
  FirstWait: Boolean;

begin
  Sleep(5000);
  StartTime := GetSystemTime;
  FirstWait := True;
  while (GetSystemTime - StartTime < 5000) do begin
    KeyDown(VK_A);
    if (FirstWait) then begin
      Sleep(800)
      FirstWait := False;
    end else
      Sleep(50);
  end;
  KeyUp(VK_A);
end.

I think it's a bug with the rs client that sometimes the client will lose keyboard focus.
Several times i've to minimize and reclick the client to regain keyboard focus.

From: riwu
I think it's a bug with the rs client that sometimes the client will lose keyboard focus.
Several times i've to minimize and reclick the client to regain keyboard focus.

OP's snippet won't work for notepad either.

Oh, i think for some reason for the newer versions of simba you have to use the virtual key constants.
Try KeyDown(VK_1);

From: riwu
Oh, i think for some reason for the newer versions of simba you have to use the virtual key constants.
Try KeyDown(VK_1);

Ok, tried

program new;
begin
  KeyDown(VK_1);
  WriteLn(isKeyDown(VK_1));
  Wait(10000);
  KeyUp(VK_1);
end.

with the notepad to type in and it typed "1" once but only once. I tried removing the isKeyDown as well so it was just the down, wait, and up, but still only pressed it once.

From: BMWxi
Ok, tried

program new;
begin
  KeyDown(VK_1);
  WriteLn(isKeyDown(VK_1));
  Wait(10000);
  KeyUp(VK_1);
end.

with the notepad to type in and it typed "1" once but only once. I tried removing the isKeyDown as well so it was just the down, wait, and up, but still only pressed it once.

I already posted working code, did you have problems with it?

From: Frement

program new;

var
  StartTime: Integer;

begin
  Sleep(5000);
  StartTime := GetSystemTime;
  while (GetSystemTime - StartTime < 5000) do begin
    KeyDown(VK_A);
    Sleep(10);
  end;
  KeyUp(VK_A);
end.

EDIT: And you might want to do something like this:

program new;

var
  StartTime: Integer;
  FirstWait: Boolean;

begin
  Sleep(5000);
  StartTime := GetSystemTime;
  FirstWait := True;
  while (GetSystemTime - StartTime < 5000) do 
  begin
    KeyDown(VK_A);
    if (FirstWait) then begin
      Sleep(800)
      FirstWait := False;
    end else
      Sleep(50);
  end;
  KeyUp(VK_A);
end.

Both of those worked fine for me, thanks. Odd my first example didn't work though…

E: Both of these are repeatedly pressing KeyDown, so does keydown not hold the key down? If so what is the purpose of KeyUp?