模似键盘输入又一方法

2007 年 11 月 26 日

8794 次浏览

1342字数

AI摘要

本文介绍了一种模拟键盘输入的方法，通过获取窗口句柄、枚举子窗口、分割字符串获取用户名和密码，然后使用SendMessage函数模拟键盘输入。具体步骤包括：1. 获取窗口句柄；2. 枚举子窗口；3. 分割字符串获取用户名和密码；4. 使用SendMessage函数模拟键盘输入。

本文介绍了

cnt:=0;
//获取窗口句柄
EnumChildWindows(Hwindow,@LoginEnumWindowsProc,LongInt(self));

for i:=0 to chklst_Uid.Count-1 do
begin
      if chklst_Uid.Checked[i] then
      begin
          SplitString(Trim(chklst_Uid.Items.Strings[i]),'-',a,b);
          UidLogin:=Trim(a);
          UidPassword:=Trim(b);
          SendMessage(HLoginNum, WM_SETTEXT, 180, Integer(PChar(UidLogin)));
          for j:=1 to 6 do
          begin
              mychar:=MidStr(UidPassword,j,1);
              SendMessage(Hpass,WM_CHAR,Ord(mychar[1]),0);
          end;

          chklst_Uid.Checked[i]:=False;
          lbl_LoginUid.Caption:=UidPassword;
          Break;
      end;
end;