中国DOS联盟

'运行程序需创建一个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,"$$$夜七制作$$$"