网易手机图片自由下载器（hta）

bsp;& "<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