[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

求一个开机自动检测网络的VBS

电脑开机后5分钟,自动运行该vbs,vbs运行后ping一个为www.xxx.cn的网站,如果能ping通的话就打开www.xxx.cn/index.html,不能ping通的话就自动退出该vbs ,不知该vbs如何写请高人指教,谢谢

  1. WSH.Sleep 1000 * 60 * 5
  2. If Ping("www.xxx.cn") Then
  3. OpenIE("www.xxx.cn/index.html")
  4. End If
  5. Sub OpenIE(strWeb)
  6. CreateObject("WScript.Shell").Run "iexplore " + strWeb
  7. End Sub
  8. Function Ping(strHost)
  9. b = False
  10. strComputer = strHost
  11. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  12. Set colItems = objWMIService.ExecQuery _
  13. ("Select * from Win32_PingStatus " & _
  14. "Where Address = '" & strComputer & "'")
  15. For Each objItem in colItems
  16. If objItem.StatusCode = 0 Then
  17. b = True
  18. Exit For
  19. End If
  20. Next
  21. Ping = b
  22. End Function
复制代码

TOP

回复 2楼 的帖子

你这个不是VBS代码吧?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 1楼 的帖子

  1. @ping www.xx.cn -n 2 |findstr TTL>nul&&(start www.xxx.cn/index.html)||exit
复制代码
开机自动运行的话你自己加吧,我不会弄,呵呵
http://www.maxccie.cn

TOP

返回列表