网易手机图片自由下载器（hta）

2024-10-01 12:56:37

代码如下:

<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">

</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="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>

网易手机图片自由下载器（hta）

复制代码代码如下: <TITLE>网易文件摄取</TITLE> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <HTA:APPLICATION ID="MyhyliApp" APPLICATIONNAME="设置程序" VERSION="1.0" SCROL
php实现的css文件背景图片下载器代码

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

本文实例讲述了python生成器/yield协程/gevent写简单的图片下载器功能.分享给大家供大家参考,具体如下: 1.生成器: '''第二种生成器''' # 函数只有有yield存在就是生成器 def test(i): while True: i += 1 res = yield i print(res) i += 1 return res def main(): t = test(1) # 创建生成器对象 print(next(t)) # next第一次执行从上到下,yield是终点 p
python编程scrapy简单代码实现搜狗图片下载器

学习任何编程技术,都要有紧有送,今天这篇博客就到了放松的时候了,我们学习一下如何用 scrapy 下载图片吧. 目标站点说明这次要采集的站点为搜狗图片频道,该频道数据由接口直接返回,接口如下: https://pic.sogou.com/napi/pc/recommend?key=homeFeedData&category=feed&start=10&len=10 https://pic.sogou.com/napi/pc/recommend?key=homeFeedData&a
PyQt5 实现百度图片下载器GUI界面

通过 Pyqt5 实现一个界面化的下载器,在通过网络请求实现各种类型的图片的下载.可以通过界面上输入不同图片的关键字从而实现下载图片并将下载好的图片保存到自定义的文件路径中. 在介绍代码块内容之前,先来看一下需要用到的三方的 python 库. from PyQt5.QtWidgets import * from PyQt5.QtCore import * from PyQt5.QtGui import * import os from scripy_images import ScripyIm
利用Python制作百度图片下载器

前段时间写了一个百度图片下载器,结果发现有很多人需要使用.说实话之前写的那一款百度图片下载器比较LOW,今天刚好有时间就做了一下升级. 更新了两个BUG,一个是图片下载达到几千张的时候就没有图片可以下载了.另一个是下载进度不能实时的展示出来不知道下载到什么程度了. 同样的,我们先把需要的第三方库导入进来. '''UI界面相关的库''' from PyQt5.QtWidgets import * from PyQt5.QtCore import * from PyQt5.QtGui import
利用Python多线程实现图片下载器

目录导语开发工具环境搭建原理简介效果展示导语之前有很多小伙伴说想学习一下多线程图片下载器,虽然好像已经过去很久了,不过还是上来安排一波吧.至于题目为什么说是构建一个小型数据集,因为公众号之后的文章应该还会用到它来构建一些简单的图像分类数据集,换句话说,后续一段时间,公众号会主要写一些深度学习机器学习相关的文章,下期文章揭晓具体内容. 废话不多说,让我们愉快地开始近期最后一篇爬虫文章~ 开发工具 Python版本:3.7.8 相关模块: requests模块: alive-progr
基于cssSlidy.js插件实现响应式手机图片轮播效果

cssSlidy是一款支持手机移动端的焦点图轮播插件,支持标题设置,滑动动画,间隔时间等. 在线实例实例演示使用方法 <div id="slidy-container"> <figure id="slidy"> <a href='#' target='_blank'><img src="img/2.jpg" alt="jQuery.nicescroll美化滚动条" data-cap
java基于Socket做一个简单下载器

本文实例为大家分享了java基于Socket制作下载器的过程,及相关代码,供大家参考,具体内容如下 1.首先要建立一个服务器用来处理信息并给客户端传输文件(电脑) 我是用电脑开了一个WIFI,手机连上后使用scoket传输的 SERVERIP要根据自己实际情况更改.端口也可以随便更改0~65535,尽量选大一点 import java.io.BufferedInputStream; import java.io.BufferedOutputStream; import java.io.Buf
手机图片预览插件photoswipe.js使用总结

手机图片预览photoswipe,支持pc图片预览,多用于android,ios的手机图片预览. 资源包:photoswipe-3.0.5 在photoswipe官网有1.0.11的包下载,但是1.0.11这个版本,存在缺陷,在部分android手机上,滑动一次的时候,会跳转2张图片 (正常情况下,滑动一次,跳转1张图片) 通常使用方法如下: 在html的head标签中依次加载资源包中如下文件: <script type="text/javascript" src="

网易手机图片自由下载器（hta）

相关推荐

随机推荐