怎样获取网页中的超链接地址？？

[mdjsy1991]

请高手帮忙！！！！！

[mdjsy1991]

谢谢楼上的！

最后一个问题，让webbrowser1 打开 http://passport.baidu.com/?login,填入用户名和密码，并提交？

[guyehanxinlei]

遍历一下，比较后删除即可。

[fj182]

随便写了点代码，没有测试
Private Sub Command1_Click()

Dim objDoc As HTMLDocument

WebBrowser1.Navigate "https://passport.baidu.com/?login"

Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE

DoEvents

Loop

Set objDoc = WebBrowser1.Document

objDoc.All.Item("username").Value = "username"
objDoc.All.Item("password").Value = "password"
objDoc.Forms.Item(, 0).submit

End Sub

[mdjsy1991]

自己顶！！！

[mdjsy1991]

自己给解决了。。

还有个问题，list1里面有这些东西:

aaa
bbb
ccc
ddd
asdhr
asdnyu
asdad
fea
ger
brf
aet
ht
ferutr

我想保留“asd”前缀的选项，其他的都删掉，怎样去实现？

[fj182]

Private Sub Command1_Click()
    
    Dim i   As Long
    
    For i = List1.ListCount - 1 To 0 Step -1
        If Not (List1.List(i) Like "asd*") Then
            List1.RemoveItem i
        End If
    Next
    
End Sub

[mdjsy1991]

结贴$_$