以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何使用狐表实现打开网页并全屏  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170005)

--  作者:chen_sheng
--  发布时间:2021/7/9 8:29:00
--  如何使用狐表实现打开网页并全屏
用狐表
Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://bbs.foxtable.com" \'指定要打开的网页地址
Proc.Start()
可以打开网页

但是美中不足的是不能全屏,如何可以实现用浏览器打开网页并全屏呢


浏览器按F11是可以全屏的,

但是实际测试用下面的代码不能实现浏览器的全屏模式

Proc.WaitForInputIdle() \'等程序自动结束并进入空闲状态
Sendkeys.Send("{F11}") 
[此贴子已经被作者于2021/7/9 8:56:15编辑过]

--  作者:chen_sheng
--  发布时间:2021/7/9 8:50:00
--  
顶一下
[此贴子已经被作者于2021/7/9 8:55:51编辑过]

--  作者:有点蓝
--  发布时间:2021/7/9 9:13:00
--  
Dim Proc As New Process \'定义一个新的Process
Proc.File = "C:\\Program Files\\Internet Explorer\\iexplore.exe" \'指定要打开的ie浏览器程序
Proc.Arguments = "-k http://www.foxtable.com/"
Proc.Start()

https://blog.csdn.net/cosmoslife/article/details/8065688

--  作者:chen_sheng
--  发布时间:2021/7/9 10:03:00
--  
不知道咋回事  用上面方法打开黑屏  下面代码打开正常   
Dim Proc As New Process \'定义一个新的Process
\'Proc.File = "C:\\Program Files\\Internet Explorer\\iexplore.exe"
\'Proc.Arguments = "-k https://data.avuejs.com/view/45" \'指定要打开的网页地址
Proc.File = "https://data.avuejs.com/view/45"
Proc.Start()

--  作者:有点蓝
--  发布时间:2021/7/9 10:10:00
--  
IE不支持这个网页的特效,改为其它浏览器,至于其它浏览器的全屏参数是什么自己百度了

chrome谷歌浏览器就这样
Dim Proc As New Process \'定义一个新的Process
Proc.File = "C:\\Users\\foxtable\\AppData\\Local\\Google\\Chrome\\Application\\chrome.exe"
Proc.Arguments = "--kiosk https://data.avuejs.com/view/45" \'指定要打开的网页地址
Proc.Start()

--  作者:chen37280600
--  发布时间:2021/7/9 10:30:00
--  
你是不是嵌入了echart,然后丢进去ie,最后自动按F11全屏,想通过狐表的数据大屏装逼
--  作者:chen_sheng
--  发布时间:2021/7/9 11:52:00
--  
嗯嗯 一针见血
[此贴子已经被作者于2021/7/9 12:09:22编辑过]