请问怎样得到另外运行的软件里面label的caption的内容。因为他没有句柄该怎样得到 ( 积分: 100 )

980 · 2005-02-01

请问怎样得到另外运行的软件里面label的caption的内容。因为他没有句柄该怎样得到

980 · 2005-02-01

请问怎样得到另外运行的软件里面label的caption的内容。因为他没有句柄该怎样得到

lichengbin · 2005-02-01

参考http://www.delphibbs.com/keylife/iblog_show.asp?xid=12219

980 · 2005-02-01

谢谢你，我看看。这里还有别的和这个相关的东西吗

iorizht · 2005-02-01

用不到HOOK吧，直接findwindow ,findwindowex或者用minispy查一下，在来个sendmessage就OK了吧

lichengbin · 2005-02-01

楼上，你倒是SendMessage一下取Label.Caption内容试试，Label有句柄吗？你的Message发给谁呀？嘿嘿

missinwind · 2005-02-01

可以先找到LABEL所在窗体的句柄，再根据Form1.components进行判断试试

ffhello · 2005-02-01

delphi内的label没有handle(句柄),hook后

980 · 2005-02-01

我知道的使用句柄肯定不能实现的。

abookdog · 2005-02-01

利用屏幕取词的原理

980 · 2005-02-01

其实  “利用屏幕取词的原理  ” 实现起来不是特别的完美。但还不知道怎样做。谢谢楼上的各位了

abookdog · 2005-02-01

