主题：浏览器控制

浏览器打开，默认就是全屏的，我测试的360浏览器就是这样。

要按F11后的全屏效果

比如

 

Dim Proc As New Process '定义一个新的Process
Proc.File = "http://qq.com" '指定要打开的网页地址
Proc.Start()
Sendkeys.Send("{F11}")

Dim Proc As New Process '定义一个新的Process
Proc.File = "http://qq.com" '指定要打开的网页地址
Proc.Start()
Sendkeys.Send({F11})

试了没效果，没有全屏

参考

 

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}")

 

 

或者

 

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

试了可行，感谢老师指点