找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 23603|回复: 3

[网络连接] 批处理如何打开网站指定页面的链接

[复制链接]
发表于 2012-9-16 12:42:45 | 显示全部楼层 |阅读模式
比如我打开

http://www.bathome.net/forum-5-1.html

但是这个页面有很多的地址链接,我想打开地址中包含  “thread-”的链接,就自动打开,这个怎么实现啊??

也就是http://www.bathome.net/forum-5-1.html地址页面上的链接地址,有  “thread-”的链接,都自动打开
发表于 2012-9-16 14:41:12 | 显示全部楼层
在 ie 地址栏运行(注意头部的 vbscript: 别被吞了):
  1. vbscript:execute("for each a in document.getelementsbytagname(""a""):if instr(a,""thread-"") then window.open(a):end if:next")
复制代码
 楼主| 发表于 2012-9-16 20:14:44 | 显示全部楼层
回复 2# CrLf


    地址是哪个啊,这代码里咩写地址
发表于 2012-9-16 21:22:25 | 显示全部楼层
本帖最后由 CrLf 于 2012-9-16 21:36 编辑

打开网址可以用 location.href:
  1. location.href="http://www.bathome.net/forum-5-1.html"
复制代码
但可能因为此时新网址还没加载,所以无法读取 window.readystate,尝试设置 window.onload 也无效,不知怎么解决...

不过直接用外部脚本倒是好办:
  1. Set ie = CreateObject("InternetExplorer.Application")
  2. Set WSHShell= CreateObject("Wscript.Shell")

  3. ie.Navigate "http://www.bathome.net/forum-5-1.html"
  4. ie.Visible = True

  5. Do Until ie.ReadyState = 4:Loop

  6. For Each a In ie.document.getelementsbytagname("a")
  7.         If InStr(a,"thread-") Then WSHShell.Run a
  8. Next
  9. ie.Quit
复制代码
才发现 InternetExplorer.Application 没有 window 属性
而且用 InternetExplorer.Application 比较讨厌的是可能开启其他一些 ie 内核的浏览器,而且如果使用的是 ie9,需要事先存在 iexplore.exe 进程,否则报错
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 14:13 , Processed in 0.016735 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表