CODE: [Copy to clipboard]
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 '初始值+1后,也就是检测下一章小说地址是否有效
ie.navigate "http://www.readnovel.com/novel/15763/"&num&".html"
wscript.sleep 10000
set wrt=fso.opentextfile("num.jay",2)
wrt.write num '每次有效后将NUM的值存入NUM.JAY文件,以便下次读取
wrt.close'关闭才行
on error resume next
isnull(ie.document.title)
msgbox(ie.document.title)
loop
msgbox("目前的最后章节为第"&num&"章!")
msgbox(err)