网易手机图片自由下载器（hta）_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' 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>"

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>

时间： 2024-10-28 16:38:52

网易手机图片自由下载器（hta）_hta的相关文章

笨笨图片批量下载器 V0.3 beta[C# | WinForm | 正则表达式 | HttpWebRequest | Async异步编程] new

前言      从[笨笨图片批量抓取下载 V0.2 beta]到[笨笨图片批量下载器 V0.3 beta]时间将近2个月,不是说这个升级版本开发了这么久,实在是懒,呵呵: )再加有时候工作忙.学习,多的时间就不愿意动了,现在都感觉辜负了上一版N多朋友的支持了,不过这将近一个星期时间我按计划完成了这个小软件版的升级开发,并且依然和上两个版本一样保持源代码开源,文章最后有下载地址,以下是这个版本相比上个版本的特点:      1.     加入图片是否重命名.      2.     加入异步线程池

新浪Flash下载器 [HttpWebRequest | 新浪视频]

前言      哈哈,好久不写小工具了,去年写的笨笨图片批量下载器 V0.3 beta平时还是帮了一些忙的,今天的小工具是 新浪Flash下载器 .可以直接下载swf结尾的文件,如果下载新浪视频文件,你需要右键源代码找到这个flash的伪链接,如http://music.sina.com.cn/yueku/flashPlayer.swf?vid=6851105,然后把这里连接复制到软件输入框点下载就可以了.   运行环境      1.     Microsoft .NET Framework

php实现的css文件背景图片下载器代码_php技巧

本文实例讲述了php实现的css文件背景图片下载器代码.分享给大家供大家参考.具体实现方法如下: 下载css文件里面的背景图片是我们这些盗版份子长期搞的事情,下载个css图片下载器常出现各种广告弹窗,实在扛不住.这里就提供了一个php版的css文件背景图片下载器给大家. 把文件放到php程序目录 dos下面 php.exe cssImages.php 0 http://www.xxxx.com/css/style.css \images\ 先在php程序目录建个images文件夹,呵呵,贴代码:

require、backbone等重构手机图片查看器_javascript技巧

本文是对之前的部分补充,也是对最近学习require.backbone的一次实例化的实践,希望对正在学习理解中的同学们有帮助 前文请前往:制作手机使用的网页图片查看器 新手机图片查看器 网页部分 require引入是重点,指明了主函数所在文件路径 <!doctype html> <html lang="zh-cn"> <head> <title>webapp图片查看器</title> <meta charset=&quo

巧用linux命令做图片下载器

在平时上网的时候,发现有些图片不错,想保存到本地,一个一个的保存确实够费劲的,如果把整个网页都保存了,有些又是自己不需要的,就算下载下来了,还得从上百个网页元素中去筛选,哪些是css文件,哪些是js文件.如果能够使用命令来作为图片下载器就好了,至少不用那么费神的去干很多重复的工作. 我们可以使用curl这个强大的工具来完成这个看似很艰难的任务. 首先的难点就是从网页中抓取图片的url,一般网页中都会是以的形式出现的.我们可以使用下面的形式来抽取图片的url curl -s "$1" |

.NET破解之图片下载器

自去年五月加入吾爱后,学习了三个月,对逆向破解产生了深厚的兴趣,尤其是对.NET方面的分析:但由于这一年,项目比较忙,事情比较多,破解这方面又停滞了许久,不知道还要好久. 前些天,帮忙批量下载QQ相册的照片,搜索了好几个都不好用: 最 后搜索到这个Z木鸟图片下载器,基本能达到目的,但试用版有下载数量限制. 于是,一时来兴,又简单地分析了一下(由于时间关系,就不描述过程了),去掉了登陆和试用版本限制.大家可以去练一下手. 链接:https://yunpan.cn/c6ZSpAyk4Xdqj (提取

百度图片批量下载怎么样

  百度图片下载器是一款可以批量下载百度图片的软件,而且还能帮你删减重复图片.是一款能够根据关键字而下载图片的软件,非常简单实用.下面小编介绍一下它的特点和界面. 百度图片下载器特点介绍: 1.最好用的百度图片下载器,一键快速批量下载百度亿万精美图片; 2.快速高效的图片检索和多任务下载,下载进度实时显示,包括下载速度.耗时.已下载.下载状态等; 3.支持图片即时预览.分享到微博等社交网站.设为桌面壁纸.图片另存为等快捷实用功能; 4.支持批量任务管理,可批量添加关键字下载任务到队列,方便任务批

掌中影音伴侣视频下载器随你看

&http://www.aliyun.com/zixun/aggregation/37954.html">nbsp;   掌中影音伴侣(XMedia) 是款为手机.MP4.mp3.PSP.iphone.ipod等掌上设备提供视频.mp3.电子书.游戏.图片等多媒体资源下载.制作.传输服务的PC软件 根据我的经验,从迅雷上下载的片清晰度比较好,一些经典大片可以从迅雷上下载,视觉效果不错.一些在线视频网站,(比如土豆,优酷)片源比较多,只要你想找的影片基本上没有找不到的,另外就是更新比

啄木鸟相册下载器如何使用

  1.选择想要下载的相册 2.在啄木鸟相册下载器中输入相应的网页地址或账号 3.选择保存本地路径 4.点击"获取相册" 支持下载带有权限的相册: 第一种:对方权限为"QQ好友可见或指定人可见".需要您登陆自己的QQ,并且您所登陆的QQ必须是主人授权范围内的. 第二种:对方权限为"回答问题的人可见",需要您输入问题及答案. 1.软件运行后,选择"QQ空间相册模板". 2.在"QQ号码"的位置上输入你要下载自