keybd_event模拟键盘输入密码

博主： samool
发布时间：2011 年 01 月 23 日
10153 次浏览
暂无评论
571字数
分类：搞软件

AI摘要

这段代码是一个Delphi函数，用于模拟键盘输入密码。函数名为InputChar，接收一个字符串参数str。通过循环遍历字符串中的每个字符，使用VkKeyScan函数获取字符对应的虚拟键码，然后调用keybd_event函数模拟键盘按下和释放操作，实现密码输入。

这段代码是一个Delphi函数

function TFrm_main.InputChar(str: string): Boolean;
var
i     : integer;
c     : byte;
begin
      for i := 1 to Length(str) do
      begin
       c := VkKeyScan(str[i]) and 255;                //输入文字
       keybd_event(c,0,0,0);
       keybd_event(c,0,KEYEVENTF_KEYUP,0);
      end;
end;