请各位指点！！！用钩子记录下打开过的所有的网页窗口标题栏名称 (100分)

yahle · 2004-03-11

这是我的代码，有问题，可以截获WM_SETTEXT消息,但是不知如何进一步得到窗口标题栏名称 function CallWndProc(iCode: Integer;  wParam: WPARAM;  lParam: LPARAM): LRESULT; stdcall; export; var  Wnd: hWnd;  WndText: string;  szTitle:string;     //当前窗口名称  data : TModuleEntry32;  myfile : textfile;  temp : TDateTime;  processPath:string;  processID:integer;  Handler : THandle;  msg:Teventmsg;  str

Char;  i : integer; begin  Result := 0;  If iCode < 0 Then  begin    Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);    Exit;  end   else if iCode=HC_ACTION then   begin     msg:=peventmsg(lParam)^;     if msg.message=WM_SETTEXT then     begin       str := pchar(lParam);       i := 1;       while str <> #0 do       begin         szTitle := str;         i := i+1;       end;       szTitle := #0;       if length(szTitle)<=0 then        szTitle := 'null';      AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');      append(myfile);      Writeln(myfile, FormatDateTime('c', now()) +' '+ szTitle +' ');// + processPath      Writeln(myfile, #13);      CloseFile(myfile);  end; end; function EnableHotKeyHook: BOOL; export; begin  Result := False;  if hNextHookProc <> 0 then Exit;  // 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下  // 来, 免得 HOOK 呼叫链结断掉  hNextHookProc := SetWindowsHookEx(WH_CALLWNDPROC,    CallWndProc,    HInstance,    0);  Result := hNextHookProc <> 0; end;

yahle · 2004-03-11

在http://www.delphibbs.com/delphibbs/dispq.asp?lid=2488635 有相关讨论，但是未讨论清楚

weiwei81123 · 2004-03-12

szTitle := string(msg.lparam);

yahle · 2004-03-12

改成szTitle := string(msg.paramL); (没有msg.lparam)   改完后还是记录不窗口标题栏名称      if length(szTitle)<=0 then       szTitle := 'null';  这两句也没起作用 文件中空白一片

weiwei81123 · 2004-03-12

没仔细看，你把msg的类型搞错了,应为PCWPSTRUCT

yahle · 2004-03-12

为什么是应为PCWPSTRUCT 能列出消息的具体的分类吗

weiwei81123 · 2004-03-12

具体的看帮助就知道了，每种钩子对应的函数怎么写，帮助中都有详细的说明

yahle · 2004-03-14

改成 msg:tagCWPSTRUCT;     msg:=PCWPSTRUCT(lParam)^;     if msg.message=WM_SETTEXT then     begin       szTitle := string(msg.lParam); 首先是exlporer关闭，桌面消失 我等了N分钟，才恢复正常 打开文件截下这些：   2004-3-12 18:34:51 完毕 2004-3-12 18:34:51 ht 2004-3-12 18:34:51 ht 2004-3-12 18:34:51 6914 !R

yahle · 2004-03-14

我又改成     SetLength(szTitle, 255); SetLength(szTitle, GetWindowText(msg.hwnd,pchar(szTitle),254)); 得到 2004-3-12 18:54:46 正在查找站点: www.sina.com.cn   2004-3-12 18:54:47 正在连接站点 218.30.12.183   2004-3-12 18:54:47 已经找到网站。正在等待回应...   2004-3-12 18:54:47 从以下站点开始下载: http://www.sina.com.cn/   2004-3-12 18:54:48 正在从以下站点下载: http://www.sina.com.cn/ 2004-3-12 18:54:48   2004-3-12 18:54:48 正在打开网页 http://www.sina.com.cn/...   2004-3-12 18:54:48 null 2004-3-12 18:54:48 新浪首页 2004-3-12 18:54:49   2004-3-12 18:54:49 正在打开网页 http://www.sina.com.cn/...   20042004-3-12 18:54:49 http://news.sina.com.cn/z/mdltlbz/index.shtml   2004-3-12 18:54:49 正在打开网页 http://www.sina.com.cn/...   2004-3-12 18:54:49 http://news.sina.com.cn/w/2004-03-12/18063017561.shtml   2004-3-12 18:54:49 http://news.sina.com.cn/z/hanguowt/index.shtml   2004-3-12 18:54:49 正在打开网页 http://www.sina.com.cn/...   2004-3-12 18:54:49 http://news.sina.com.cn/   2004-3-12 18:54:49 正在打开网页 http://www.sina.com.cn/...   20042004-3-12 18:54:50 正在打开网页 http://www.sina.com.cn/...   2004-3-12 18:54:50   2004-3-12 18:54:51 正在打开网页 http://news.sina.com.cn/o/allnews/input/index.html...   2004-3-12 18:54:51 正在打开网页 http://sina.allyes.com/main/adfshow?user=AFP6_for_SINA|Home|HomePV&db=sina&border=0&local=yes...   2004-3-12 18:54:51 正在打开网页 http://news.sina.com.cn/o/allnews/input/index.html...   2004-3-12 18:54:51 完毕

