网页功能: 加入收藏 设为首页 网站搜索  
获取其它进程中的Web Browser中的HTML源码
发表日期:2005-11-10作者:[转贴] 出处:  

 HWND H1,H2,H3,H4,hw;
 H1=H2=H3=H4=hw=NULL;
 H1=::FindWindow("TForm1",NULL);
 if (H1) H2=::FindWindowEx(H1,NULL,"Shell Embedding",NULL);
 if (H2) H3=::FindWindowEx(H2,NULL,"Shell DocObject View",NULL);
 if (H3) H4=::FindWindowEx(H3,NULL,"Internet Explorer_Server",NULL);

 if (H4) hw=H4;
 else
 {
  AfxMessageBox("No Found the Dialog with IE!");
  return;
 }

 IHTMLDocument2 *pHTMLDocument=NULL;
 DWORD lRes;
 HRESULT hres;

 UINT MSG = RegisterWindowMessage("WM_HTML_GETOBJECT");
 SendMessageTimeout(hw, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, &lRes);

 hres=ObjectFromLresult(lRes,__uuidof(IHTMLDocument2),0,(void**)&pHTMLDocument);

 if(hres==S_OK)
 {
  IPersistStreamInit *pPSI=NULL;
  IStream *pStream=NULL;
  HGLOBAL  hHTMLText;
   
  if  (FAILED(pHTMLDocument->QueryInterface(&pPSI))) return;
  
  hHTMLText = GlobalAlloc(GMEM_FIXED, 65534);
  CreateStreamOnHGlobal(hHTMLText, TRUE, &pStream);
  pPSI->Save(pStream, FALSE);

  char *pText = (char*)hHTMLText;
  FILE *f=fopen("data_from_explorer.txt","w");
  fwrite(pText,1,strlen(pText),f);
  fclose(f);
  AfxMessageBox("the source codes Saved in data_from_explorer.txt");

  pStream->Release();
  pPSI->Release();
 }

 
 

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 获取其它进程中的Web Browser中的HTML源码
本类热点文章
  P2P之UDP穿透NAT的原理与实现
  Socket传输文件示例
  Socket传输文件示例
  微软ping程序源代码完整版
  Windows Socket API 使用经验
  MSXML 解析 XML
  VC中ftp协议实现多线程断点续传
  一个对Winsock 完成端口模型封装的类
  一个对Winsock 完成端口模型封装的类
  点对点(P2P)多线程断点续传的实现
  编程建立IIS站点和虚拟目录
  Windows网络编程经验小结(1)
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2024 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00394