标题: VBS监控小说网站更新情况（已完成） [打印本页]
作者: zhoushijay 时间: 2007-5-9 14:42 标题: VBS监控小说网站更新情况（已完成）
'运行程序需创建一个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,"$$$夜七制作$$$"
'本程序只对<<小说阅读网>>中<<活祭>>一文进行演示!
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 ]
作者: honghunter 时间: 2007-5-9 15:00
对于“当地址无效的时候会转到百度的搜索网页”个人猜测是不是你的浏览器设置问题啊？
作者: baomaboy 时间: 2007-5-9 15:39
呵呵 “当地址无效的时候会转到百度的搜索网页” 那是你的浏览器被劫持了，把本该出现“找不到服务器”的页面指向了百度搜索，修复一下注册表即可。
作者: zhoushijay 时间: 2007-5-9 15:41
那别人用呢，也要他们修复注册表吗？ 有没有别的办法来检测地址时候有效啊？
作者: baomaboy 时间: 2007-5-9 17:16
| Quote: | |
|
呵呵 你怎么本末倒置了 别人的都是跟你的一样吗？ 别人的都很正常 不会出现没链接就去百度一下。
作者: baomaboy 时间: 2007-5-10 15:32
又看了一下，在这个程序中用wscript.sleep 做流程控制的参数条件很不可取，与此同理网络上自动刷邮箱的脚本狂弹网页也是这个道理，用ie.ReadyState=4配合取title的方法目前还是不错的，实例：
163邮箱自动登陆→VBS版