wallpaperscraft vbscript

Option Explicit

dim r:set r=CreateObject("MSXML2.ServerXMLHTTP.6.0")

wallpaperscraft

Sub wallpaperscraft()
dim i,re,mc,m
set re=new RegExp
re.Global=True
re.MultiLine=True
' re.Pattern="http://wallpaperscraft.com/image/.*?.jpg"
re.Pattern="(http://wallpaperscraft.com/image/.*?.jpg)"" alt=""(.*?)""[\W\w]*?(\d+x\d+)"

for i=1 to 5345
r.open "GET","http://wallpaperscraft.com/all/page" & i, true
r.send
r.WaitForResponse
' WScript.Echo r.getOption(-1),r.getAllResponseHeaders
set mc=re.Execute(r.responseText)
WScript.Echo mc.count
for each m in mc
WScript.Echo replace(m.SubMatches(0),"_preview","_" & m.SubMatches(2)) & vbTab & m.SubMatches(1)
next
next

End Sub