浏览器控制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 浏览器控制

共有1951人关注过本帖树形打印复制链接主题：浏览器控制

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/13 10:02:00 [显示全部帖子]

比如

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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}")

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

主题：浏览器控制