用于提取网易文件的hta代码

时间:2022-06-25 22:01:25
  1. <TITLE>网易文件摄取</TITLE>  
  2. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">  
  3. <HTA:APPLICATION    
  4.  ID="MyhyliApp"    
  5.  APPLICATIONNAME="设置程序"    
  6.  VERSION="1.0"    
  7.  SCROLL="no"    
  8.  INNERBORDER="no"    
  9.  CONTEXTMENU="no"    
  10.  CAPTION="yes"    
  11.  SHOWINTASKBAR="yes"    
  12.  SINGLEINSTANCE="yes"    
  13.  SYSMENU="yes"    
  14.  WINDOWSTATE="normal"   
  15.  NAVIGABLE="yes"   
  16.  />  
  17. <style type="text/css">   
  18. <!--   
  19. .TT1 { font-family: "隶书";   
  20.  font-size: 24px;   
  21.  font-weight: bold;   
  22. }   
  23. .title {   
  24. }   
  25. .info {   
  26.  font-family: "隶书";   
  27.  font-size: 16px;   
  28.  color: #FF0000;   
  29.  font-weight: bold;   
  30. }   
  31. .separator { width:100%;   
  32.  margin:2px;   
  33.  margin-top:-4px;   
  34.  height:12px;   
  35.  overflow:hidden;   
  36. }   
  37. .list { height: 80px;   
  38.  width: 100%;   
  39.  background-color: #E3EFF9;   
  40. }   
  41. .s_button {   
  42.  background-color: #FFCC99;   
  43.  position: static;   
  44.  text-align: center;   
  45.  vertical-align: middle;   
  46.  padding: 1px;   
  47.  color: #0033CC;   
  48.  border: 1px solid #996633;   
  49.  width: 100%;   
  50. }   
  51. .grid1 {   
  52.  font-family: "隶书";   
  53.  font-size: 16px;   
  54.  background-color: #006699;   
  55.  background-position: center center;   
  56.  text-align: center;   
  57.  vertical-align: middle;   
  58.  height: 100%;   
  59.  width: 100%;   
  60.  color: #00FF99;   
  61. }   
  62. .grid2 {   
  63.  font-family: "宋体";   
  64.  text-align: left;   
  65.  vertical-align: middle;   
  66.  height: 100%;   
  67.  width: 100%;   
  68.  font-size: 12px;   
  69. }   
  70. .grid3 {   
  71.  text-align: center;   
  72.  vertical-align: middle;   
  73.  height: 100%;   
  74.  width: 100%;   
  75. }   
  76. .preview {   
  77.  position:absolute;   
  78.  width:140px;   
  79.  height:140px;   
  80.  z-index:1;   
  81.  left: 301px;   
  82.  top: 61px;   
  83.  overflow: visible;   
  84.  border-top-color: #FF0000;   
  85.  border-right-color: #FF0000;   
  86.  border-bottom-color: #FF0000;   
  87.  border-left-color: #FF0000;   
  88.  background-color: #FF9966;   
  89.  margin: 1px;   
  90.  padding: 1px;   
  91.  visibility: hidden;   
  92. }   
  93. .STYLE2 {   
  94.  color: #00FF00;   
  95.  font-weight: bold;   
  96.  font-family: "隶书";   
  97.  font-size: 14px;   
  98. }   
  99. -->   
  100. </style>  
  101. <div class="separator">  
  102.   <hr>  
  103. </div>  
  104. <table width="100%" height="4%" border="0" cellspacing="0" cellpadding="0">  
  105.   <tr>  
  106.     <td colspan="2" align="center" valign="middle" id=menubar onselectstart="return false"><span class="TT1" id="consume">网易图片文件一览表</span> </td>  
  107.   </tr>  
  108. </table>  
  109. <div class="separator">  
  110.   <hr>  
  111. </div>  
  112. <table width="100%" height="415" border="1">  
  113.   <tr>  
  114.     <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>  
  115.     <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">  
  116.         <p> </p>  
  117.       </div>  
  118.       <span class="STYLE2"> 信息公布</span></td>  
  119.   </tr>  
  120.   <tr>  
  121.     <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">  
  122.         <p>本程序可以*下载网易图片..</p>  
  123.         <p> </p>  
  124.       </div></td>  
  125.   </tr>  
  126.   <tr>  
  127.     <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>  
  128.   </tr>  
  129.   <tr>  
  130.     <td height="33" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><select name="Atype" id="Atype" onchange="changevalue()">  
  131.         <option value="jpg">彩图</option>  
  132.         <option value="gif">动画</option>  
  133.       </select></td>  
  134.     <td height="33" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><select name="imagetype" id="imagetype">  
  135.         <option selected="selected">图片类型</option>  
  136.         <option>全部</option>  
  137.         <option value="90">绝色风光</option>  
  138.         <option value="91">四季花语 </option>  
  139.         <option value="89">海底世界 </option>  
  140.         <option value="34">绝色美女 </option>  
  141.         <option value="198">都市丽人</option>  
  142.         <option value="200">手绘美女</option>  
  143.       </select></td>  
  144.   </tr>  
  145.   <tr>  
  146.     <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>  
  147.   </tr>  
  148.   <tr>  
  149.     <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>  
  150.   </tr>  
  151.   <tr>  
  152.     <td width="5%" height="25" align="center" valign="middle" bgcolor="#000080" class="STYLE2" style="border-style: solid; border-color: #000080">从 </td>  
  153.     <td width="14%" bgcolor="#FFFFFF" valign="middle" align="center" style="border-style: solid; border-color: #000080"><a title="在此处输入起始页数">  
  154.       <input name="start1" type="text" id="start1" value="1" size="10" />  
  155.       </a></td>  
  156.   </tr>  
  157.   <tr>  
  158.     <td height="26" align="center" valign="middle" bgcolor="#000080" class="STYLE2" style="border-style: solid; border-color: #000080">到</td>  
  159.     <td height="26" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><a title="在此处输入结束页数">  
  160.       <input name="start2" type="text" id="start2" size="10" value="1"/>  
  161.       </a></td>  
  162.   </tr>  
  163. </table>  
  164. <script language="vbscript">   
  165. Public fileext  
  166. str1 = "<tr><td><span class='grid1'><input type=checkbox id='sall' onclick='selectall()'>全都选</span></td>"  
  167. str1 = str1& "<td><span class='grid1'>预览</span></td>"  
  168. str1 = str1 & "<td><span class='grid1'>文件路径</span></td>"  
  169. str1 = str1 & "<td><span class='grid1'>文件名称</span></td></tr>"  
  170.  
  171. Sub Window_onLoad  
  172.     window.resizeTo 750, 515  
  173.     ileft = (window.screen.Width -750) / 2  
  174.     itop = (window.screen.height -515) / 2  
  175.     window.moveTo ileft, itop  
  176. End Sub  
  177.  
  178.  
  179. Function connect(num)  
  180.     Dim imageinfo, Length  
  181.     fileext = Atype.options(Atype.selectedindex).Value  
  182.     imgtype = imagetype.options(imagetype.selectedindex).Value  
  183.     imgtypenum = Atype.selectedindex  
  184.     url = "http://mms.163.com/new_web/cm_lv2_pic.jsp?catID="&imgtype&"&ord=dDate&page="&num&"&type="&imgtypenum&"&key="  
  185.     imageurl = "http://mmsimg.163.com/new_web/loaditem.jsp/type="&imgtypenum&"/path="  
  186.     Set http = CreateObject("Microsoft.XMLHTTP")  
  187.     http.Open "GET", url, False  
  188.     http.send  
  189.     vIn = http.ResponseBody  
  190.     strReturn = ""  
  191.     For i = 1 To LenB(vIn)  
  192.         ThisCharCode = AscB(MidB(vIn, i, 1))  
  193.         If ThisCharCode < &H80 Then  
  194.             strReturn = strReturn & Chr(ThisCharCode)  
  195.         Else  
  196.             NextCharCode = AscB(MidB(vIn, i + 1, 1))  
  197.             strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt (NextCharCode))  
  198.             i = i + 1  
  199.         End If  
  200.     Next  
  201.     '------获取文件的地址------------'  
  202.     Do  
  203.         pos = InStr(strReturn, "showPic")  
  204.         pos1 = InStr(strReturn, "128x128")  
  205.         If pos>0 Then  
  206.             Length = pos1 - pos  
  207.             imageinfo = Mid(strReturn, pos, Length)  
  208.             images = Split(imageinfo, ",")  
  209.             imagepath = Mid(images(2), 2, Len(images(2)) -1)&"128x128."& fileext  
  210.             '----------获取文件的名字------------'  
  211.             namepos = InStr(strReturn, "\n名字:")  
  212.             namepos1 = InStr(strReturn, "\n人气")  
  213.             namelength = namepos1 - namepos  
  214.             imagename = Mid(Mid(strReturn, namepos, namelength), 6)  
  215.             strHTML = strHTML & "<tr><td><span class='grid2'><input id=addme type=checkbox>选定</span></td>"  
  216.             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>"  
  217.             strHTML = strHTML & "<td><span class='grid2'>" & imagepath & "</span></td>"  
  218.             strHTML = strHTML & "<td><span class='grid2'>" & imagename & "</span></td></tr>"  
  219.             strReturn = Mid(strReturn, namepos1 + 20)  
  220.         Else  
  221.             Exit Do  
  222.         End If  
  223.     Loop  
  224.     connect = strHTML  
  225. End Function  
  226.  
  227.  
  228. Function writeinner()  
  229.     For i = start1.Value To start2.Value  
  230.         strHTML = strHTML & connect(i)  
  231.     Next  
  232.     strHTML = "<table id='mytable' width=100% border=1 bordercolor=green>" &str1&strHTML& "</table>"  
  233.     list.innerHTML = strHTML  
  234.     infotext.innertext = infotext.innertext & "连接成功。"  
  235.     infotext.innertext = infotext.innertext & vbCrLf &vbCrLf & "从第" & start1.Value & "页到第" & start2.Value & "页的gif图片文件信息!"  
  236. End Function  
  237.  
  238.  
  239. Function show()  
  240.     If Not (IsNumeric(start2.Value)) Or Not (IsNumeric(start2.Value)) Then  
  241.         infotext.innertext = infotext.innertext & vbCrLf & "配置错误..."  
  242.     Else  
  243.         infotext.innertext = "正在连接..."  
  244.         window.settimeout "writeinner()", 200  
  245.     End If  
  246. End Function  
  247.  
  248.  
  249. Sub view()  
  250.     strHTML1 = "<img src='" &window.event.srcElement.src &"' width='140' height='140'>"  
  251.     preview.runtimeStyle.pixelLeft = window.event.x + 5  
  252.     preview.runtimeStyle.pixelTop = window.event.y + 5  
  253.     preview.style.visibility = "visible"  
  254.     preview.innerHTML = strHTML1  
  255. End Sub  
  256.  
  257.  
  258. Sub hideview()  
  259.     preview.style.visibility = "hidden"  
  260. End Sub  
  261.  
  262.  
  263. Sub addpro()  
  264.     Set obj = window.event.srcElement.parentelement.parentelement.parentelement.parentelement  
  265.     If obj.cells(0).children(0).children(0).checked = false Then  
  266.         obj.cells(0).children(0).children(0).checked = true  
  267.     Else  
  268.         obj.cells(0).children(0).children(0).checked = false  
  269.     End If  
  270. End Sub  
  271.  
  272.  
  273. Sub tb_del()  
  274.     Set obj = document.all.namedItem("mytable")  
  275.     If obj.rows.Length>2 Then  
  276.         Set tagID = document.all.namedItem("addme"'获取对象ID:delcheck'  
  277.         For Each otag in tagID  
  278.             If otag.checked Then  
  279.                 objrow = otag.parentelement.parentelement.parentelement.rowindex '获取对象的行序数;'  
  280.                 obj.deleteRow(objrow) '删除该项;'  
  281.             End If  
  282.         Next  
  283.     Else  
  284.         MsgBox "才一项你都删,哪有这样的?!", 0, "删除提醒"  
  285.         Exit Sub  
  286.     End If  
  287. End Sub  
  288.  
  289.  
  290. Sub selectall()  
  291.     Set obj = document.all.namedItem("mytable")  
  292.     Set objcheck = document.all.namedItem("sall")  
  293.     Set tagID = document.all.namedItem("addme"'获取对象ID:addme'  
  294.     For Each otag in tagID  
  295.         otag.checked = objcheck.checked  
  296.     Next  
  297. End Sub  
  298.  
  299.  
  300. Sub download()  
  301.     Set fso = CreateObject("Scripting.FileSystemObject")  
  302.     If Not (fso.FolderExists("★网易下载图片★")) Then  
  303.         fso.CreateFolder("★网易下载图片★")  
  304.     End If  
  305.     Set http = CreateObject("Microsoft.XMLHTTP")  
  306.     Set obj = document.all.namedItem("mytable")  
  307.     Set tagID = document.all.namedItem("addme"'获取对象ID:delcheck'  
  308.     For Each otag in tagID  
  309.         If otag.checked Then  
  310.             Set objrow = otag.parentelement.parentelement.parentelement '获取对象的行;'  
  311.             downurl = objrow.cells(1).children(0).children(0).children(0).src  
  312.             filename = objrow.cells(3).children(0).innertext  
  313.             http.Open "GET", downurl, False  
  314.             http.send  
  315.             Set aso = CreateObject("ADODB.Stream")  
  316.             aso.Type = 1  
  317.             aso.Open  
  318.             aso.Write http.ResponseBody  
  319.             aso.savetofile "★网易下载图片★\" & filename & "."&fileext, 2  
  320.             aso.Close  
  321.         End If  
  322.     Next  
  323.     infotext.innertext = infotext.innertext & vbCrLf & "文件下载成功。"  
  324.     infotext.innertext = infotext.innertext & vbCrLf & "文件保存在:" & vbCrLf &"“★网易下载图片★”下"  
  325. End Sub  
  326.  
  327.  
  328. Sub downloadfile()  
  329.     infotext.innertext = "正在下载文件...." '"  
  330.     window.settimeout "download()", 200  
  331. End Sub  
  332.  
  333.  
  334. Sub changevalue()  
  335.     AID = Array("130""112""67""14""122""158")  
  336.     PID = Array("90""91""89""34""198""200")  
  337.     If Atype.selectedindex = 0 Then  
  338.         For i = 0 To 5  
  339.             imagetype.options(i + 2).Value = PID(i)  
  340.         Next  
  341.     Else  
  342.         For i = 0 To 5  
  343.             imagetype.options(i + 2).Value = AID(i)  
  344.         Next  
  345.     End If  
  346. End Sub  
  347. </script>