猫
Delphi技术
日志阅读：2052
日志评论：0

上一篇日志 «
下一篇日志 »

模似键盘输入又一方法

该日志由 samool 发表于 2007-11-26 2:39 AM

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;