keybd_event的问题 ( 积分: 100 )

追月 · 2005-03-06

各位，在练习keybd_event这个函数时遇到一些问题，请大伙指教。 我想用keybd_event模拟用户按下的任意键（不包括中文字符），如下： var  tmp:string;  i:Integer; begin  for i:=1 to length(tmp) do  begin    keybd_event(ord(tmp),0,0,0);    keybd_event(ord(tmp),0,KEYEVENTF_KEYUP,0);  end; end; 1.当tmp变量为'China',结果却变成了china，当tmp变量为'china'时，输出的结果却变成了数字，怎么回事？？ 2.请问我若想模拟输出和变量一模一样的结果该怎么办？(大小写都要区分，并且能模拟各种符号_+#@)

追月 · 2005-03-06

各位，在练习keybd_event这个函数时遇到一些问题，请大伙指教。 我想用keybd_event模拟用户按下的任意键（不包括中文字符），如下： var  tmp:string;  i:Integer; begin  for i:=1 to length(tmp) do  begin    keybd_event(ord(tmp),0,0,0);    keybd_event(ord(tmp),0,KEYEVENTF_KEYUP,0);  end; end; 1.当tmp变量为'China',结果却变成了china，当tmp变量为'china'时，输出的结果却变成了数字，怎么回事？？ 2.请问我若想模拟输出和变量一模一样的结果该怎么办？(大小写都要区分，并且能模拟各种符号_+#@)

gooodlife · 2005-03-06

procedure TForm1.Button1Click(Sender: TObject); var  tmp:string;  i:Integer;  GetKey : Integer; begin  Edit1.SetFocus;  Edit1.SelectAll;  Sleep(2000);  tmp := 'China';  for i:=1 to length(tmp) do  begin    GetKey := ord(tmp);    if (GetKey &gt;= 65) and (GetKey &lt;= 90) then // A..Z 大写    begin      keybd_event(VK_LSHIFT,0,0,0);      keybd_event(GetKey,0,0,0);      keybd_event(GetKey,0,KEYEVENTF_KEYUP,0);      keybd_event(VK_LSHIFT,0,KEYEVENTF_KEYUP,0);    end    else if (GetKey &gt;= 97) and (GetKey &lt;= 122) then // a..z 小写    begin      GetKey := GetKey - 32;      keybd_event(GetKey,0,0,0);      keybd_event(GetKey,0,KEYEVENTF_KEYUP,0);    end    else     // 其它的也    begin      keybd_event(GetKey,0,0,0);      keybd_event(GetKey,0,KEYEVENTF_KEYUP,0);    end;  end; end;

gooodlife · 2005-03-06

不明的话 建一个From1,加入下面的代码看看就知的了 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin  Label2.Caption := Key ;  Label3.Caption := IntToStr(Ord(Key));  Key := #0 ;  Memo1.Lines.Add('press'); end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); begin Label1.Caption:=IntToStr(key); Key := 0 ; Memo1.Lines.Add('down'); end;

antong · 2005-03-06

上面的错误， keybd_event函数只可以模拟ord 1 - 254 之间的值，比如'/'无法模拟

abookdog · 2005-03-06

直接用sendmessage 或postmessage都可以实现

gooodlife · 2005-03-06

to antong 是可以的 不信可以试下      keybd_event(191,0,0,0);      keybd_event(191,0,KEYEVENTF_KEYUP,0);

追月 · 2005-03-06

谢谢各位朋友的热情答复，我个人感觉用keybd_event很慢，当tmp变量的内容很庞大时，可以明显感觉到模拟速度的缓慢。不知还有没有更好的办法。

gooodlife · 2005-03-06

当tmp变量的内容很庞大时?????有多大啊?

追月 · 2005-03-06

to gooodlife    用你说的这种方法，      keybd_event(191,0,0,0);      keybd_event(191,0,KEYEVENTF_KEYUP,0);   确实可以模拟'/'，但问题是tmp变量里面的内容不会是191的数字，而是'/',而'/'用ord函数转换出来的结果却是47，这样一来，是不是会出现错误的结果。因为我是菜鸟，如果问题很菜，请不要介意。

gooodlife · 2005-03-06

if Value = 47 then  Value: = 191 就可以了吧 你要做全部的话就要知道全部的值是ord 值和 Key 值的差别了 用我上面给你那个 OnKeyPreee 和 OnKeyDown 看看两个的差别吧

追月 · 2005-03-06

模拟的结果不是在当前Form，而是在另外的窗口。

gooodlife · 2005-03-06

只有当前得到焦点的控件才有效,,,那个窗口都没有问题吧 不明白吗?

追月 · 2005-03-06

接受答案了

keybd_event的问题 ( 积分: 100 )

追月

Unregistered / Unconfirmed

追月

Unregistered / Unconfirmed

gooodlife

Unregistered / Unconfirmed

gooodlife

Unregistered / Unconfirmed

antong

Unregistered / Unconfirmed

abookdog

Unregistered / Unconfirmed

gooodlife

Unregistered / Unconfirmed

追月

Unregistered / Unconfirmed

gooodlife

Unregistered / Unconfirmed

追月

Unregistered / Unconfirmed

gooodlife

Unregistered / Unconfirmed

追月

Unregistered / Unconfirmed

gooodlife

Unregistered / Unconfirmed

追月

Unregistered / Unconfirmed

Similar threads