以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]批量打开网页链接后，如何关闭浏览器  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83148)
--  作者：chnfo
--  发布时间：2016/4/1 15:08:00
--  [求助]批量打开网页链接后，如何关闭浏览器
通过
Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://www.163.com"
Proc.Start()
Proc.File = "http://www.sohu.com"
Proc.Start()

这样可以打开多个网页，但如何在网页打开之后，直接关闭浏览器呢？
--  作者：大红袍
--  发布时间：2016/4/1 15:19:00
--  

方法一：

 

Dim ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate(http://www.foxtable.com)

 

\'想删除，就ie.visible = false  、  ie = nothing
--  作者：大红袍
--  发布时间：2016/4/1 15:20:00
--  

方法二：直接把浏览器关闭掉

 

http://www.foxtable.com/help/topics/2713.htm

 
--  作者：chnfo
--  发布时间：2016/4/1 16:38:00
--  
袍兄，没太明白你的意思。
我是用代码打开了这两个网页。
但我现在如何将它们一个个关掉或者直接关闭浏览器，斩草除根呢？
--  作者：大红袍
--  发布时间：2016/4/1 16:40:00
--  
看2楼代码，记录好变量，你想什么时候控制都可以。
--  作者：大红袍
--  发布时间：2016/4/1 16:55:00
--  

做不到直接关闭浏览器的，因为不同的电脑默认的浏览器都不一样


Dim Proc As New System.Diagnostics.Process \'定义一个新的Process
Proc.StartInfo.FileName = "http://www.baidu.com"
Proc.Start()
system.threading.thread.sleep(5000)
ShowAppWindow("百度",5)
--  作者：chnfo
--  发布时间：2016/4/1 17:03:00
--  
做不到直接关闭浏览器的，因为不同的电脑默认的浏览器都不一样
－－－－－－－－－狐表取不到默认浏览器吗？


system.threading.thread.sleep(5000) \'－－－－这是指浏览器打开的时间吗？
ShowAppWindow("百度",5) ‘－－－－这个意思是否是说网页打开之后5秒钟关闭？’
--  作者：大红袍
--  发布时间：2016/4/1 17:14:00
--  

取不到，获取太麻烦。

 

叫你用2楼的方法打开网页啊。