首页使用 ActivexObject 对象 ‘wscript.shell’ 的 run 方法打开chrome，并设置宽高和定位

使用 ActivexObject 对象 ‘wscript.shell’ 的 run 方法打开chrome，并设置宽高和定位

时间: 2024-10-23 12:05:13 浏览: 110

在使用ActiveXObject对象`wscript.shell`时，可以利用其`run`方法来运行外部应用程序，比如Chrome浏览器。首先，确保你的系统上已经安装了Chrome，并且可以被程序识别。以下是一个基本的步骤说明： ```vbnet Set objShell = CreateObject("WScript.Shell") ' 使用相对路径或绝对路径指定Chrome的可执行文件 strChromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe" ' 参数列表，第一个参数是命令行选项，"-incognito"用于无痕模式，" --start-maximized"设置窗口最大化 strArgs = " -incognito --start-maximized" ' 打开Chrome并设置窗口属性 objShell.Run strChromePath & " " & strArgs, 1, False ' 1表示后台启动，False表示立即显示 ' 设置窗口宽度、高度和位置（这里由于技术限制，实际操作需要通过其他方法，如使用WinAPI） ' 因为JavaScript API（如window.resizeTo和window.moveTo）在VBA中的ActiveXObject中不可用， ' 你可以尝试在打开Chrome之前创建一个新的窗口并调整大小和位置，然后关闭这个临时窗口。 ' 例如： ' Set chromeWindow = CreateObject("WScript.Shell").CreateProcess(strChromePath, "", "", True, 0, True, "", "", "") ' chromeWindow.hWndActivate = True ' chromeWindow.ResizeTo width, height ' chromeWindow.MoveTo xPosition, yPosition ' chromeWindow.Close ' 当然，这一步可能会因为权限原因无法直接控制另一个进程的窗口，实际效果会受限。 ``` 注意：这个例子仅适用于VBScript环境，如果是在VBA（Excel等）中，处理方式略有差异。同时，由于安全性和性能考虑，Windows API级别的操作通常更推荐。

阅读全文