以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  浏览器控制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136413)
--  作者：煜杭
--  发布时间：2019/6/12 19:40:00
--  浏览器控制
Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://qq.com" \'指定要打开的网页地址
Proc.Start()

以上代码可以打开一个网页，现在想打开页面后全屏显示（模拟按F11），可以用代码实现吗？
--  作者：yd0731
--  发布时间：2019/6/12 20:23:00
--  
浏览器打开，默认就是全屏的，我测试的360浏览器就是这样。
--  作者：煜杭
--  发布时间：2019/6/12 21:04:00
--  
要按F11后的全屏效果
--  作者：有点甜
--  发布时间：2019/6/13 10:02:00
--  

比如

 

Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://qq.com" \'指定要打开的网页地址
Proc.Start()
Sendkeys.Send("{F11}")
--  作者：teng0731
--  发布时间：2019/6/13 10:53:00
--  
Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://qq.com" \'指定要打开的网页地址
Proc.Start()
Sendkeys.Send({F11})

昨天晚上测试上面的代码，老是报错，说最后一行不是表达式；原来是少了双引号，帮助中也只是提及“将其放在大括号 ({}) 内”，没有写明需要双引号，建议对帮助进行补充。
--  作者：煜杭
--  发布时间：2019/6/13 12:12:00
--  
试了没效果，没有全屏
是不是要另个代码，把光标定位到浏览器上先发F11过去才有效果
--  作者：有点甜
--  发布时间：2019/6/13 13:12:00
--  

参考

 

Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://qq.com" \'指定要打开的网页地址
Proc.Start()
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(5) \'5秒
    Application.DoEvents
End While

Sendkeys.Send("{F11}")

 

 
--  作者：有点甜
--  发布时间：2019/6/13 13:13:00
--  

或者

 

Dim ie As Object = CreateObject("InternetExplorer.Application")
vars("ie") = ie
ie.menubar=0 \'不显示IE对象菜单栏
ie.AddressBar=0 \'不显示IE对象地址栏
ie.ToolBar=0 \'不显示IE对象工具栏
ie.StatusBar=0 \'不显示IE对象状态栏
ie.FullScreen=1 \'全屏化IE对象
ie.Width=500 \'设置IE对象宽度
ie.Height=300 \'设置IE对象高度
ie.left = 300
ie.Top = 200
ie.Resizable=1 \'设置IE对象大小是否可以被改动
ie.Navigate("http://www.baidu.com")

ie.visible=1 \'设置是否可见
\'ie.quit
--  作者：煜杭
--  发布时间：2019/6/13 14:01:00
--  
试了可行，感谢老师指点