vb中inte获取网页内的所有超链接

Question

本帖最后由 tongfengzi 于 2009-12-26 17:50:46 编辑

Answer 1

东拼西凑的代码，这玩意完成到哪一步了？
分析源代码，用正则，最笨的办法是用instr搜索有没有http标记的

Answer 2

  我不会使用 inet控件  ~~  望教教~~谢谢~

Answer 3

'引用了Microsoft VBScript Regular Expressions 5.5
Private Sub Command1_Click()
 Dim re As RegExp
    Dim mh As Match
    Dim mhs As MatchCollection
Text1.Text = ""
Source1 = Inet1.OpenURL("www.csdn.net")
If Source1 <> "" Then
Text1.Text = Source1
Me.Inet1.Cancel
End If
Set re = New RegExp
re.Global = True
re.Pattern = "http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?"
Set mhs = re.Execute(Source1)
For Each mh In mhs
Debug.Print mh
Next
End Sub

Answer 4

可以用正则分析源代码,也可以直接用DOM遍历.

Answer 5

 我试试 行的话结贴~  其实 我是想知道 inet 的 一些用法~ 已找到文章 就差研究了

Answer 6

就这个引用我找不到，vista ie7 绿色vb6.0

Answer 7

找到了  以解决，经测试可用~就是不懂的怎么使用~我在自己研究把` 
谢谢SYSSZ(老张)的详细的回答  同时谢谢  xxyj6450(三断笛) asftrhgjhkjlkttttttt(孤独剑)   jhone99(jhone)  准备结贴 送分  第一次提问 ，希望能顺利送出~~~