基于Web-Browser的專用瀏覽器設計及其應用介紹
加入技術交流群
為了使得WebBrowser在下載完畢后進行提示，可以設置窗體的標題提示，程序如下：
Private Sub WebBrowserl_DownloadComplete()
web．Caption=CStr(WebBrowserl．LocationURL)
End Sub
那么，專用瀏覽器的初步設計就完成了，其效果如圖1所示。
4 專用瀏覽器限制用戶操作的實現
雖然初步的瀏覽器已經完成了，但是為了防止非法用戶的破壞性操作，以及方便普通用戶更好的使用，還需要對WebBrowser瀏覽器進行一些相應的修改。
首先，對用戶的鼠標右鍵，可以通過引用“Microsoft HTML Object Library”實現。此后，用戶在WebBrowser控件上無法進行右鍵操作，危險性大大降低。具體程序如下：
Dim WithEvents M_Dom As MSHTML．HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu=False
End Function
Private Sub Webbrowserl_DownloadComplete()
Set M_Dom=Webbrowserl．Document
End Sub
其次，根據常規的瀏覽器，可以在地址欄中輸入地址并回車實現網頁跳轉。程序如下：
Private Sub Textl_KeyUp(KeyCode As Integer，Shift AsInteger)
If KeyCode=13 Then Webbrowser．Navigate Textl．Text
End Sub
再次，用白名單法限制、過濾非法網址。當用戶輸入的網址不是電訊公司的站點或者合作站點的時候，通過分析text1文本框的網址是否屬于安全網址即可。例如數組safeA(10)中存儲的是幾個安全站點的網址，則程序如下：
另外，還應該設置專用瀏覽器為默認瀏覽器，設置用戶進入的網吧管理系統的主界面中，只有專用瀏覽器的圖標，在此不再贅述。由于專用瀏覽器使用了和IE一樣的圖標，非常方便用戶使用。
5 結 語
針對電訊營業廳公用計算機的安全隱患，提出利用WebBrowser設計專用瀏覽器的思路并提供實現方法。采用VB對WebBrowser進行編程，設計專用瀏覽器，能夠限制用戶的非法操作。在實際測試中，基于Web-Browser的專用瀏覽器無需在計算機上安裝任何額外的文件，就能穩定、可靠的運行，易用性好，安全性高，能很好地滿足電訊營業廳公用計算機的需求。本文引用地址：http://www.104case.com/article/155343.htm
評論