中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 【分享】图片批量下载

plp626
银牌会员

钻石会员

积分 2278
发帖 1020
注册 2007-11-19
状态离线

『楼主』: 【分享】图片批量下载

【转】来源与转cn-dos代码不标出处的那个网站
这个hta版的图片下载，但是有个小错误，使得不能正常使用，那位能调试下？

<TITLE>网易文件摄取</TITLE>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<HTA:APPLICATION 

ID="MyhyliApp" 

APPLICATIONNAME="设置程序" 

VERSION="1.0" 

SCROLL="no" 

INNERBORDER="no" 

CONTEXTMENU="no" 

CAPTION="yes" 

SHOWINTASKBAR="yes" 

SINGLEINSTANCE="yes" 

SYSMENU="yes" 

WINDOWSTATE="normal"

NAVIGABLE="yes"

/>

<style type="text/css">

<!--

.TT1 { font-family: "隶书";

font-size: 24px;

font-weight: bold;

}

.title {

}

.info {

font-family: "隶书";

font-size: 16px;

color: #FF0000;

font-weight: bold;

}

.separator { width:100%;

margin:2px;

margin-top:-4px;

height:12px;

overflow:hidden;

}

.list { height: 80px;

width: 100%;

background-color: #E3EFF9;

}

.s_button {

background-color: #FFCC99;

position: static;

text-align: center;

vertical-align: middle;

padding: 1px;

color: #0033CC;

border: 1px solid #996633;

width: 100%;

}

.grid1 {

font-family: "隶书";

font-size: 16px;

background-color: #006699;

background-position: center center;

text-align: center;

vertical-align: middle;

height: 100%;

width: 100%;

color: #00FF99;

}

.grid2 {

font-family: "宋体";

text-align: left;

vertical-align: middle;

height: 100%;

width: 100%;

font-size: 12px;

}

.grid3 {

text-align: center;

vertical-align: middle;

height: 100%;

width: 100%;

}

.preview {

position:absolute;

width:140px;

height:140px;

z-index:1;

left: 301px;

top: 61px;

overflow: visible;

border-top-color: #FF0000;

border-right-color: #FF0000;

border-bottom-color: #FF0000;

border-left-color: #FF0000;

background-color: #FF9966;

margin: 1px;

padding: 1px;

visibility: hidden;

}

.STYLE2 {

color: #00FF00;

font-weight: bold;

font-family: "隶书";

font-size: 14px;

}

-->

</style>

  <div class="separator">

    <hr>

  </div>

<table width="100%" height="4%" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td colspan="2" align="center" valign="middle" id=menubar onselectstart="return false"><span class="TT1" id="consume">网易图片文件一览表</span> </td>

  </tr>

</table>

  <div class="separator">

    <hr>

  </div>

<table width="100%" height="415" border="1">

  <tr>

    <td width="81%" height="16" rowspan="8" valign="top" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><div class="info" id=list style="width:100%;height:405; overflow-y: auto; border: solid 1 gray;"></div></td>

    <td height="16" colspan="2" align="center" valign="middle" bordercolor="#FF0000" bgcolor="#000080" style="border-style: solid; border-color: #000080"><div class="preview" id="preview">

      <p> </p>

    </div>

      <span class="STYLE2"> 信息公布</span></td>

  </tr>

  <tr>

    <td height="182" colspan="2" align="left" valign="top" bgcolor="#FFFFFF" class="info" style="border-style: solid; border-color: #000080"><div class="info" id="infotext" style="width:100%;height:177; overflow-y: auto">

      <p>本程序可以自由下载网易图片..</p>

      <p> </p>

    </div></td>

  </tr>

   <tr>

    <td height="33" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" class="info" style="border-style: solid; border-color: #000080"><input name="add" type="submit" class="s_button" id="add" onclick="show()" value="取文件信息" /></td>

  </tr>

  <tr>

    <td height="33" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><select name="Atype" id="Atype" onchange="changevalue()">

      <option value="jpg">彩图</option>

      <option value="gif">动画</option>

                        </select></td>

    <td height="33" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><select name="imagetype" id="imagetype">

      <option selected="selected">图片类型</option>

      <option>全部</option>

      <option value="90">绝色风光</option>

      <option value="91">四季花语 </option>

      <option value="89">海底世界 </option>

      <option value="34">绝色美女 </option>

      <option value="198">都市丽人</option>

      <option value="200">手绘美女</option>

    </select></td>

  </tr>

  <tr>

    <td height="33" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><input name="del2" type="submit" class="s_button" id="del2" onclick="downloadfile()" value="下载选定项" /></td>

  </tr>

  <tr>

    <td height="33" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><input name="del" type="submit" class="s_button" id="del" onclick="tb_del()" value="删除选定项" /></td>

  </tr>

  <tr>

    <td width="5%" height="25" align="center" valign="middle" bgcolor="#000080" class="STYLE2" style="border-style: solid; border-color: #000080">从    </td>

    <td width="14%" bgcolor="#FFFFFF" valign="middle" align="center" style="border-style: solid; border-color: #000080"><a title="在此处输入起始页数"><input name="start1" type="text" id="start1" value="1" size="10" />

    </a></td>

  </tr>

  <tr>

    <td height="26" align="center" valign="middle" bgcolor="#000080" class="STYLE2" style="border-style: solid; border-color: #000080">到</td>

    <td height="26" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><a title="在此处输入结束页数"><input name="start2" type="text" id="start2" size="10" value="1"/>

    </a></td>

  </tr>

