Internet Explorer 事件

IWebBrowser2 的屬性和方法給了你確切的控制導(dǎo)航和用戶接口的途徑，但是如果你不能夠檢測到瀏覽器正在處理什么以及何時(shí)處理什么，你還是沒有全面的控制它.因此，WebBrowser控件和Internet Explorer暴露出事件，通過此你可以必要時(shí)監(jiān)視活動(dòng)以及處理某些活動(dòng). 舉例來說，假設(shè)你建立一個(gè)intranet應(yīng)用程序, 你想限制用戶用戶訪問某些web頁.利用Internet Explorer的時(shí)間處理句柄,你可以指令應(yīng)用程序在用戶試圖訪問受限的URL時(shí)候取消導(dǎo)航完成。

事件 和 引出的接口

無論何時(shí)一個(gè)COM 對(duì)象需要客戶應(yīng)用程序一個(gè)事件發(fā)生了, COM 對(duì)象發(fā)送一個(gè)叫做事件的消息. 發(fā)送消息的處理過程會(huì)激發(fā)一個(gè)事件. 但如果事件沒有任何監(jiān)聽者會(huì)如何？ 事件每次都發(fā)生嗎? 顯然, 客戶應(yīng)用程序監(jiān)聽這些事件并控制COM對(duì)象.如果一個(gè)客戶應(yīng)用想接收來自COM 對(duì)象的事件,它"advises" 實(shí)際的COM 對(duì)象的.

一個(gè)COM 對(duì)象為了通客戶通信, 對(duì)象自身必須支持一個(gè)或者多個(gè)外引接口.一個(gè) COM 對(duì)象支持的外引接口是作為可連接對(duì)象引用. 要成為一個(gè)可連接對(duì)象，COM對(duì)象必須實(shí)現(xiàn)IConnectionPointContainer 接口。通過此接口，客戶可認(rèn)識(shí)到那些外引接口被服務(wù)器支持. 外引接口實(shí)際通過連接點(diǎn)由客戶掛接入COM實(shí)現(xiàn)。實(shí)現(xiàn)外引接口的客戶部分眾所周知是通過事件接收槽（event sink）實(shí)現(xiàn)的.

單一的連接點(diǎn)由服務(wù)器支持每一個(gè)外引接口.每一個(gè)連接點(diǎn)能夠操縱一種類型的外引接口且至少支持IConnectionPoint 接口. 圖7-1 描述了可連接的對(duì)象和它的客戶之間的關(guān)系.

Figure 7-1. Connectable object and its client.

每一個(gè)服務(wù)器必須實(shí)現(xiàn)2個(gè)接口以便實(shí)現(xiàn)客戶可以接收事件—IConnectionPointContainer 和IConnectionPoint. 我們將先看看這些接口之后將檢視實(shí)現(xiàn)事件的不同途徑.

IConnectionPointContainer

每一個(gè)可連接對(duì)象實(shí)現(xiàn)了IConnectionPointContainer. 通過此接口, 試圖接收事件的客戶可找出關(guān)于可連接對(duì)象支持的不同的連接點(diǎn). 通過調(diào)用QueryInterface using 客戶可以獲得服務(wù)器支持的任何接口的指針. (你可以使用任何接口指針調(diào)用QueryInterface, 因?yàn)槿?COM 接口繼承自IUnknown.) 之后客戶可以使用IConnectionPointContainer 接口的2個(gè)方法中的之一獲取可連接點(diǎn)。 如表7-1, 獲得可連接點(diǎn)

Table 7-1 Methods of the IConnectionPointContainer Interface

IConnectionPoint

一旦客戶知道哪個(gè)連接點(diǎn)可被連接對(duì)象服務(wù)器支持, 客戶就可建立同可連接對(duì)象的連接。客戶通知可連接對(duì)象將要在全部事件中接收那些事件.當(dāng)客戶不再需要接收來自可連接對(duì)象的事件,客戶解除對(duì)對(duì)象的通知. 表7-2 展示了 IConnectionPoint 接口可被客戶連接的. (大多數(shù)時(shí)候,你將連接到僅僅表中頭兩個(gè))

Table 7-2 Methods of the IConnectionPoint Interface

接收事件的途徑

依靠開發(fā)工具你創(chuàng)建客戶應(yīng)用程序,你可以接收事件通過不同的途徑. 顯然, 在Vb中接收事件同在VC中接收事件相比是如此不同和容易.在 C++ 應(yīng)用中,你可以用不同的技術(shù)，通過使用 ATL, MFC, 或者標(biāo)準(zhǔn)C++.

Visual Basic 中接收事件

Visual Basic是創(chuàng)建大多數(shù)類型應(yīng)用的最輕松的工具, 所以我告訴你VB是處理事件最溶的工具時(shí)也不要驚奇. ATL 和 Visual Basic 示例我們同樣的工作,但是ATL花費(fèi)了我4個(gè)小時(shí), 而 Visual Basic 例子僅僅只花20 分鐘.別說我錯(cuò)了—我是ATL, 和 MFC， C++的忠實(shí)信徒,  尤其是你建立一個(gè)接口的時(shí)候.但是 Visual Basic當(dāng)建立客戶應(yīng)用程序從類似IE這樣的服務(wù)器接收事件時(shí)是偉大的工具.

OK,如何從Visual Basic 應(yīng)用程序中接收事件？當(dāng)宿主WebBrowser 控件,你不必做任何特別的事. Visual Basic 在form上為WebBrowser 控件接收事件.你所需要做的全部事情就是未你要接收的任何事件創(chuàng)建一個(gè)事件處理句柄.

你象創(chuàng)建其他事件句柄一樣創(chuàng)建句柄 (例如Form_Load event). 從Procedure下拉列表框中選擇你象控制的句柄, 在事件句柄中,加入任何你型在事件激發(fā)時(shí)執(zhí)行的任何代碼.

當(dāng)自動(dòng)化服務(wù)器時(shí)候接收事件, 例如在VB應(yīng)用中的Internet Explorer,過程直截了當(dāng).首先設(shè)置對(duì)服務(wù)器的類型庫的引用, 你可以訪問Project/References 菜單.之后，采用WithEvents 關(guān)鍵字聲明服務(wù)器對(duì)象的變量.舉例, 如果你自動(dòng)化Internet Explorer, 你將聲明變量如下:

Dim WithEvents InternetExplorer1 As InternetExplorer

下一步，采用new或者其他 關(guān)鍵字創(chuàng)建實(shí)例變量 ，如下：:

Set InternetExplorer1 = CreateObject("InternetExplorer.Application.1")

或者:

Set InternetExplorer1 = New InternetExplorer

當(dāng)你采用以上途徑生成實(shí)例接收事件, Visual Basic 自動(dòng)為你初始化和管理事件接收.你不必?fù)?dān)心連接點(diǎn)問題，VB為你處理它們.

在你輸入建立服務(wù)器的代碼之后,你插入符合服務(wù)器事件的方法調(diào)用.   舉例來說, 如果你想控制由IE激活的DownloadBegin event, 你應(yīng)當(dāng)聲明類似如下的方法聲明:

Private Sub InternetExplorer1_DownloadBegin()

   ' Insert your best Visual Basic code here.

End Sub

當(dāng)你不再想接收來自服務(wù)器的事件，簡單設(shè)置變量為Nothing:

Set InternetExplorer1 = Nothing