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