WebBrowser保護電訊營(yíng)業(yè)廳公用計算機技術(shù)
為了使得WebBrowser在下載完畢后進(jìn)行提示,可以設置窗體的標題提示,程序如下:
Private Sub WebBrowserl_DownloadComplete()
web.Caption=CStr(WebBrowserl.LocationURL)
End Sub
那么,專(zhuān)用瀏覽器的初步設計就完成了,其效果如圖1所示。

4 專(zhuān)用瀏覽器限制用戶(hù)操作的實(shí)現
雖然初步的瀏覽器已經(jīng)完成了,但是為了防止非法用戶(hù)的破壞性操作,以及方便普通用戶(hù)更好的使用,還需要對WebBrowser瀏覽器進(jìn)行一些相應的修改。
首先,對用戶(hù)的鼠標右鍵,可以通過(guò)引用“Microsoft HTML Object Library”實(shí)現。此后,用戶(hù)在WebBrowser控件上無(wú)法進(jìn)行右鍵操作,危險性大大降低。具體程序如下:
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
其次,根據常規的瀏覽器,可以在地址欄中輸入地址并回車(chē)實(shí)現網(wǎng)頁(yè)跳轉。程序如下:
Private Sub Textl_KeyUp(KeyCode As Integer,Shift AsInteger)
If KeyCode=13 Then Webbrowser.Navigate Textl.Text
End Sub
再次,用白名單法限制、過(guò)濾非法網(wǎng)址。當用戶(hù)輸入的網(wǎng)址不是電訊公司的站點(diǎn)或者合作站點(diǎn)的時(shí)候,通過(guò)分析text1文本框的網(wǎng)址是否屬于安全網(wǎng)址即可。例如數組safeA(10)中存儲的是幾個(gè)安全站點(diǎn)的網(wǎng)址,則程序如下:

另外,還應該設置專(zhuān)用瀏覽器為默認瀏覽器,設置用戶(hù)進(jìn)入的網(wǎng)吧管理系統的主界面中,只有專(zhuān)用瀏覽器的圖標,在此不再贅述。由于專(zhuān)用瀏覽器使用了和IE一樣的圖標,非常方便用戶(hù)使用。
5 結 語(yǔ)
針對電訊營(yíng)業(yè)廳公用計算機的安全隱患,提出利用WebBrowser設計專(zhuān)用瀏覽器的思路并提供實(shí)現方法。采用VB對WebBrowser進(jìn)行編程,設計專(zhuān)用瀏覽器,能夠限制用戶(hù)的非法操作。在實(shí)際測試中,基于Web-Browser的專(zhuān)用瀏覽器無(wú)需在計算機上安裝任何額外的文件,就能穩定、可靠的運行,易用性好,安全性高,能很好地滿(mǎn)足電訊營(yíng)業(yè)廳公用計算機的需求。本文引用地址:http://dyxdggzs.com/article/157448.htm
評論