中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-04 13:10

共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » VBS监控小说网站更新情况（已完成）

可打印版本　767 / 5

第1楼　zhoushijay	发表于 2007-05-09 14:42
高级用户　发帖 375　积分 845
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,"$$$夜七制作$$$" [ Last edited by zhoushijay on 2007-5-10 at 05:23 PM ]

第2楼　honghunter	发表于 2007-05-09 15:00
中级用户　发帖 135　积分 321
对于“当地址无效的时候会转到百度的搜索网页”个人猜测是不是你的浏览器设置问题啊？

第3楼　baomaboy	发表于 2007-05-09 15:39
银牌会员　发帖 554　积分 1,513
呵呵 “当地址无效的时候会转到百度的搜索网页” 那是你的浏览器被劫持了，把本该出现“找不到服务器”的页面指向了百度搜索，修复一下注册表即可。

第4楼　zhoushijay	发表于 2007-05-09 15:41
高级用户　发帖 375　积分 845
那别人用呢，也要他们修复注册表吗？有没有别的办法来检测地址时候有效啊？

第5楼　baomaboy	发表于 2007-05-09 17:16
银牌会员　发帖 554　积分 1,513
Originally posted by zhoushijay at 2007-5-9 15:41: 那别人用呢，也要他们修复注册表吗？有没有别的办法来检测地址时候有效啊？呵呵你怎么本末倒置了别人的都是跟你的一样吗？别人的都很正常不会出现没链接就去百度一下。

第6楼　baomaboy	发表于 2007-05-10 15:32
银牌会员　发帖 554　积分 1,513
又看了一下，在这个程序中用wscript.sleep 做流程控制的参数条件很不可取，与此同理网络上自动刷邮箱的脚本狂弹网页也是这个道理，用ie.ReadyState=4配合取title的方法目前还是不错的，实例： 163邮箱自动登陆→VBS版

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023