Question

所以我试图在delphi中创建一个自动打字程序，我在VB.NET中做了它很简单，因为VB.NET有'Sendkeys'功能。

所以我在研究后在delphi中创建了自己的autotyper，但这只是我得到的... 我只能向“记事本”发送击键，我正在尝试制作相同的应用程序，但发送按键，如浏览器，游戏等。

所以这是我的代码：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,     Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Menus,
  System.Actions, Vcl.ActnList;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Bevel1: TBevel;
Label1: TLabel;
Edit1: TEdit;
Button2: TButton;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Timer1: TTimer;
ActionList1: TActionList;
SelectAll: TAction;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure SelectallExecute(Sender: TObject);
 private
{ Private declarations }
 public
{ Public declarations }
 end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SelectallExecute(Sender: TObject);
begin
memo1.SelectAll;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  wnd: HWND;
  i: Integer;
  s: string;

begin
//timer intreval IntToStr '9arb 1000 mile seccounds
 Timer1.Interval:=StrToInt(edit1.Text)*1000;

  wnd := FindWindow('notepad', nil);
  if wnd <> 0 then
  begin
    wnd := FindWindowEx(wnd, 0, 'edit', nil);


    // Write Text in Notepad.
    // Text ins Notepad schreiben.
    s := memo1.Text;
    for i := 1 to Length(s) do
      SendMessage(wnd, WM_CHAR, Word(s[i]), 0);
    // Simulate Return Key.
    PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
    // Simulate Space.
    PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
      end;
    end;

    end.

Answer 1

虚假输入的支持方式不是使用SendMessage和PostMessage。而是调用SendInput将输入事件放入前台窗口的消息队列中。这就是.net SendKeys方法的实现方式。

在评论中，您说您使用了keybd_event。这是不可取的。来自documentation：

此功能已被取代。请改用SendInput。

SendInput的文档解释了原因：

SendInput函数将INPUT结构中的事件串行插入键盘或鼠标输入流。这些事件没有穿插用户（使用键盘或鼠标）或通过调用keybd_event，mouse_event或其他SendInput调用插入的其他键盘或鼠标输入事件。

在Delphi中制作Auto-Typer？

1 个答案: