不伤筋动骨打开IE11

tsorgy

蛋哥 发表于 2022-1-10 17:14
还是这个好，但启动时能自动打开百度吗？如何设置，多谢

1. Set IE = CreateObject("InternetExplorer.Application")
   
2. IE.Visible = true
   
3. IE.Navigate("https://www.baidu.com")

复制代码

tsorgy

winningzhuu 发表于 2022-1-11 20:52
哥，还差一个，如果在启动的时候窗口最大化，不是全屏。

vbs没太好的办法，有个不是很优雅的实现方式，模拟按键。

后面加上这些：

1. Set oShell = CreateObject("WScript.Shell")
   
2. oShell.SendKeys("% { }")
   
3. WScript.Sleep 100
   
4. oShell.SendKeys("x")

复制代码

其实就是模拟Alt+Space, X调用窗口菜单的最大化，注意如果是中文系统可能快捷键不是X，实在不行就算要按几下↑键，把x改成{UP}{UP}{ENTER}

tsorgy

winningzhuu 发表于 2022-1-12 16:39
好像加上了没有效果，没有任何变化，发送按键前好像还需要用鼠标点一下ie界面

双击vbs运行的话焦点似乎在explorer里，创建个快捷方式pin到任务栏，从任务栏打开吧，那样焦点默认就是IE窗口。