。鼠标在网页上的一行字上时，IE状态栏上显示它的URL,请问：如何快速得到网页上的链接及其文字？

Question

谢谢！
我感觉区的网页的源代码再搜寻它的URL和文字的发放发不好，因为有时文字在URL之前，有时在后面，而且还经常有些各式的代码，每个王爷都不一样，很不方便.那个大虾能指点一二？
谢谢先！

Answer 1

如何快速得到网页上的链接
VBDEN等有一个范例，使用了body和all对象

Answer 2

谢谢大侠的答复！
请问：VBDEN是什么东东？

Answer 3

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Dim x As Long
List1.ClearFor x = 0 To WebBrowser1.Document.Links.length - 1
    List1.AddItem WebBrowser1.Document.Links.Item(x)
Next x
Command1.Enabled = True
End Sub

Answer 4

谢谢 online(龙卷风(白学了,重新充电中)) 的答复！
您的代码可以得到网页的连接，但没有它的URL啊！怎么办啊？
比如：我的鼠标在网页上"北京***公司"上面时,IE状态栏就可以看到该公司的URL。我的意思是要取得“北京***公司”这行字的同时，也取得该行字的连接网址。继续请教！
谢谢先！

Answer 5

“没有它的URL啊！怎么办啊？”你这是什么意思呀，他的程序得到的不就是URL吗？只不过他是把整个网页的全部链接的连接内部都列出来了。
我试了一下，根据状态栏内容的改变从而得到此链接的连接内容，但怎么得到“北京***公司”这行字就不会了。
用： Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

Answer 6

谢谢 wpr_tzp(山M扼) 大侠的指点！
sorry，我的“没有它的URL啊！怎么办啊？”是口误，我本意是想说“您的代码可以得到网页的连接，但没有与每个链接相应的文字啊！怎么办啊？”就是说，我们看网页时，有时鼠标在一行字的上面时，在IE的状态栏，往往会看到它的URL，我是想在取得网页的所有链接时，也取得相应的文字（与那些URL相应的文字）
不知那位大侠有空指点一下。
请教了！
谢谢先！

Answer 7

Links.Item(x).innerText
Links.Item(x).innerHtml