</table>

<script language="vbscript">

public fileext

str1="<tr><td><span class='grid1'><input type=checkbox id='sall' >文件名称</span></td></tr>"

Sub Window_onLoad

     window.resizeTo 750,515

  ileft=(window.screen.width-750)/2

  itop=(window.screen.height-515)/2       

  window.moveTo ileft,itop                     

end sub

function connect(num)

dim imageinfo,length

fileext=Atype.options(Atype.selectedindex).value

imgtype=imagetype.options(imagetype.selectedindex).value

imgtypenum=Atype.selectedindex

url="http://mms.163.com/new_web/cm_lv2_pic.jsp?

catID="&imgtype&"&ord=dDate&page="&num&"&type="&imgtypenum&"&key="

imageurl="http://mmsimg.163.com/new_web/loaditem.jsp/type="&imgtypenum&"/path="

set http=createobject("Microsoft.XMLHTTP") 

http.open "GET",url,False

http.send

vIn=http.ResponseBody

strReturn = ""

For i = 1 To LenB(vIn)

ThisCharCode = AscB(MidB(vIn,i,1))

If ThisCharCode < &H80 Then

strReturn = strReturn & Chr(ThisCharCode)

Else

NextCharCode = AscB(MidB(vIn,i+1,1))

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt (NextCharCode))

i = i + 1

End If

Next

'------获取文件的地址------------'

do 

pos=instr(strReturn,"showPic")

pos1=instr(strReturn,"128x128")

if pos>0 then 

length=pos1-pos

imageinfo=mid(strReturn,pos,length)

images=split(imageinfo,",")

imagepath=mid(images(2),2,len(images(2))-1)&"128x128."& fileext

'----------获取文件的名字------------'  

namepos=instr(strReturn,"\n名字:")

namepos1=instr(strReturn,"\n人气")

namelength=namepos1-namepos

imagename=mid(mid(strReturn,namepos,namelength),6)

    strHTML=strHTML & "<tr><td><span class='grid2'><input id=addme type=checkbox>选定</span></td>"

    strHTML=strHTML &"<td><span class='grid3'><a onMousemove='view()' "

window.settimeout "download()",200

end sub

sub changevalue() 

AID=array("130","112","67","14","122","158")

PID=array("90","91","89","34","198","200")

if Atype.selectedindex=0 then

for i=0 to 5

imagetype.options(i+2).value=PID(i)

next

else

for i=0 to 5

imagetype.options(i+2).value=AID(i)

next

end if

end sub

</script>

山外有山，人外有人；低调做人，努力做事。

进入网盘(各种工具)~~ 空间~~cmd学习

2008-5-13 07:18

matlan
初级用户

积分 87
发帖 63
注册 2008-8-23
状态离线

『第 2 楼』:

转自：http://bbs.bathome.cn/viewthread ... hlight=%CF%C2%D4%D8

<TITLE>网易文件摄取</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<HTA:APPLICATION
ID="MyhyliApp"
APPLICATIONNAME="设置程序"
VERSION="1.0"
SCROLL="no"
INNERBORDER="no"
CONTEXTMENU="no"
CAPTION="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal"
NAVIGABLE="yes"
/>
<script language="vbscript">
Sub Window_onLoad
   window.resizeTo 750,515
  ileft=(window.screen.width-750)/2
  itop=(window.screen.height-515)/2
  window.moveTo ileft,itop
end sub

