哪个高手能实现点击程序中镶入的网页才可进入程序？

你想刷广告?

'添加WebBrowser1

Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.Write "<SCRIPT> var msg;</SCRIPT><div onclick='msg.msg(); return false;'>点我试试</div>"
Set WebBrowser1.Document.ParentWindow.msg = Me
End Sub
Public Sub msg()
MsgBox "真点了?你很听话哦!过来,叔叔给你买糖吃"
End Sub

结合上面的代码,在调用的网页加个透明的层就OK2楼的地址里就有个改写HTML内容的代码,不过这方法对广告效果不大

对不起，我不太明白
比如拿百度首页做例子
WebBrowser1.Navigate "www.baidu.com"
如果我要点 百度的贴吧才可进入下面程序
请问如何实现