我目前正在构建一个只加载一个页面的webbrowser,但我不希望用户能够通过点击广告链接导航,因为我不希望他们能够上网,点击链接最终会导致他们回到谷歌搜索他们喜欢的东西,如果他们足够聪明的话!
有什么想法吗?
答案 0 :(得分:1)
页面加载完成后,拦截链接:
Dim olink As HtmlElement
Dim olinks As HtmlElementCollection = WB1.Document.Links
For Each olink In olinks
olink.AttachEventHandler("onclick", AddressOf LinkClicked)
Next
然后添加一个函数:
Private Sub LinkClicked(ByVal sender As Object, ByVal e As EventArgs)
If txtAddress.Enabled = True Then
Dim link As HtmlElement = WB1.Document.ActiveElement
Dim url As String = link.GetAttribute("href")
MsgBox("Link Clicked: " & link.InnerText & vbCrLf & "Destination: " & url)
WB1.Navigate(url, False)
End If
End Sub
答案 1 :(得分:0)
听起来像是一个系统管理员问题,对我而言。
我不熟悉任何合适的软件。但如果您设置操作系统以便只允许访问“白名单”上的网页,则无需编写自定义网络浏览器。
答案 2 :(得分:0)
如果项目中有浏览器组件,则应为浏览器URL添加事件侦听器,如果更改,则重定向到所需页面。