function connect(num)
dim imageinfo,length
fileext=Atype.options(Atype.selectedindex).value
imgtype=imagetype.options(imagetype.selectedindex).value
imgtypenum=Atype.selectedindex
url="http://mms.163.com/new_web/cm_lv2_pic.jsp?catID="&imgtype&"&ord=dDate&page="&num&"&type="&imgtypenum&"&key="
imageurl="http://mmsimg.163.com/new_web/loaditem.jsp/type="&imgtypenum&"/path="
set http=createobject("Microsoft.XMLHTTP")
http.open "GET",url,False
http.send

vIn=http.ResponseBody
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt (NextCharCode))
i = i + 1
End If
Next
'------获取文件的地址------------'
do
pos=instr(strReturn,"showPic")
pos1=instr(strReturn,"128x128")
if pos>0 then
length=pos1-pos
imageinfo=mid(strReturn,pos,length)
images=split(imageinfo,",")
imagepath=mid(images(2),2,len(images(2))-1)&"128x128."& fileext
'----------获取文件的名字------------'
namepos=instr(strReturn,"\n名字:")
namepos1=instr(strReturn,"\n人气")
namelength=namepos1-namepos
imagename=mid(mid(strReturn,namepos,namelength),6)
strHTML=strHTML & "<tr><td><span class='grid2'><input id=addme type=checkbox>选定</span></td>"
strHTML=strHTML &"<td><span class='grid3'><a onMousemove='view()' onmouseout='hideview()' href=#><img onClick='addpro()' src='"&imageurl&imagepath&"' width=30 height=20></a></span></td>"
strHTML=strHTML & "<td><span class='grid2'>" & imagepath & "</span></td>"
strHTML=strHTML & "<td><span class='grid2'>" & imagename & "</span></td></tr>"
strReturn=mid(strReturn,namepos1+20)
else
exit do
end if
loop
connect=strHTML
end function

function writeinner()
for i=start1.value to start2.value
strHTML=strHTML & connect(i)
next
strHTML="<table id='mytable' width=100% border=1 bordercolor=green>" &str1&strHTML& "</table>"
list.innerHTML=strHTML
infotext.innertext=infotext.innertext & "连接成功。"
infotext.innertext=infotext.innertext & vbcrlf &vbcrlf & "从第" & start1.value & "页到第" & start2.value & "页的gif图片文件信息!"
end function

function show()
if not (isnumeric(start2.value)) or not (isnumeric(start2.value)) then
infotext.innertext=infotext.innertext & vbcrlf & "配置错误..."
else
infotext.innertext="正在连接..."
window.settimeout "writeinner()",200
end if
end function
sub view()
strHTML1="<img src='" &window.event.srcElement.src &"' width='140' height='140'>"
preview.runtimeStyle.pixelLeft=window.event.x+5
preview.runtimeStyle.pixelTop=window.event.y+5
preview.style.visibility="visible"
preview.innerHTML=strHTML1
end sub

sub hideview()
preview.style.visibility="hidden"
end sub

sub addpro()
set obj=window.event.srcElement.parentelement.parentelement.parentelement.parentelement
if obj.cells(0).children(0).children(0).checked=false then
obj.cells(0).children(0).children(0).checked=true
else
obj.cells(0).children(0).children(0).checked=false
end if
end sub

sub tb_del()
set obj=document.all.namedItem("mytable")
if obj.rows.length>2 then
Set tagID = document.all.namedItem("addme") '获取对象ID:delcheck'
for each otag in tagID
if otag.checked then
objrow=otag.parentelement.parentelement.parentelement.rowindex    '获取对象的行序数;'
obj.deleteRow(objrow)  '删除该项；'
end if
next
else
msgbox "才一项你都删，哪有这样的?!",0,"删除提醒"
exit sub
end if
end sub

sub selectall()
set obj=document.all.namedItem("mytable")
set objcheck=document.all.namedItem("sall")
Set tagID = document.all.namedItem("addme") '获取对象ID:addme'
for each otag in tagID
otag.checked=objcheck.checked
next
end sub

sub download()
Set fso = CreateObject("Scripting.FileSystemObject")
If not (fso.FolderExists("★网易下载图片★")) Then
fso.createfolder("★网易下载图片★")
end if

set http=createobject("Microsoft.XMLHTTP")
set obj=document.all.namedItem("mytable")
Set tagID = document.all.namedItem("addme") '获取对象ID:delcheck'
for each otag in tagID
if otag.checked then
set objrow=otag.parentelement.parentelement.parentelement    '获取对象的行;'
downurl=objrow.cells(1).children(0).children(0).children(0).src
filename=objrow.cells(3).children(0).innertext
http.open "GET",downurl,False
http.send

