本帖最后由 pcl_test 于 2015-6-11 18:14 编辑
- url = "http://www.unsv.com/material/OMG-Meiyu/2011/07/18/answer_fans_questions/"
- Set http = CreateObject ("Microsoft.XMLHTTP")
- http.Open "GET", url, false
- http.Send
- txt = http.responseText
- Set re = New RegExp
- re.Pattern = "&ipad=(\d+)"
- re.Global = true
- If Not re.Test(txt) Then Msgbox "未找到"
- For Each m in re.Execute(txt)
- Msgbox "转换链接http://v.iask.com/v_play_ipad.php?vid="+m.SubMatches(0)+vbCrLf+"下载地址http://211.161.83.32/edge.v.iask.com/"+m.SubMatches(0)+".mp4"
- Next
复制代码
|