Tastendruck simulation nach eingabe im Editfeld?

[DGL-luke]

Es geht natürlich auch so:

Delphi-Quellcode:

var
  I: Integer;
for i := 0 to length(Edit1.Text)-1 do
begin
  keybd_event(Ord(Edit1.Text[i]), 0, 0, 0);
  Keybd_Event(Ord(Edit1.Text[i]),0,KEYEVENTF_KEYUP,0);
end;

Das is das selbe wie ich oben geschrieben hab, nur in alter Syntax...

[rhodan]

danke euch beiden...allerdings wirft er mir nur zahlen raus, egal welche buchstaben ich drücke..hier mal das Bsp.

ich hab den timer auf 3 sec gestellt und bin mit ALT+TAB immer zum notepad um das ergebnis zu sehen...

wäre nett wenn mir jemand noch nen tip geben könnte..wahrscheinlich ist nur eine zeile oder so falsch :cry:

und wenn ich z.B "test" eingebe sagt er mir die uhrzeit und datum an :lol: kein witz...ka wieso das passiert :S
thx

[bitsetter]

Versuche es mal hiermit!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  c: Char;
  i: integer;
begin
  if length(Edit1.Text)> 0 then
  begin
    for i:= 0 to length(Edit1.Text) do
    begin
    c:= Edit1.text[i];
      Case c of
        '1'..'9' :
          begin
          keybd_event(ord(c),0,0,0);
          keybd_event(ord(c),0,keyeventf_keyup,0); 
          end;
        'A'..'Z':
          begin
          keybd_event(vk_Shift,0,0,0);
          keybd_event(ord(c),0,0,0);
          keybd_event(vk_Shift,0,keyeventf_keyup,0);
          keybd_event(ord(c),0,keyeventf_keyup,0);
          end;
        'a'..'z':
          begin
          c:= upcase(c);
          keybd_event(ord(c),0,0,0);
          keybd_event(ord(c),0,keyeventf_keyup,0);
          end;
        else
        begin
        keybd_event(ord(c),0,0,0);
        keybd_event(ord(c),0,keyeventf_keyup,0);
        end;
      end;
    end;
  end;
end;

:wink:

[rhodan]

oh man Bitsetter.... :-D

Erstmal herzlich willkommen in der DP ^^. Hoffe es gefällt dir hier.
Und vielen Dank, dein Code funzt einwandfrei...dank deines 1..9 bsp hab ich auch schon die zahlen eingebaut ;)

danke dir! :cheers:

greetz

rho :dancer:

[bitsetter]

Ok,
es war ein kleiner Fehler im Code, ich habe Ihn verbessert!
Der Code funktioniert auch nur wenn die 2. LED auf der Tastatur nicht eingeschaltet ist, deren Status muss man dann auch noch abfragen.

[Guss3r]

HY, erstmal.

Also der Code funst bei mir auch einwandfrei, nur ich habe ein kleines Problem noch und das wäre, wie kann ich auch noch Sonderzeichen auslesen lassen, und deren Tastendrücke simulieren :coder2: .
Wäre mir echt ne Hilfe, da ich nicht besonders viel kann :oops: .

MFG
Guss3r

[bitsetter]

Das ganze jetzt mit Sonderzeichen, funktioniert jedoch nur bei einer deutschen Tastatur. Wenn VK_CAPITAL an ist, dann wird alles großgeschrieben.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  c: Char;
  i: integer;
  keyState: TKeyboardState;
  Text: AnsiString;
begin
  //sleep(2000);
  Text:= Edit1.Text;
  if length(Text)> 0 then
  begin
    GetKeyboardState(keyState) ;
    //if not Boolean(keyState[VK_CAPITAL]) then//nicht großschreiben
    for i:= 1 to length(Text) do
    begin
      c:= Text[i];
      Case c of
        '°','!','"','§','$','%','&','/','(',')','=','?','`','*','Ü','Ö','Ä','_',':',';','>' :
          begin
            case c of
              '!': c:= char(ord('1'));
              '"': c:= char(ord('2'));
              '§': c:= char(ord('3'));
              '$': c:= char(ord('4'));
              '%': c:= char(ord('5'));
              '&': c:= char(ord('6'));
              '/': c:= char(ord('7'));
              '(': c:= char(ord('8'));
              ')': c:= char(ord('9'));
              '=': c:= char(ord('0'));
              '?': c:= char(219);
              '`': c:= char(221);
              '*': c:= char(187);
              'Ü': c:= char(186);
              'Ö': c:= char(192);
              'Ä': c:= char(222);
              '_': c:= char(189);
              ':': c:= char(190);
              ';': c:= char(188);
              '>': c:= char(226);
            end;
            keybd_event(vk_Shift,0,0,0);
            keybd_event(ord(c),0,0,0);
            keybd_event(vk_Shift,0,keyeventf_keyup,0);
            keybd_event(ord(c),0,keyeventf_keyup,0);
          end;
        '²','³','{','[',']','}','\','@','~','|','µ':
          begin
            case c of
              '²': c:= char(ord('2'));
              '³': c:= char(ord('3'));
              '{': c:= char(ord('7'));
              '[': c:= char(ord('8'));
              ']': c:= char(ord('9'));
              '}': c:= char(ord('0'));
              ',': c:= char(221);
              '\': c:= char(219);
              '@': c:= char(81);
              '~': c:= char(187);
              '|': c:= char(226);
              'µ': c:= char(77);
            end;
            keybd_event(vk_Control,0,0,0);
            keybd_event(vk_Menu,0,0,0);
            keybd_event(ord(c),0,0,0);
            keybd_event(vk_Control,0,keyeventf_keyup,0);
            keybd_event(vk_Menu,0,keyeventf_keyup,0);
            keybd_event(ord(c),0,keyeventf_keyup,0);
          end;
        '1'..'9','a'..'z','ß',' ','+','#','-','.','<','ä','ö','ü',',':
          begin
            case c of
              'a'..'z':c:= upcase(c);
              'ß': c:= char(219);
              ' ': c:= char(32);
              '+': c:= char(187);
              '#': c:= char(191);
              '-': c:= char(189);
              '.': c:= char(190);
              '<': c:= char(226);
              'ä': c:= char(222);
              'ö': c:= char(192);
              'ü': c:= char(186);
              ',': c:= char(188);
            end;
            keybd_event(ord(c),0,0,0);
            keybd_event(ord(c),0,keyeventf_keyup,0);
          end;
        'A'..'Z':
          begin
            keybd_event(vk_Shift,0,0,0);
            keybd_event(ord(c),0,0,0);
            keybd_event(vk_Shift,0,keyeventf_keyup,0);
            keybd_event(ord(c),0,keyeventf_keyup,0);
          end;
      end;
    end;
  end;
end;

[Guss3r]

Servus,

Also ein dikes DANKESCHÖN @bitsetter.
Ich hätte mich da dumm und dämlichsuchen können, aber dank dir blieb es mir erspart. THX
MFG
Guss3r