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

mdjsy1991 2008-01-16 10:52:39
请高手帮忙!!!!!
...全文
114 点赞 收藏 7
写回复
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
遍历一下,比较后删除即可。
回复
mdjsy1991 2008-01-16
谢谢楼上的!

最后一个问题,让webbrowser1 打开 http://passport.baidu.com/?login,填入用户名和密码,并提交?
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告