set aso=createobject("ADODB.Stream")
aso.type=1
aso.open
aso.write http.ResponseBody
aso.savetofile "★网易下载图片★\" & filename & "."&fileext,2
aso.close

end if
next
infotext.innertext=infotext.innertext & vbcrlf & "文件下载成功。"
infotext.innertext=infotext.innertext & vbcrlf & "文件保存在:" & vbcrlf &"“★网易下载图片★”下"
end sub

sub downloadfile()
infotext.innertext= "正在下载文件...."  '"
window.settimeout "download()",200
end sub

sub changevalue()
AID=array("130","112","67","14","122","158")
PID=array("90","91","89","34","198","200")
if Atype.selectedindex=0 then
for i=0 to 5
imagetype.options(i+2).value=PID(i)
next
else
for i=0 to 5
imagetype.options(i+2).value=AID(i)
next
end if
end sub
</script>
<style type="text/css">

</style>
  <div class="separator">
<hr>
  </div>
<table width="100%" height="4%" border="0" cellspacing="0" cellpadding="0">
  <tr>
<td colspan="2" align="center" valign="middle" id=menubar onselectstart="return false"><span class="TT1" id="consume">网易图片文件一览表</span> </td>
  </tr>
</table>
  <div class="separator">
<hr>
  </div>
<table width="100%" height="415" border="1">
  <tr>
<td width="81%" height="16" rowspan="8" valign="top" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><div class="info" id=list style="width:100%;height:405; overflow-y: auto; border: solid 1 gray;"></div></td>
<td height="16" colspan="2" align="center" valign="middle" bordercolor="#FF0000" bgcolor="#000080" style="border-style: solid; border-color: #000080"><div class="preview" id="preview">
   <p> </p>
</div>
   <span class="STYLE2"> 信息公布</span></td>
  </tr>
  <tr>
<td height="182" colspan="2" align="left" valign="top" bgcolor="#FFFFFF" class="info" style="border-style: solid; border-color: #000080"><div class="info" id="infotext" style="width:100%;height:177; overflow-y: auto">
   <p>本程序可以自由下载网易图片..</p>
   <p> </p>
</div></td>
  </tr>
<tr>
<td height="33" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" class="info" style="border-style: solid; border-color: #000080"><input name="add" type="submit" class="s_button" id="add" onclick="show()" value="取文件信息" /></td>
  </tr>

  <tr>
<td height="33" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><select name="Atype" id="Atype" onchange="changevalue()">
   <option value="jpg">彩图</option>
   <option value="gif">动画</option>
                     </select></td>
<td height="33" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><select name="imagetype" id="imagetype">
   <option selected="selected">图片类型</option>
   <option>全部</option>
   <option value="90">绝色风光</option>
   <option value="91">四季花语 </option>
   <option value="89">海底世界 </option>
   <option value="34">绝色美女 </option>
   <option value="198">都市丽人</option>
   <option value="200">手绘美女</option>
</select></td>
  </tr>
  <tr>
<td height="33" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><input name="del2" type="submit" class="s_button" id="del2" onclick="downloadfile()" value="下载选定项" /></td>
  </tr>
  <tr>
<td height="33" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><input name="del" type="submit" class="s_button" id="del" onclick="tb_del()" value="删除选定项" /></td>
  </tr>
  <tr>
<td width="5%" height="25" align="center" valign="middle" bgcolor="#000080" class="STYLE2" style="border-style: solid; border-color: #000080">从 </td>
<td width="14%" bgcolor="#FFFFFF" valign="middle" align="center" style="border-style: solid; border-color: #000080"><a title="在此处输入起始页数"><input name="start1" type="text" id="start1" value="1" size="10" />
</a></td>
  </tr>

  <tr>
<td height="26" align="center" valign="middle" bgcolor="#000080" class="STYLE2" style="border-style: solid; border-color: #000080">到</td>
<td height="26" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><a title="在此处输入结束页数"><input name="start2" type="text" id="start2" size="10" value="1"/>
</a></td>
  </tr>
</table>
<script language="vbscript">
public fileext
str1="<tr><td><span class='grid1'><input type=checkbox id='sall' onclick='selectall()'>全都选</span></td>"
str1=str1& "<td><span class='grid1'>预览</span></td>"
str1=str1 & "<td><span class='grid1'>文件路径</span></td>"
str1=str1 & "<td><span class='grid1'>文件名称</span></td></tr>"

2008-12-10 14:42

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: