网易手机图片自由下载器(hta)
2006-08-24 00:00
316 查看
<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>
相关文章推荐
- 获取手机录音和视频和图片
- 【Android】获取手机中已安装apk文件信息(PackageInfo、ResolveInfo)(应用图片、应用名、包名等
- [置顶] 异步加载图片,使用LruCache和SD卡或手机缓存,效果非常的流畅
- 转向移动webApp开发的前端工程师必要的代码,手机webApp触摸左右滑动切换轮播图片广告
- android关于手机拍照图片旋转问题
- Android 异步加载图片,使用LruCache和SD卡或手机缓存,效果非常的流畅
- 强大的Android系统,可自由修改手机型号、SDK版本号等信息。
- 【转】手机也能收发邮件 网易发布“网易掌上邮” - CNET科技资讯网
- 小记 有些手机裁剪图片问题
- Android拍照或者从手机相册里选择图片
- 如何实现大分辨率的图片等比例缩放,使其适配不同的手机
- 解决android开发在大屏手机图片出现内存溢出
- PS操作01 - PS切手机图标 + Android.9.png图片制作
- uploadifive 改进版 用于HTML5手机网站上传图片
- XZ_iOS之将图片保存到手机导致崩溃的问题
- 将大分辨率的图片通过缩放显示在手机上
- Android上传连接手机上的图片
- 【OSC手机App技术解析】- 列表异步线程加载图片
- J2ME手机开发中的透明图片处理
- Android开发 利用imageview显示选取的手机内存的图片