library GetWord32; uses  SysUtils,  Windows,  UnitHookDLL in 'UnitHookDLL.pas',  QTThunkU in 'QTThunkU.pas',  UnitHookType in 'UnitHookType.pas'; exports  OpenGetKeyHook,  CloseGetKeyHook; begin end. unit UnitHookDLL; interface uses Windows, Messages, Dialogs, SysUtils, UnitHookType, Math; type  THandle16 = Word; function OpenGetKeyHook(sender: HWND; MessageID: WORD): BOOlean; stdcall; function CloseGetKeyHook: BOOLean; stdcall; var  pShMem: PShareMem;  hMappingFile: THandle;  FirstProcess: boolean;  pFuncCreate, pFuncFree, pFuncCheck: Pointer;  hInst16: THandle;  MessageHook: HHOOK; {$STACKFRAMES On} implementation uses QTthunku; {执行16位代码下进行取词，修改函数的入口} function SetGDIHook: boolean; stdcall; begin  result := false;  if pFuncCreate = nil then exit;  asm      pushad      push ebp      sub esp,$2c      mov edx, pFuncCreate {函数地址}      mov ebp,esp      add ebp,$2c      {利用Thunk执行16位下的函数，函数地址保存在edx中}      call  QT_Thunk      add esp,$2c      pop ebp      mov byte ptr @result,al      popad  end; end; {执行16位代码下取消取词，恢复函数入口} function UnSetGDIHook: boolean; stdcall; begin  result := false;  if pFuncFree = nil then exit;  asm     {保寄存器的值}      pushad      push ebp      sub esp,$2c      mov edx, pFuncFree {函数地址}      mov ebp,esp      add ebp,$2c      {利用Thunk执行16位下的函数，函数地址保存在edx}      call  QT_Thunk      add esp,$2c      pop ebp      mov byte ptr @result,al      popad  end; end; function CheckBuf: boolean; stdcall; var  asd1, asd2: pchar; begin  result := false;  if pFuncCheck = nil then exit;  {分配固定的内存，提供与16位代码交换数据}  asd1 := GlobalAllocPtr16(GPTR, MAXBUF);  {16位指针转换为32位指针}  asd2 := Ptr16To32(asd1);  asm     {保存寄存器的值}      pushad      push ebp      sub esp,$2c      push asd1  {第一个参数。最多支持两个参数}                 {第二个参数}      mov edx, pFuncCheck{函数地址}      mov ebp,esp      add ebp,$2c      call  QT_Thunk      add esp,$2c      pop ebp      mov byte ptr @result,al      popad  end;  if result then  begin    {拷贝数据到共享内存中}    strlcopy(@pShMem^.Text, asd2, MAXBUF);  end;  {释放16位指针}  GlobalFreePtr16(asd1); end; procedure IterateThroughItems(WND:HWND;menu:Hmenu;p:TPoint;Level:integer); var   i:integer;   info:TMenuItemInfo;   rec:TRect; begin   for i:=0 to GetMenuItemCount(menu)-1 do   begin      fillchar(info,sizeof(info),0);      info.cbSize:=sizeof(info);      info.fMask:=MIIM_TYPE or MIIM_SUBMENU;      info.cch:=256;      getmem(info.dwTypeData,256);      GetMenuItemInfo(menu,i,true,info);      GetMenuItemRect(wnd,menu,i,rec);      if (rec.Left&lt;=p.X)and(p.X&lt;=rec.Right)and(rec.Top&lt;=p.Y)and(p.Y&lt;=rec.Bottom)then      if (info.cch&lt;&gt;0) then      begin         strlcopy(pShMem^.Text,info.dwTypeData,min(info.cch,MAXBUF));         PostMessage(pShMem^.hMainWnd, WM_MOUSEPT, 2, 2);      end; //          freemem(info.dwTypeData,256); //          info.dwTypeData:=nil;      if info.hSubMenu&lt;&gt;0 then      begin         IterateThroughItems(wnd,info.hSubMenu,p,Level+1);      end;   end; end; procedure fOnTimer(theWnd: HWND; msg, idTimer: Cardinal; dwTime: DWORD); stdcall; //CallBack Type var  InvalidRect: TRECT;  hwndPtIn: HWND;  buffer:array[0..255]of char;  menu:Hmenu; begin  pShmem^.nTimePassed := pShmem^.nTimePassed + 1;  if pShmem^.nTimePassed = 10 then  begin    {获取当前鼠标点的窗口句柄}    hwndPtIn := WindowFromPoint(pshmem^.pMouse);    {屏幕坐标转换为客户区的坐标}    ScreenToClient(hwndPtIn, pshmem^.pMouse);    setGDIHook;    if(pshmem^.pMouse.x&lt;0)or(pshmem^.pMouse.y&lt;0) then    begin       Getwindowtext(hwndPtIn,buffer,sizeof(buffer)-1);       Setwindowtext(hwndPtIn,buffer);       ClientToScreen(hwndPtIn, pshmem^.pMouse);       //MenuItemFromPoint(hwndPtIn,GetMenu(hwndPtIn),pshmem^.pMouse);       menu:=GetMenu(hwndPtIn);       IterateThroughItems(hwndPtIn,menu,pshmem^.pMouse,1); //       BringWindowToTop(hwndPtIn); //       DrawMenuBar(hwndPtIn);    end    else begin       InvalidRect.left := pshmem^.pMouse.x;       InvalidRect.top := pshmem^.pMouse.y;       InvalidRect.Right := pshmem^.pMouse.x + 1;       InvalidRect.Bottom := pshmem^.pMouse.y + 1;       {强迫重画此点}       InvalidateRect(hwndPtIn, @InvalidRect, false);    end;  end  else if pShmem^.nTimePassed &gt;= 11 then  begin    {如果鼠标定留时间超过一定值，即显示数据}    pShmem^.nTimePassed := 11;    {调用检查缓冲区的数据}    if CheckBuf then        {消息值为2表示缓冲区有数据}      PostMessage(pShMem^.hMainWnd, WM_MOUSEPT, 2, 2);  end; end; function MouseHookProc(nCode: integer; wPar: WParam; lPar: LParam): lResult; stdcall; var  pMouseInf: TMouseHookStruct; begin  pShmem^.nTimePassed := 0;  UnSetGDIHook; {采用stdcall，所以它里面的变量可以随意}  if (nCode &gt;= 0) and ((wPar=WM_MOUSEMOVE)or(wPar=WM_NCMouseMove)) then  begin    pMouseInf := (PMouseHookStruct(lPar))^;    if (pShMem^.pMouse.x &lt;&gt; pMouseInf.pt.x) or      (pShMem^.pMouse.y &lt;&gt; pMouseInf.pt.y) then    begin      if nCode = HC_NOREMOVE then        pShMem^.fStrMouseQueue := 'Not removed from the queue'      else        pShMem^.fStrMouseQueue := 'Removed from the queue';      {鼠标所在的位置}      pShMem^.pMouse := pMouseInf.pt;      {鼠标所在的窗口句柄}      pShMem^.hHookWnd := pMouseInf.hwnd;      {发送鼠标位置消息}      PostMessage(pShMem^.hMainWnd, WM_MOUSEPT, 1, 1); {1表示是鼠标消息}    end;    pShMem^.hHookWnd := pMouseInf.hwnd;  end;  Result := CallNextHookEx(MessageHook, nCode, wPar, lPar); end; function OpenGetKeyHook(sender: HWND; MessageID: WORD): BOOLean; stdcall; begin  {设置定时器}  pShmem^.fTimerID := SetTimer(0, 0, 20, @fOnTimer);  {添加鼠标钩子}  MessageHook := SetWindowsHookEx(WH_MOUSE, MouseHookProc, HInstance, 0); ;  result := true; end; function CloseGetKeyHook: BOOLean; stdcall; begin  {关闭定时器}  KillTimer(0, pShmem^.fTimerID);  {取消钩子}  UnhookWindowsHookEx(MessageHook);  {取消取词}  UnSetGDIHook;  result := true; end; initialization        {如果映射文件已经存在则打开}        hMappingFile := OpenFileMapping(FILE_MAP_WRITE, False, MappingFileName);        if hMappingFile = 0 then        begin          {创建映射文件}          hMappingFile := CreateFileMapping($FFFFFFFF,             nil,             PAGE_READWRITE, {页面为可读写}             0,             SizeOf(TShareMem),             PChar(MappingFileName));          FirstProcess := true;        end        else FirstProcess := false;        if hMappingFile &lt;&gt; 0 then        begin          {句柄pShMem指向映射文件地址}          pShMem := PShareMem(MapViewOfFile(hMappingFile,             FILE_MAP_WRITE,             0,             0,             0));          if pShMem = nil then          begin            CloseHandle(hMappingFile);            ShowMessage('不能建立共享内存!');            exit;          end        end;        if FirstProcess then        begin          MessageHook := 0;        end;        pFuncFree := nil;        pFuncCreate := nil;        pFuncCheck := nil;        pshmem^.nTimePassed := 0;        {载入16位DLL，必须用LoadLibrary16}        hInst16 := LoadLibrary16('GetWord.DLL');        {载入成功}        if hInst16 &gt;= 32 then        begin          {取函数或过程的地址}          pFuncCreate := GetProcAddress16(hInst16, 'TextHookCreate');          pFuncFree := GetProcAddress16(hInst16, 'TextHookFree');          pFuncCheck := GetProcAddress16(hInst16, 'checkbuf');          if (pFuncCreate = nil) or (pFuncFree = nil) or (pFuncCheck = nil) then          begin            pFuncCreate := nil;            pFuncFree := nil;            pFuncCheck := nil;          end;        end        else begin          showmessage('打开16位DLL错误');          exit;        end; finalization        if hInst16 &gt;= 32 then           FreeLibrary16(hInst16);        UnMapViewOfFile(pShMem);        CloseHandle(hMappingFile); end. unit UnitHookType; interface uses windows, messages; const  MaxStringLen = 100;  MAXBUF = 100;  WM_MOUSEPT = WM_USER + 1138;  MappingFileName = 'Mapping File GetWord16'; type  PPointer = ^Pointer;  TShareMem = packed record    hMainWnd: HWND; {主应用窗口}    hHookWnd: HWND; {鼠标所在窗口}    pMouse: TPoint; {鼠标信息}    fStrMouseQueue: array[0..MaxStringLen] of Char; {鼠标信息串}    nTimePassed: integer; {鼠标暂停时间}    bCanSpyNow: Boolean; {开始取词}    {钩子函数句柄}    Text: array[0..MAXBUF] of Char; {返回所取的字符串}    fTimerID: Cardinal;  end;  PShareMem = ^TShareMem; implementation end.