yahle · 2004-03-12

太多了 WM-SETTEXT是不是第隔多少微秒就发一次啊 怎么把截WM-SETTEXT和HSHELLO-WINDOWCREATED结合起来 获得网页打开的最终效果

weiwei81123 · 2004-03-12

可以判断一下消息是不是发给主窗体的（通过msg.hwnd）

yahle · 2004-03-12

我只要一条记录来记录下曾访问过的一个网页 就拿打开新浪来说， 上面是我用MyIE2打开记录下的过程 从这里看我只要记录第一条即可 2004-3-12 18:54:46 正在查找站点: www.sina.com.cn   但我用IE打开又另外一些 2004-3-12 19:08:54 正在下载图片 http://image2.sina.com.cn/yh/tj/gg040202.jpg...   2004-3-12 19:08:57 完毕   2004-3-12 19:08:57   04-3-12 19:08:58 正在下载图片 http://image2.sina.com.cn/yh/tj/gg040201.jpg...   2004-3-12 19:08:59 null 2004-3-12 19:08:59 链接 2004-3-12 19:08:59 链接 2004-3-12 19:08:59 链接 2004-3-12 19:09:00 Microsoft Internet Explorer ................... 2004-3-12 19:09:25 http://ad4.sina.com.cn/wx/ads/ibmhomepopup312.html - Microsoft Internet Explorer 2004-3-12 19:09:28 完毕   004-3-12 19:09:28   2004-3-12 19:09:28 正在下载图片 http://image2.sina.com.cn/yh/tj/gg040201.jpg...   2004-3-12 19:09:31 完毕   记录第一条又不行

yahle · 2004-03-12

主窗体的（通过msg.hwnd）是指网页的窗口？ 不太明白，那一堆消息都是发给网页的窗口吧

yahle · 2004-03-13

我现在有个想法是：加一个temp文件 1 当产生一个窗口1时，   如果temp文件中有上一个窗口句柄的记录就先读出该句柄，把句柄对应的窗口信息记录到windowtext中，把窗口1的句柄记入文件   如果temp文件中没有窗口句柄的记录, 还是把窗口1的句柄记入文件 如此重复，除了最后一个，其他的都可以记录，而且记录的数量不多 正在实现中.....

yahle · 2004-03-14

To weiwei81123   我的想法最终还是没实现    考虑了一直你的建议：判断一下消息是不是发给主窗体的（通过msg.hwnd）   对，判断消息是不是设置主窗体标题栏的，把发给状态栏之类的滤掉  ，可以减少很多    但发给主窗体标题栏的msg.hwnd和发给状态栏的msg.hwnd有什么不同？

weiwei81123 · 2004-03-14

消息发给哪个窗口就是设置哪个窗口上的文字呀 发给状态栏就是设置状态栏文字，你当然不需要它

yahle · 2004-03-15

在截取的消息中很多是发给状态栏的，以下这种应该都是 2004-3-12 19:08:54 正在下载图片 http://image2.sina.com.cn/yh/tj/gg040202.jpg...   2004-3-12 19:08:57 完毕   2004-3-12 19:08:57   04-3-12 19:08:58 正在下载图片 http://image2.sina.com.cn/yh/tj/gg040201.jpg...   2004-3-12 19:08:59 null 2004-3-12 19:08:59 链接 那如何把发给状态栏之类的滤掉？

weiwei81123 · 2004-03-16

之前的shell钩子不是已经获得了主窗口的句柄吗？ 比较一下msg.hwnd是否跟它相等就可以了啊

