资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划，从策略到执行的一站式服务

网站建设 >

查看其它板块

如何使用hta提取网易文件-创新互联

小编给大家分享一下如何使用hta提取网易文件，希望大家阅读完这篇文章之后都有所收获，下面让我们一起去探讨吧！

创新互联长期为成百上千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为蓝田企业提供专业的成都网站建设、网站建设，蓝田网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。

网易文件摄取

 ID="MyhyliApp"  
 APPLICATIONNAME="设置程序"  
 VERSION="1.0"  
 SCROLL="no"  
 INNERBORDER="no"  
 CONTEXTMENU="no"  
 CAPTION="yes"  
 SHOWINTASKBAR="yes"  
 SINGLEINSTANCE="yes"  
 SYSMENU="yes"  
 WINDOWSTATE="normal" 
 NAVIGABLE="yes" 
 />
 
 


  




  
    网易图片文件一览表 
  


  



  
    

    
        

 


      
       信息公布
  
  
    
        

本程序可以自由下载网易图片..


        

 


      
  
  
    
  
  
    
        彩图
        动画
      
    
        图片类型
        
        绝色风光
        四季花语 
        海底世界 
        绝色美女 
        都市丽人
        手绘美女
      
  
  
    
  
  
    
  
  
    从 
    
      
      
  
  
    到
    
      
      
  

 
Public fileext
str1 = "全都选"
str1 = str1& "预览"
str1 = str1 & "文件路径"
str1 = str1 & "文件名称"

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 & "选定"
            strHTML = strHTML &""
            strHTML = strHTML & "" & imagepath & ""
            strHTML = strHTML & "" & imagename & ""
            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 = "" &str1&strHTML& ""
    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 = ""
    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

看完了这篇文章，相信你对“如何使用hta提取网易文件”有了一定的了解，如果想了解更多相关知识，欢迎关注创新互联行业资讯频道，感谢各位的阅读！


分享文章：如何使用hta提取网易文件-创新互联
网站链接：http://cdkjz.cn/article/dcosci.html
返回首页 了解更多建站资讯

相关资讯

多年建站经验

多一份参考，总有益处

联系快上网，免费获得专属《策划方案》及报价

咨询相关问题或预约面谈，可以通过以下方式与我们联系

大客户专线   成都：13518219792   座机：028-86922220

在线咨询 提交需求
友情链接 交换友情链接
手机网站制作四川成都网站制作成都服务器运维网站解决方案成都装饰装修成都手机网站开发界面设计腾讯云香港虚拟主机免备案空间微信小程序开发

成都网站建设公司地址：成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220

成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.

专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网！ | 成都网站建设哪家好？ | 网站建设地图