用于提取网易文件的hta代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| (0).checked=false EndIf EndSub Subtb_del() Setobj=document.all.namedItem("mytable") Ifobj.rows.Length>2Then SettagID=document.all.namedItem("addme")''获取对象ID:delcheck'' ForEachotagintagID Ifotag.checkedThen objrow=otag.parentelement.parentelement.parentelement.rowindex''获取对象的行序数;'' obj.deleteRow(objrow)''删除该项；'' EndIf Next Else MsgBox"才一项你都删，哪有这样的?!",0,"删除提醒" ExitSub EndIf EndSub Subselectall() Setobj=document.all.namedItem("mytable") Setobjcheck=document.all.namedItem("sall") SettagID=document.all.namedItem("addme")''获取对象ID:addme'' ForEachotagintagID otag.checked=objcheck.checked Next EndSub Subdownload() Setfso=CreateObject("Scripting.FileSystemObject") IfNot(fso.FolderExists("★网易下载图片★"))Then fso.CreateFolder("★网易下载图片★") EndIf Sethttp=CreateObject("Microsoft.XMLHTTP") Setobj=document.all.namedItem("mytable") SettagID=document.all.namedItem("addme")''获取对象ID:delcheck'' ForEachotagintagID Ifotag.checkedThen Setobjrow=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 Setaso=CreateObject("ADODB.Stream") aso.Type=1 aso.Open aso.Writehttp.ResponseBody aso.savetofile"★网易下载图片★\"&filename&"."&fileext,2 aso.Close EndIf Next infotext.innertext=infotext.innertext&vbCrLf&"文件下载成功。" infotext.innertext=infotext.innertext&vbCrLf&"文件保存在:"&vbCrLf&"“★网易下载图片★”下" EndSub Subdownloadfile() infotext.innertext="正在下载文件...."''" window.settimeout"download()",200 EndSub Subchangevalue() AID=Array("130","112","67","14","122","158") PID=Array("90","91","89","34","198","200") IfAtype.selectedindex=0Then Fori=0To5 imagetype.options(i+2).Value=PID(i) Next Else Fori=0To5 imagetype.options(i+2).Value=AID(i) Next EndIf EndSub </script> |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: vbs实现的eMule电驴自动关机脚本代码下一篇: VBS如何察看或获得剪切板内容的脚本
关于用于提取网易文件的hta代码的所有评论
