IE浏览器监控程序-监控IE窗体URL动态加载网页等信息

本程序由SHDocVw COM实现的。在项目工程内加入COM 引用:
Add Refernces - > COM Objects -> Microsft Internet Controls

主要用到SHDocVw.ShellWindowsCOM接口 ,SHDocVw.ShellWindowsClass类,
及SHDocVw.InternetExplorer 接口。

最重要的是IE窗口InternetExplorer接口，该接口继承IWebBrowser2. 

IWebBrowser2接口metadata资料如下:

using System;
using System.Reflection;
using System.Runtime.InteropServices;

namespace SHDocVw
{
   [Guid("D30C1661-CDAF-11D0-8A3E-00C04FC9E26E")]
   [TypeLibType(4176)]
    public  interface IWebBrowser2 : IWebBrowserApp
   {
      [DispId(555)]
       bool AddressBar {  get;  set; }
      [DispId(200)]
       object Application {  get; }
      [DispId(212)]
       bool Busy {  get; }
      [DispId(202)]
       object Container {  get; }
      [DispId(203)]
       object Document {  get; }
      [DispId(400)]
       string FullName {  get; }
      [DispId(407)]
       bool FullScreen {  get;  set; }
      [DispId(209)]
       int Height {  get;  set; }
      [DispId(-515)]
       int HWND {  get; }
      [DispId(206)]
       int Left {  get;  set; }
      [DispId(210)]
       string LocationName {  get; }
      [DispId(211)]
       string LocationURL {  get; }
      [DispId(406)]
       bool MenuBar {  get;  set; }
      [DispId(0)]
       string Name {  get; }
      [DispId(550)]
       bool Offline {  get;  set; }
      [DispId(201)]
       object Parent {  get; }
      [DispId(401)]
       string Path {  get; }
      [DispId(-525)]
      tagREADYSTATE ReadyState {  get; }
      [DispId(552)]
       bool RegisterAsBrowser {  get;  set; }
      [DispId(553)]
       bool RegisterAsDropTarget {  get;  set; }
      [DispId(556)]
       bool Resizable {  get;  set; }
      [DispId(551)]
       bool Silent {  get;  set; }
      [DispId(403)]
       bool StatusBar {  get;  set; }
      [DispId(404)]
       string StatusText {  get;  set; }
      [DispId(554)]
       bool TheaterMode {  get;  set; }
      [DispId(405)]
       int ToolBar {  get;  set; }
      [DispId(207)]
       int Top {  get;  set; }
      [DispId(204)]
       bool TopLevelContainer {  get; }
      [DispId(205)]
       string Type {  get; }
      [DispId(402)]
       bool Visible {  get;  set; }
      [DispId(208)]
       int Width {  get;  set; }
      
      [DispId(301)]
       void ClientToWindow( ref  int pcx,  ref  int pcy);
      [DispId(502)]
       void ExecWB(OLECMDID cmdID, OLECMDEXECOPT cmdexecopt,  ref  object pvaIn,  ref  object pvaOut);
      [DispId(303)]
       object GetProperty( string Property);
      [DispId(100)]
       void GoBack();
      [DispId(101)]
       void GoForward();
      [DispId(102)]
       void GoHome();
      [DispId(103)]
       void GoSearch();
      [DispId(104)]
       void Navigate( string URL,  ref  object Flags,  ref  object TargetFrameName,  ref  object PostData,  ref object Headers);
      [DispId(500)]
       void Navigate2( ref  object URL,  ref  object Flags,  ref  object TargetFrameName,  ref  object PostData,  ref object Headers);
      [DispId(302)]
       void PutProperty( string Property,  object vtValue);
      [DispId(501)]
      OLECMDF QueryStatusWB(OLECMDID cmdID);
      [DispId(300)]
       void Quit();
      [DispId(-550)]
       void Refresh();
      [DispId(105)]
       void Refresh2( ref  object Level);
      [DispId(503)]
       void ShowBrowserBar( ref  object pvaClsid,  ref  object pvarShow,  ref  object pvarSize);
      [DispId(106)]
       void Stop();
   }
}

看看吧，IWebBrowser2接到口内是不是有很多我们关心的方法和属性? 接下来看实现吧!

IE_Watcher类:取名为IE窗口监视器, 啥好听的名字自己取呗!

//IE窗口监视器
public  class IE_Watcher
{
    private Form _owner =  null;
   
    public IE_Watcher(Form owner)
   {
      _owner = owner;
   }
   
   [DllImport("user32.dll", CharSet = CharSet.Auto, ExactSpelling =  true)]
    private  static  extern IntPtr GetForegroundWindow();  //WINAPI 获取当前活动窗体的句柄 
   
   [DllImport("user32.dll", CharSet = CharSet.Auto, ExactSpelling =  true)]
    private  static  extern  bool SetForegroundWindow(IntPtr hWnd);  //WINAPI 设置当前活动窗体的句柄 
   
    //跨线程访问主线程内的Log控件，自定义委托 
    public  delegate  void ShowLogHandle( string msg);
   
