const front_url=
const front_url2=
mypath=replace(wscript.scriptfullname,wscript.scriptname,"")
set fso=createobject("scripting.filesystemobject")
htbody=cstr(getpic(front_url&"/upload/2020/0708/1000000000/24cos_1.jpg"))
const lilen=13
function getpic(url)
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "GET",url,False
http.send
getpic=http.responsebody
end function
function gethtml(url)
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "GET",url,False
http.send
gethtml=http.responsetext
end function
sub writeado(target,htmlbody)
Const adTypeBinary = 1
Set ado = createobject("Adodb.Stream")
ado.Type = adTypeBinary
ado.Open
ado.Write htmlbody
ado.SaveToFile target
ado.Close
End Sub
for hotpage=1 to 2000
page_url=front_url&"/hotcosplay/"&hotpage&"/"
page_html=gethtml(page_url)
page_html=replace(page_html,"<img src=","",1,1,0)
for pic=0 to 15
top_s_url=instr(page_html,"<img src=")+11
bot_s_url=instr(top_s_url,page_html," alt=")-1
top_title=instr(top_s_url,page_html,"alt=")+5
bot_title=instr(top_title,page_html," /></a> <p")-1
title=mid(page_html,top_title,bot_title-top_title)
fso.createfolder(title)
s_url=mid(page_html,top_s_url,bot_s_url-top_s_url)
s_url=replace(s_url,".jpg","")
tmparr=split(s_url," ")
s_url=replace(tmparr(0),"m24","24")&" "
i=1
do
htmlbody=getpic(s_url&i&".jpg")
if cstr(htmlbody)=htbody then
exit do
end if
writeado title&"\"&i&".jpg",htmlbody
i=i+1
loop
page_html=replace(replace(page_html,"<img src=","",1,1,0),"alt","",1,1,0)
next
next

front_url是"http://www.lovecos.net"
front_url2是"http://pic.lovecos.net"
表情删掉

求别删