Board logo

标题: [问题求助] VBS怎样打开指定网页？ [打印本页]
作者: wscqd    时间: 2011-5-21 11:50     标题: VBS怎样打开指定网页？

服务器上放有网吧首页网站 服务器经常停电 一停电网吧首页就打不开 上网的客人就乱叫上不了网[他们自己不知道在地址栏输网址]
请帮忙写个VBS代码 打得开就直接打开www.XXXXX.com 要是打不开www.XXXXX.com 就打开 WWW.0000.COM
作者: batman    时间: 2011-5-21 13:37

示例：
  1. Set oword = CreateObject("Word.Application")

  2. Set ws = CreateObject("wscript.shell")

  3. ws.Run("http://www.bathome.net")

  4. WScript.Sleep 2000

  5. For Each task in oword.Tasks 

  6.   If InStr(task.name, "批处理之家") Then ok = "a" 

  7. Next

  8. If ok <> "a" Then ws.Run("http://www.baidu.com")

  9. oWord.Quit

  10. Set oword = Nothing

  11. Set ws = Nothing 
复制代码
作者: Hello123World    时间: 2011-5-21 14:13

本帖最后由 Hello123World 于 2011-5-21 14:15 编辑 
  1. start "" "www.baidu.com" || start "" "www.163.com" || start "" "www.google.com.hk"
复制代码
rem 批处理也行。
似乎打不开也不会执行下一条语句……
作者: wscqd    时间: 2011-5-24 03:32

测试不行啊 谢谢楼上的



欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2