Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://weidian.eallcn.com/232621561/mmfy/mmfydetail/id=3603988")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
For Each dl As object In web.Document.GetElementsByTagName("li")
Dim url = dl.GetAttribute("data-background")
If url > "" Then
output.show(url)
End If
Next
用msgbox.show是每个网址弹出一个窗口，网址最多只有10个，但也有可能不足10个，但使用output.show能显示出所有的网址地址，请问如何使用output.show来实现
output.show（网址1）
output.show（网址2）
output.show（网址3）
output.show（网址4）
......
output.show（网址10）
加好友 
发短信
Post By：2016/9/22 15:31:00 [显示全部帖子]
此主题相关图片如下：00000.png
