Hta code used to extract NetEase files

<TITLE>NetEase File Intake</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<HTA:APPLICATION  
 ID="MyhyliApp"  
APPLICATIONNAME="Setting up the program"
 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: "Lishu";
 font-size: 24px; 
 font-weight: bold; 
} 
.title { 
} 
.info { 
font-family: "Lishu";
 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: "Lishu";
 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: "Zongyi";
 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: "Lishu";
 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" >NetEase Picture File List</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" >
        <p> </p>
      </div>
<span class="STYLE2"> Information Publish</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"  style="width:100%;height:177; overflow-y: auto">
<p>This program can freely download NetEase Pictures...</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"  onclick="show()" value="get file information" //</td>
  </tr>
  <tr>
    <td height="33" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><select name="Atype"  onchange="changevalue()">
<option value="jpg">color picture</option>
<option value="gif">Animation</option>
      </select></td>
    <td height="33" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><select name="imagetype" >
<option selected="selected">Image Type</option>
<option>all</option>
<option value="90">Scenery scenery</option>
<option value="91">Four Seasons Flower Language </option>
<option value="89">Underwater World </option>
<option value="34">beautiful beauty </option>
<option value="198">Urban Beauty</option>
<option value="200">Hand-drawn beauty</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" onclick="downloadfile()" value="Download Selected Item" //</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" onclick="tb_del()" value="Delete selected items" //</td>
  </tr>
  <tr>
<td width="5%" height="25" align="center" valign="middle" bgcolor="#000080" class="STYLE2" style="border-style: solid; border-color: #000080">from </td>
<td width="14%" bgcolor="#FFFFFF" valign="middle" align="center" style="border-style: solid; border-color: #000080"><a title="Enter the number of start pages here">
      <input name="start1" type="text"  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">to</td>
<td height="26" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-color: #000080"><a title="Enter the end pages here">
      <input name="start2" type="text"  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()'>Select all</span></td>"
str1 = str1& "<td><span class='grid1'>Preview</span></td>"
str1 = str1 & "<td><span class='grid1'>File path</span></td>"
str1 = str1 & "<td><span class='grid1'>File name</span></td></tr>"

Sub Window_onLoad
     750, 515
    ileft = ( -750) / 2
    itop = ( -515) / 2
     ileft, itop
End Sub


Function connect(num)
    Dim imageinfo, Length
    fileext = ().Value
    imgtype = ().Value
    imgtypenum = 
    url = "http://mms./new_web/cm_lv2_pic.jsp?catID="&imgtype&"&ord=dDate&page="&num&"&type="&imgtypenum&"&key="
    imageurl = "http://mmsimg./new_web//type="&imgtypenum&"/path="
    Set http = CreateObject("")
     "GET", url, False
    
    vIn = 
    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,"\nName:")
namepos1 = InStr(strReturn, "\nPopularity")
            namelength = namepos1 - namepos
            imagename = Mid(Mid(strReturn, namepos, namelength), 6)
strHTML= strHTML& "<tr><td><span class='grid2'><input id=addme type=checkbox>Select</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 =  To 
        strHTML = strHTML & connect(i)
    Next
    strHTML = "<table id='mytable' width=100% border=1 bordercolor=green>" &str1&strHTML& "</table>"
     = strHTML
=   & "Connected successfully."
=   & vbCrLf &vbCrLf & "Gif image file information from the page " & & " to the page " & & "!"
End Function


Function show()
    If Not (IsNumeric()) Or Not (IsNumeric()) Then
=   & vbCrLf & "Configuration error..."
    Else
= "Connecting..."
         "writeinner()", 200
    End If
End Function


Sub view()
    strHTML1 = "<img src='" & &"' width='140' height='140'>"
     =  + 5
     =  + 5
     = "visible"
     = strHTML1
End Sub


Sub hideview()
     = "hidden"
End Sub


Sub addpro()
    Set obj = 
    If (0).children(0).children(0).checked = false Then
        (0).children(0).children(0).checked = true
    Else
        (0).children(0).children(0).checked = false
    End If
End Sub


Sub tb_del()
    Set obj = ("mytable")
    If >2 Then
Set tagID = ("addme") 'Get object ID:delcheck'
        For Each otag in tagID
            If  Then
objrow = 'Get the row number of the object;'
(objrow) 'Delete this item;'
            End If
        Next
    Else
MsgBox "You deleted only one item, how could you do this?!", 0, "Delete reminder"
        Exit Sub
    End If
End Sub


Sub selectall()
    Set obj = ("mytable")
    Set objcheck = ("sall")
Set tagID = ("addme") 'Get object ID:addme'
    For Each otag in tagID
         = 
    Next
End Sub


Sub download()
    Set fso = CreateObject("")
If Not (("★NetEase Download Picture★")) Then
("★NetEase Download Picture★")
    End If
    Set http = CreateObject("")
    Set obj = ("mytable")
Set tagID = ("addme") 'Get object ID:delcheck'
    For Each otag in tagID
        If  Then
Set objrow = 'Get the row of the object;'
            downurl = (1).children(0).children(0).children(0).src
            filename = (3).children(0).innertext
             "GET", downurl, False
            
            Set aso = CreateObject("")
             = 1
            
             
"★NetEase download picture★\" & filename & "."&fileext, 2
            
        End If
    Next
=   & vbCrLf & "File download was successful."
=   & vbCrLf & "File is saved under:" & vbCrLf &""★NetEase Download Picture★"
End Sub


Sub downloadfile()
= "Downloading file......" '"
     "download()", 200
End Sub


Sub changevalue()
    AID = Array("130", "112", "67", "14", "122", "158")
    PID = Array("90", "91", "89", "34", "198", "200")
    If  = 0 Then
        For i = 0 To 5
            (i + 2).Value = PID(i)
        Next
    Else
        For i = 0 To 5
            (i + 2).Value = AID(i)
        Next
    End If
End Sub
</script>