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