Delphi中如何获的其它应用程序中的内容？

    
CSDN首页 | 新闻聚焦 | 共享软件 | 俱乐部 | 开发文档 | 专家门诊 | 招聘求职 | Linux园地 | 程序员杂志 
--------------------------------------------------------------------------------
 
我要回复 | 我感兴趣 | 打印贴子 | 推荐给朋友 | 关闭窗口  
主　　题：如何得到qq密码框的句柄？
作　　者：shadows
所属论坛：Delphi
问题点数：20
回复次数：13
发表时间：2001-11-28 14:11:47
 
  
  我先取了鼠标位置，然后取鼠标位置的句柄，可是怎么也取不到qq密码框的句柄（别的都可以）请问为什么？有什么对策吗？ 
回复贴子： 
回复人：　shadows()　(2001-11-28 14:20:43)  得0分 
up,up  
回复人：　amer()　(2001-11-28 14:23:18)  得0分 
它加密了，2000也加密了  
回复人：　shadows()　(2001-11-28 14:28:35)  得0分 
那有什么办法没有？  
回复人：　baicolt(五岁的小新是我师傅)　(2001-11-28 14:29:43)  得0分 
我自己写了这个软件,能取窗口句柄和类名.不过QQ的密码框加密了,不能取密码.要的话请留Email.注明是2000还是98.因为我用了一个半透明的.  
回复人：　shadows()　(2001-11-28 14:33:56)  得0分 
能取qq聊天事输入框的句柄吗？（就是刷屏机的那个）  
回复人：　baicolt(五岁的小新是我师傅)　(2001-11-28 14:36:08)  得0分 
可以,我就是因为做刷屏机做出来的  
回复人：　zswangII(伴水II)(伤心中)(副本)　(2001-11-28 14:36:57)  得20分 
function GetPasswordText(mHandle: THandle): string; { 返回编辑器里的密码文本 }
const
  Size = 1024;
var
  Buffer: PChar;
begin
  GetMem(Buffer, Size);
  try
    Result := '';
    SendMessage(mHandle, WM_GETTEXTLENGTH, 0, 0);
    SendMessage(mHandle, WM_GETTEXT, Size, LongInt(Buffer));
    Result := string(Buffer);
  finally
    FreeMem(Buffer, Size);
  end;
end; { GetPasswordText }procedure TForm1.Timer1Timer(Sender: TObject);
var
  vHandle: THandle;
begin
  vHandle := WindowFromPoint(Mouse.CursorPos);
  if vHandle = Handle then Exit;
  Caption := GetPasswordText(vHandle);
end;//如果你要给分
//就给zswang!
 
回复人：　zswang(伴水)(伤心中)　(2001-11-28 14:40:52)  得0分 
//想深入用
Windows.GetClassName()
Windows.GetWindowText()
Windows.FindWindow()  
回复人：　shadows()　(2001-11-28 14:41:09)  得0分 
谢谢，[email protected] GetPasswordText(mHandle: THandle): string; { 返回编辑器里的密码文本 }
const
  Size = 1024;
var
  Buffer: PChar;
begin
  GetMem(Buffer, Size);
  try
    Result := '';
    SendMessage(mHandle, WM_GETTEXTLENGTH, 0, 0);
    SendMessage(mHandle, WM_GETTEXT, Size, LongInt(Buffer));
    Result := string(Buffer);
  finally
    FreeMem(Buffer, Size);
  end;
end; { GetPasswordText }procedure TForm1.Timer1Timer(Sender: TObject);
var
  vHandle: THandle;
begin
  vHandle := WindowFromPoint(Mouse.CursorPos);
  if vHandle = Handle then Exit;
  Caption := GetPasswordText(vHandle);
end;这段代码可以取最新版的qq的句柄吗？  
回复人：　baicolt(五岁的小新是我师傅)　(2001-11-28 14:41:25)  得0分 
同意.呵呵.  
回复人：　baicolt(五岁的小新是我师傅)　(2001-11-28 14:43:51)  得0分 
己发,请查收,可以取任何窗口的句柄.  
回复人：　shadows()　(2001-11-28 14:44:49)  得0分 
谢谢啊  
回复人：　zswang(伴水)(伤心中)　(2001-11-28 15:08:42)  得0分 
分没加对呀！
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻v
  
--------------------------------------------------------------------------------
 
我要回复：(请您对您的言行负责，遵守中华人民共和国有关法律、法规,尊重网上道德)  
如果你只是觉得这个贴子好，而没想留言的话，请点击后面的贴子提前连接。   
返回问题 | 关闭窗口   
   
 
           
美达美简介 广告服务 英语步步高 程序员大本营 百联美达美科技有限公司  版权所有