2011-07-29 101 views
1

我目前正在构建一个只加载一个页面的web浏览器,但我不希望用户能够通过点击广告链接离开,因为我不希望他们能够上网,点击链接如果他们足够聪明,最终可以让他们回到谷歌搜索他们喜欢的东西!如何阻止用户在浏览器中浏览?

任何想法?

+1

如果你真的只知道VB,究竟有这个做与C++?你的问题到底是什么?如何呈现网页? – mkaes

+0

只是带着标签抱歉抱歉,并没有如何阻止用户远离现场设置导航... – PESHuk

+1

alert('请不要离开! – dwmcc

回答

0

听起来更像是一个系统管理员问题,对我来说。

我不熟悉任何适当的软件。但如果您设置了操作系统,以便只允许访问“白名单”上的网页,则不需要编写自定义网页浏览器。

+0

我会看看这个非常感谢你的回应... – PESHuk

0

如果您的项目中包含浏览器组件,则应为浏览器URL添加事件侦听器(如果发生更改),请将其重定向到所需的页面。

+0

非常感谢,我会考虑这个也... – PESHuk

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