    //Txt文件记录器 
    private UrlHistory _urltext =  null;
    public UrlHistory UrlText {  get {  return _urltext; }  set { _urltext = value; } }
   
   
    //获取IE浏览器打开的网页列表 
    public IList GetOpenedWindows()
   {
      IList list =  new ArrayList();
      
       //注:要引入SHDocVw COM对象哦!!! Add Refernces - > COM Objects -> Microsft Internet Controls 
       //Assembly Interop.SHDocVw 
      SHDocVw.ShellWindows shellWindows =  new SHDocVw.ShellWindowsClass();
       string filename;
       foreach (SHDocVw.InternetExplorer ie  in shellWindows)
      {
         filename = Path.GetFileNameWithoutExtension(ie.FullName).ToLower();
         
          //注:iexplore, 如Maxthon浏览器 
          if (filename.Equals("iexplore")) list.Add(ie);
      }
      
       return list;
   }
   
    //当前监控的IE窗体对象 
    private SHDocVw.InternetExplorer _ie =  null;
    public SHDocVw.InternetExplorer CurrentIE {  get {  return _ie; } }
   
    //显示动态消息委托，用于跨线程 
    private ShowLogHandle _showLog =  null;
   
    //开始监控IE窗体 
    public  void ListenWindow(SHDocVw.InternetExplorer ie, ShowLogHandle showLog)
   {
      _ie = ie;
      _showLog = showLog;
      
       //置顶被监控的IE窗体 
       if ( new IntPtr(ie.HWND) != GetForegroundWindow()) SetForegroundWindow( new IntPtr(ie.HWND));
      
       //绑定事件: IE打开网页时触发这个事件 
      ie.NavigateComplete2 +=  newSHDocVw.DWebBrowserEvents2_NavigateComplete2EventHandler(OnNavigateComplete);
      
      
      ie.TitleChange +=  new SHDocVw.DWebBrowserEvents2_TitleChangeEventHandler(OnTitleChange);
   }
   
    public  void OnTitleChange( string Text)
   {
       this.ShowMsg("标题:" + Text);
   }
   
    //打开网页完成 
    private  void OnNavigateComplete( object pDisp,  ref  object URL)
   {
       if (_urltext !=  null)
      {
         _urltext.WriteHistory(URL.ToString());  //写入文本文件 
         
          this.ShowMsg("打开:" + URL.ToString());  //显示动态消息 
      }
   }
   
    //跨线程访问主线程内的Log控件，给控件赋值 
    private  void ShowMsg( string msg)
   {
      _owner.Invoke(_showLog, msg);
   }
}

将IE窗体动态消息写文件

/// <summary> 
/// Txt文件记录器 
/// </summary> 
public  class UrlHistory
{
    private  string _file;
   
    public UrlHistory( string file)
   {
      _file = file;
   }
   
    public  void WriteHistory( string content)
   {
      File.AppendAllText(_file, content + "\r\n");
   }
}

在ListBox控件Items属性插入自定义对象所定义的类

/// <summary> 
/// IE窗体对象，用于在ListBox内显示 
/// </summary> 
public  class IE_Item
{
    private SHDocVw.InternetExplorer _ie =  null;
    public SHDocVw.InternetExplorer IE {  get {  return _ie; } }
   
    public  string UrlName {  get {  return _ie.LocationName; } }
   
    public  string UrlAddress {  get {  return _ie.LocationURL; } }
   
    public IE_Item(SHDocVw.InternetExplorer ie)
   {
      _ie = ie;
   }
 
    //关键是这个重载的方法哦!!! 在ListBox内显示的资料  
    public  override  string ToString()
   {
       return _ie.LocationName;
   }
}

好了,测试窗体代码:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.IO;
using System.Collections;

namespace TestProject
{
    public partial  class frmListenToIE : Form
   {
       //IE窗体监控器 
       private IE_Watcher _ieWatcher =  null;
      
       public frmListenToIE()
      {
         InitializeComponent();
      }
      
       private  void frmListenToIE_Load( object sender, EventArgs e)
      {
          //实例化对象，将窗体对象作为参数传入,为什么呢? 
         _ieWatcher =  new IE_Watcher( this);
         
          //定义动态资料记录器对象 
         _ieWatcher.UrlText =  new UrlHistory("c:\\urlhistory.txt");
      }
      
       private  void btnGetWindow_Click( object sender, EventArgs e)
      {
          //获取所有已打开的IE窗体 
         IList windows = _ieWatcher.GetOpenedWindows();
         
          foreach (SHDocVw.InternetExplorer ie  in windows)
         {
             //在这里加入自定义对象哦!!! 
            listBox1.Items.Add( new IE_Item(ie));
         }
      }
      
       private  void btnListen_Click( object sender, EventArgs e)
      {
          //开始监视你选中的IE窗体 
          if (listBox1.SelectedIndex >= 0)
         {
             //将选中的Item转换为IE_Item对象 
            IE_Item item = listBox1.SelectedItem  as IE_Item;
            
             //item.IE 
            _ieWatcher.ListenWindow(item.IE,  this.ShowLog);
         }
      }
      
       //显示IE动态消息 
       public  void ShowLog( string content)
      {
         listBox2.Items.Add(content);
         listBox2.SelectedIndex = listBox2.Items.Count - 1;
         listBox2.Focus();
      }
   }
}