iorizht · 2005-02-01

学习

lichengbin · 2005-02-01

屏幕取词？楼上贴的是Win98下32位Mouse Hook部分的DLL，还需要16位的取词DLL，再加上WinNT/2000/XP的取词方式还不一样，又需要一个DLL，要根据运行系统的不同加载不同的取词DLL，而且每次要取Label的内容时都要鼠标移到Label上面才可以取，基本上不具备实用性。 楼主，http://www.delphibbs.com/keylife/iblog_show.asp?xid=12219 提供的内容不能解决问题吗？原理相同的，找到Label所在Form的Handle，根据这个Handle获得Form的实例对象，再Form.Components遍历，不就可以啦？

980 · 2005-02-02

http://www.delphibbs.com/keylife/iblog_show.asp?xid=12219 这个帖子我看了，对我有点难度，我在参看，看人家的评论可以取出label的内容。我试试 谢谢各位帮忙了

980 · 2005-02-02

你的代码没有注释  看起来更难了

zhongs · 2005-02-02

根据Form.Components找label是个好方法，form.Handle可以用findwindow取得，由于不同进程，不能取得form/application/screen的指针？

980 · 2005-02-02

请问  lichengbin,   // DestMain := FindWindow('TFrm_Main', '客户信息资料'); // DestWnd := FindWindowEx(DestMain, 0, 'TDBGrid', nil); 这个可以得到TDBGrid的handle，但是一点击  “Cell[X,Y]”这个按钮就出错误提示   DestMain := FindWindow('TForm1', 'Form1');  DestWnd := FindWindowEx(DestMain, 0, 'TLabel', nil); 这个呢DestWnd 的值始终为0