yahle · 2004-03-20

改了，在WH—SHELL钩子中加WH—WNDPROC钩子，记录不了 在WH—SHELL钩子中获得主窗口的句柄，记录在文本中 WH—WNDPROC钩子中读文本获得主窗口的句柄 function CallWndProc(iCode: Integer;   wParam: WPARAM;   lParam: LPARAM): LRESULT; stdcall; export; var   filepath:string;   szTitle:string;     //当前窗口名称   myfile : textfile;   msg:tagCWPSTRUCT;   mainHandle : Thandle;   temp : string; begin   Result := 0;   If iCode < 0 Then   begin     Result := CallNextHookEx(captionHook, iCode, wParam, lParam);     Exit;   end   else if iCode=HC_ACTION then   begin     msg:=PCWPSTRUCT(lParam)^;     filepath := path + '/temp';     if not DirectoryExists(filepath) then       ForceDirectories(filepath);     mainHandle := 0;     filepath := 'E:/delphiProgram/managerComputer/个人电脑使用管理362/temp/temp.txt';     AssignFile(myfile, filepath);     if FileExists(filepath) then     begin       reset(myfile);         if not Eof(myfile) then         begin           readln(myfile, temp);           mainHandle := StrToInt(temp);         end;     end     else       rewrite(myfile);     CloseFile(myfile);     if (msg.message=WM_SETTEXT) and (msg.hwnd = mainHandle) then     begin       SetLength(szTitle, 255);       SetLength(szTitle, GetWindowText(msg.hwnd,pchar(szTitle),254));      if length(szTitle)<=0 then         szTitle := 'null';       AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');       append(myfile);       Writeln(myfile, szTitle);       Writeln(myfile, #13);       CloseFile(myfile);       UnhookWindowshookEx(captionHook);  // 解除Hook     end;   end; end; function Shellproc(iCode: Integer;   wParam: WPARAM;   lParam: LPARAM): LRESULT; stdcall; export; var   filepath:string;   szTitle:string;     //当前窗口名称   data : TModuleEntry32;   processPath:string;   processID:integer;   Handler : THandle; begin   Result := 0;   If iCode < 0 Then   begin     Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);     Exit;   end   else if iCode=HSHELL_WINDOWCREATED then   begin     nSize := 255;     GetUserName(@lpBuffer, nSize);     userName := Copy(lpBuffer, 1, nSize-1);     filepath := 'E:/delphiProgram/managerComputer/个人电脑使用管理362/temp/temp.txt';     AssignFile(myfile, filepath);     rewrite(myfile);     writeln(IntToStr(wParam));     CloseFile(myfile);     GetWindowThreadProcessId(wParam, @ProcessId );     captionHook := SetWindowsHookEx(WH_CALLWNDPROC, CallWndProc, HInstance, ProcessId);     //获得创建窗口的进程路径     //产生进程模块列表     Handler := CreateToolhelp32Snapshot( TH32CS_SNAPMODULE, ProcessId );     data.dwSize:=sizeof(ModuleEntry32);     //获得进程的第一个模块信息     Module32First( Handler, Data );     if not Module32First( Handler, Data ) then       processPath := 'null'     else       processPath := data.szExePath;     filepath := 'E:/delphiProgram/managerComputer/windowtext.txt' ;     AssignFile(myfile, filepath);     if FileExists(filepath) then       append(myfile)     else       rewrite(myfile);     Writeln(myfile, DateTimeToStr( now() ) +' '+ processPath );     Writeln(myfile, #13);     CloseFile(myfile);   end; end; function EnableHook: BOOL; export; var   filepath : string; begin   Result := False;   if hNextHookProc <> 0 then Exit;   //挂上 WH_SHELL类型的HOOK, 同时传回值必须保留下来, 免得 HOOK呼叫链结断掉   hNextHookProc := SetWindowsHookEx(WH_SHELL,     shellproc,     HInstance,     0);   Result := hNextHookProc <> 0; end;

zw84611 · 2004-03-20

换一个思路，可以用BHO。 看一下这里： http://www.euromind.com/iedelphi/ie5tools/bho.htm

请各位指点！！！用钩子记录下打开过的所有的网页窗口标题栏名称 (100分)

yahle

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

Similar threads