Add(VBJScript,4005745,175,119)
{
 WorkPoints=#6:DoWork|
 DataPoints=#3:Url|8:FileName|
 Script=#23:Sub doWork(Data, Index)|11:Url=sys.Url|21:FileName=sys.FileName|56:dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")|51:dim bStrm: Set bStrm = createobject("Adodb.Stream")|28:xHttp.Open "GET", Url, False|10:xHttp.Send|0:|10:with bStrm|23:    .type = 1 '//binary|9:    .open|29:    .write xHttp.responseBody|28:    .savetofile FileName, 2 |8:end with|8:End Sub |
 UseName=0
}