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