lichengbin · 2005-02-02

老兄，也不看看我的示例程序是Hook什么组件的吗？Hook StringGrid的，HookSG.dll中的MsgWndProc中的SG变量类型是TStringGrid，你没看见吗？DBGrid是从TCustomGrid继承来的，可不是TStringGrid的子类呀。你既然要Hook DBGrid，DLL自然也要做相应更改啦。 你用FindWindowEx找Label，不是搞笑吗？你都知道Label不是窗口组件，没有句柄啦，你找什么呀？能直接找到，还要这么麻烦干嘛？直接SendMessage发个消息不就取到Caption啦，还要这么辛苦写个DLL，写个Hook？

980 · 2005-02-02

关键你的代码一点注释都没有，本来就不明白，感谢你，先揭贴，有问题还的问你

请问怎样得到另外运行的软件里面label的caption的内容。因为他没有句柄该怎样得到 ( 积分: 100 )

980

Unregistered / Unconfirmed

980

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

980

Unregistered / Unconfirmed

iorizht

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

missinwind

Unregistered / Unconfirmed

ffhello

Unregistered / Unconfirmed

980

Unregistered / Unconfirmed

abookdog

Unregistered / Unconfirmed

980

Unregistered / Unconfirmed

abookdog

Unregistered / Unconfirmed

iorizht

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

980

Unregistered / Unconfirmed

980

Unregistered / Unconfirmed

zhongs

Unregistered / Unconfirmed

980

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

980

Unregistered / Unconfirmed

Similar threads