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

mdjsy1991 2008-01-16 10:52:39

请高手帮忙！！！！！

...全文

186 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

mdjsy1991 2008-01-17

打赏
举报

结贴$_$

fj182 2008-01-16

打赏
举报



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 2008-01-16

打赏
举报

自己给解决了。。

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

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

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

mdjsy1991 2008-01-16

打赏
举报

自己顶！！！

fj182 2008-01-16

打赏
举报

随便写了点代码，没有测试
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

guyehanxinlei 2008-01-16