SRL Archive - Help and Support

Hi all,

First of all, thanks reading this thread.
I have a problem with finding a byte for the "Alt Gr" key.
I decided to make a thread about it since Wizzup? doesn't answers on my PM:p
I want to use in combination with "KeyDown" function, were you have to input byte.

I've searched for it rather some tim (googled it, scar help file) and I don' t mannage to find it.

I want to ask you all, readers, to help me searching/tell me what byte it is:)

REMEMBER: I need the byte from the "Alt Gr"(Alt Ground) key, not from the "Alt" key, cause I know that one (Byte of "Alt" key = 18).

Thanks in advance,

Stijn.

whats the Alt Ground key? :s

The right alt key
Try all codes from 17 to 20 :)

From: Markus
The right alt key
Try all codes from 17 to 20 :)

I already did, didn't helped.

Er, I did answer…

for i:=1 to 23456 do
if iskeydown(i) then writeln(inttostr(i)); ?


or maybe isfunctionkeydown

From: Boreas
for i:=1 to 23456 do
if iskeydown(i) then writeln(inttostr(i)); ?


or maybe isfunctionkeydown

[BANANA] 0: SHIFT
1: CONTROL
2: ALT
3: LEFT SHIFT
4: LEFT CONTROL
5: LEFT ALT
6: RIGHT SHIFT
7: RIGHT CONTROL
8: RIGHT ALT[/BANANA]

From: Wizzup?
[BANANA] 0: SHIFT
1: CONTROL
2: ALT
3: LEFT SHIFT
4: LEFT CONTROL
5: LEFT ALT
6: RIGHT SHIFT
7: RIGHT CONTROL
8: RIGHT ALT[/BANANA]

Thanks Wizzup? I will check it out:p
Oh, btw, when I started this thread you didn't answered ;)

-Tsn.

EDIT: Nope, I've tried them al wizzup, and boreas that would work I think, because IsKeyDown needs char input.

However I want to know this, because for Belgian people TypeSend doesn't work, which is used with Logging in players.
I can't auto with characters includeing numbers in their name nor in their password, I have to put on the CAPS LOCK for that, chich doesn't looks humanly..

I already figured out what the problem is.
When you all do need to hold the SHIFT key, we don't (not for all keys).
Here is what I've got so far:

program New;

procedure TypeByte(k: Byte);
begin
  KeyDown(k);
  Wait(10 + Random(50));
  KeyUp(k);
end;


procedure TypeSend(Text: string);
var
  i: Integer;
  Shift: Boolean;
  AltGr: Boolean;
begin
  for i := 1 to Length(Text) do
  begin
    //karakters waar je de Shift toets moet voor ingedrukt houden
    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] = '0') or (Text[i] = '1') or (Text[i] = '2') or
            (Text[i] = '3') or (Text[i] = '4') or (Text[i] = '5') or
            (Text[i] = '6') or (Text[i] = '7') or (Text[i] = '8') or
            (Text[i] = '9') or (Text[i] = '°') or (Text[i] = '_');
    //karakters waar je de AltGr toets moet voor ingedrukt houden
    AltGr:= (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] = '\');

    //Shift toets checken
    if (Shift) then
    begin
      KeyDown(VK_Shift);
      Wait(5 + Random(20));
    end;
    //Alt Gr toets checken
    if (AltGr) then
    begin
      KeyDown(6);//Need to know the ALT GR key Byte!!!
      Wait(5 + Random(20));
    end;
    //het typen
    TypeByte(GetKeyCode(Text[i]));
    //loslaten van Shift toets
    if (Shift) then
    begin
      KeyUp(VK_Shift);
      Wait(5 + Random(20));
    end;
    //loslaten van AltGr toets
    if (AltGr) then
    begin
      KeyUp(6);//Need to know the ALT GR key Byte!!!
      Wait(5 + Random(20));
    end;
    Wait(50 + Random(120));
  end;
  Wait(200 + Random(500));
  TypeByte(13);
end;

begin
TypeSend('1234567890°_');
TypeSend('¨*%£?./+');
TypeSend('|@#{[^{}[]´`~\');
end.

-Tsn.