250########分求VB浏览器问题#########

来源：百度知道 编辑：UC知道 时间：2024/09/18 06:24:48
http://zhidao.baidu.com/question/63857848.html
我想实现2个功能！QQ：424268888
1：罗列某网站上的所有超链接！包括JS调用的！
2：屏蔽flash，图片，等···这个功能很多浏览器都有!!

我发现IE属性中有相应的属性设置，注册表中应该有值可改！
谁能帮写下代码么！！！》》》？》？》？》？

Hi百度找我..我给你传.
列出所有的超级连接.已经子连接.
其他功能你可以去掉.这个是用来刷流量的.部分功能你自己去掉.

首先添加一个COMMAND1,放到最坐上角
放一个WB1(webbrowser1),不要盖住COMMAND1
代码如下

'========================
Public resable As Boolean

Private Sub Command1_Click()
wb1.Navigate "http://www.163.com"
End Sub

Private Sub Form_Load()
Me.ScaleMode = 1
resable = True
End Sub

Private Sub Form_Resize()
On Error Resume Next
wb1.Width = Me.ScaleWidth
wb1.Height = Me.ScaleHeight - wb1.Top

End Sub

'新窗口处理
Private Sub wb1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim newform1 As New Form1
'newform1.wb1.RegisterAsform1owser = True
Set ppDisp = newform1.wb1.object
newform1.Show
newform1.SetFocus

End Sub

'关闭窗口
Private Sub wb1_WindowClosing(By