苗启源的部落格

请保存为VBS文件
今天写完这篇，打开发现卡巴报病毒，汗，不知道的还以为我挂马~
下面代码需要将“。”替换成“.”，“””替换成““”(英文的双引号)

‘ASP图片小偷,批量下载格力全部图片
‘Design By Miaoqiyuan。cn
function getHTTPPage(url)
dim Http
set Http=createobject(”MSXML2。XMLHTTP”)
Http。open ”GET”,url,false
Http。send()
if Http。readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http。responseBody,”GB2312”)
set http=nothing
if err。number<>0 then err。Clear
end function
 
Function BytesToBstr(body,Cset)
dim objstream
set objstream = CreateObject(”adodb。stream”)
objstream。Type = 1
objstream。Mode [...]