为了使得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的专用浏览器无需在计算机上安装任何额外的文件，就能稳定、可靠的运行，易用性好，安全性高，能很好地满足电讯营业厅公用计算机的需求。
上一页 [1] [2]
