在 VBScript 中打开 Chrome 的方法 - 汇编

在 VBScript 中打开 Chrome 可以通过 Shell 对象来实现。执行以下步骤：

1. 首先，需要使用 WScript 对象创建一个 Shell 对象：

Set WshShell = WScript.CreateObject("WScript.Shell")

2. 接下来，需要找到 Google Chrome 的安装路径。可以通过读取 Windows 注册表中的相关项来查找：

chromeKey = "HKLM\SOFTWARE\Google\Chrome\Extensions"
Set regObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
regObj.EnumKey HKEY_LOCAL_MACHINE, chromeKey, extKeys

For Each keyName In extKeys
    If InStr(keyName, ".") > 0 Then
        installKey = chromeKey & "\" & keyName & "\path"
        regObj.GetStringValue HKEY_LOCAL_MACHINE, installKey, "", installPath
        If InStr(1, installPath, "chrome.exe", vbTextCompare) Then
            Exit For
        End If
    End If
Next

3. 最后，使用 Shell 对象打开 Chrome：

WshShell.Run """" & installPath & """", 1, False

完整代码如下：

Set WshShell = WScript.CreateObject("WScript.Shell")

chromeKey = "HKLM\SOFTWARE\Google\Chrome\Extensions"
Set regObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
regObj.EnumKey HKEY_LOCAL_MACHINE, chromeKey, extKeys

For Each keyName In extKeys
    If InStr(keyName, ".") > 0 Then
        installKey = chromeKey & "\" & keyName & "\path"
        regObj.GetStringValue HKEY_LOCAL_MACHINE, installKey, "", installPath
        If InStr(1, installPath, "chrome.exe", vbTextCompare) Then
            Exit For
        End If
    End If
Next

WshShell.Run """" & installPath & """", 1, False

通过以上步骤，就可以在 VBScript 中打开 Chrome 了。