'运行程序需创建一个num.jay文件，初始值为小于小说最后章节的数字
'本程序只对<<小说阅读网>>中<<活祭>>一文进行演示!
set fso=createobject("scripting.filesystemobject")
Set ie=WScript.CreateObject("InternetExplorer.Application")
set rde=fso.opentextfile("num.jay",1)
num=rde.readall
num=int(num)
do until err<>0
num=num+1
ie.navigate "http://www.readnovel.com/novel/15763/"&num&".html"
wscript.sleep 10000
set wrt=fso.opentextfile("num.jay",2)
rn=num-2
wrt.write rn
wrt.close
on error resume next
if a=ie.document.title then
exit do
end if
a=ie.document.title
loop
msgbox "目前的最后章节为第"&rn&"章！章节的题目为:"&chr(10)&a,vbinformation,"$$$夜七制作$$$"
Last edited by zhoushijay on 2007-5-10 at 05:23 PM ]
