WHY

re.Pattern="href=""(.+/(.+?\.exe))"""
Set objMatch = re.Execute(http.ResponseText)(0)
http.Open "GET",objMatch.submatches(0),False
...
objtemp.SaveToFile objMatch.submatches(1), 2
复制代码