apang

Set http = CreateObject("Msxml2.XMLHTTP")
url = "http://www.xiami.com/search/album?key=%E6%B5%AE%E8%BA%81"

http.open "GET",url,False
http.send()
Do Until http.ReadyState = 4 :Wscript.Sleep 100 :Loop
html = http.responseText
Set http = Nothing

With New RegExp
    .Global = true
    .ignoreCase = true
    .Pattern = "title=""浮躁""(.*\r\n){4}.*title=""王菲"""
    For Each match In .Execute(html)
        MsgBox Split(Split(match,vbCrLf)(1),Chr(34))(1)
    Next
End With
复制代码

apang

貌似也可以这样：

Set http = CreateObject("Msxml2.XMLHTTP")
url = "http://www.xiami.com/search/album?key=%E6%B5%AE%E8%BA%81"

http.open "GET",url,False
http.send()
Do Until http.ReadyState = 4 :Wscript.Sleep 100 :Loop
html = http.responseText
Set http = Nothing

Set re = New RegExp
re.Global = true
re.ignoreCase = true
re.Pattern = "title=""浮躁""[\s\S]*?(http://.*?\.jpg)[\s\S]*?title=""王菲"""
For Each match In re.Execute(html)
      MsgBox match.SubMatches(0)
Next
复制代码