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