利用 chrome-devtools MCP 让 AI 操作便携版浏览器（可指定 Data）
说明：文中出现的具体视频链接、演示路径、用户名、端口号等均为示例，读者需按需替换。
1. 需求
（1）使用 chrome-devtools-mcp 打开 https://www.bilibili.com/video/BV1fEsfzrEc7/?spm_id_from=333.1007.tianma.1-2-2.click&vd_source=7c7ae5cc1dbb2453e1eb43950a4264a3 （读者需按需替换）
（2）暂停视频播放
（3）查找并点击该视频页面的所有“点击查看”文本元素
2. 背景与试验
上述需求要查看哔站视频评论，必须要登录才行。但是，通常 AI 工具调用浏览器完成任务时，不支持持久化用户数据目录（不支持指定 Data 目录，每次都会创建临时目录）。
在 Cursor 2.x 中，通过 Cursor 2.x 内置的 Browser Automation 和 chrome-devtools mcp 两种方式进行试验。每次调用 Chrome 打开哔站后，都无法直接查看评论，更无法点击评论中的“点击查看”文本元素。每次都需要手动登录哔站后，才能完成点击评论中的“点击查看”文本元素的任务，这很繁琐。
3. 问题：Cursor 2.x 能否在启动 Chrome 时指定 Data 目录？
（1）Browser Automation 方式不支持指定 Data 目录。
经 Cursor 深入研究 https://github.com/worryzyy/awesome-cursor-download ，已经核实 Browser Automation 方式不支持持久化用户数据目录（每次创建临时目录）。
（2）chrome-devtools mcp 方式支持指定 Data 目录。
经 Cursor 深入研究 https://developer.chrome.com/blog/chrome-devtools-mcp ，chrome-devtools mcp 有两种方式支持指定 Data 目录。
一种方式是在 C:\Users\WinUser01.cursor\mcp.json（读者需按需替换）添加类似下面的配置：
{
"mcpServers": {
"chrome-devtools": {
"command": "npx",
"args": [
"chrome-devtools-mcp@latest",
"--chrome-arg=--user-data-dir=C:\\Users\\YourName\\chrome-mcp-profile"
]
}
}
}
另一种方式是先启动携带 --remote-debugging-port=9222、指定 Data 目录的 Chrome 进程（可以是安装版、也可以是便携版），并在 C:\Users\WinUser01.cursor\mcp.json（读者需按需替换）添加类似下面的配置，让 Cursor 2.x 直接调用已经启动的 Chrome 进程来完成任务：
{
"mcpServers": {
"chrome-devtools": {
"command": "npx",
"args": [
"chrome-devtools-mcp@latest",
"--browser-url=http://127.0.0.1:9222"
]
}
}
}
4. 实现步骤
下面，将在 Cursor 2.x 环境、以便携版 Chrome 为例，说明具体的实现步骤。
（1）先安装配置好 Cursor 2.x。打开 Cursor 2.x 的“Settings”窗口，左侧“Tools & MCP”，右侧点击“New MCP Server”编辑 C:\Users\WinUser01.cursor\mcp.json（读者需按需替换），添加以下内容，端口号为 9222（可以根据需要更改，但必须与后面 start-chrome-and-cursor-OK.vbs 中启动 Chrome 进程时指定的端口号一致）：
{
"mcpServers": {
"chrome-devtools": {
"command": "npx",
"args": [
"chrome-devtools-mcp@latest",
"--browser-url=http://127.0.0.1:9222"
]
}
}
}
配置好之后，需要关闭 Cursor、并结束内存中的所有 Cursor 进程，再重启 Cursor 才能生效。重启后，打开“Settings”窗口，左侧“Tools & MCP”右侧“Installed MCP Servers”下面显示有“chrome-devtools (27 tools enabled)”、且末尾开关显示绿色开启状态，便说明 chrome-devtools MCP 已经配置成功。
（2）由于现在版本的 Cursor 在关闭后，Cursor 进程还会残留在内存中（估计是bug），同时为避免内存中存在多个 Chrome 进程的相互干扰，所以下面在启动 Chrome、Cursor 进程前，强制结束内存中的所有 Chrome、Cursor 进程。
为了便于自动化快捷操作，可以编制 start-chrome-and-cursor-OK.vbs（文件内容附后）来完成先结束内存中的所有 Chrome、Cursor 进程，再启动定制的 Chrome 便携版进程、再启动 Cursor 进程。
注意：启动的 "d:\WinUser.dat\Program Files\ChromePortable\Chrome-bin\chrome.exe" 为便携版 Chrome 路径，"d:\WinUser.dat\Program Files\ChromePortable\Data" 为指定的用户 Data 目录，读者需按需替换。
5. 使用 start-chrome-and-cursor-OK.vbs 实现需求
接下来，创建一个项目目录，比如：e:\CursorMcp\BrowerMcp01（读者需按需替换），将 start-chrome-and-cursor-OK.vbs 文件拷贝到该目录，双击 start-chrome-and-cursor-OK.vbs 便可以自动结束内存中的所有 Chrome、Cursor 进程，再启动定制的 Chrome 便携版进程、再启动 Cursor 进程。
用 Cursor 2.x 打开项目目录，在 Chat 窗口中选择 Agent 模式，模型选择 Sonnet 4.5 即可，直接输入下面的任务发送即可自动完成（视频网址请按需替换）：
（1）使用 chrome-devtools-mcp 打开 https://www.bilibili.com/video/BV1fEsfzrEc7/?spm_id_from=333.1007.tianma.1-2-2.click&vd_source=7c7ae5cc1dbb2453e1eb43950a4264a3 （读者需按需替换）
（2）暂停视频播放
（3）查找并点击该视频页面的所有“点击查看”文本元素
6. chrome-devtools MCP 查找“点击查看”元素，并进行点击
下图是 chrome-devtools MCP 查找到的第一个“点击查看”元素（红框标注）：
下图是 chrome-devtools MCP 已经自动点击查找到的“点击查看”元素、展开评论（红框标注），总共查找到并自动点击3个“点击查看”元素（红框标注）：
7. 附：start-chrome-and-cursor-OK.vbs 文件内容
' start-chrome-and-cursor-OK.vbs
Option Explicit
' 全局对象变量
Dim objWMI, objShell, objFSO
Dim chromePath, cursorPath, currentDir
Dim maxWaitTime, waitInterval
' 配置参数
maxWaitTime = 10000 ' 最大等待时间（毫秒）
waitInterval = 200 ' 检查间隔（毫秒）
' 创建必要对象
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 获取当前脚本所在目录
currentDir = objFSO.GetParentFolderName(WScript.ScriptFullName)
' 便携版 Chrome 路径和启动参数
chromePath = "d:\WinUser.dat\Program Files\ChromePortable\Chrome-bin\chrome.exe"
Dim chromeArgs
' 使用下划线 _ 作为行继续符（VBScript 不支持 CMD 的 ^ 符号）
chromeArgs = "--user-data-dir=\"\"d:\WinUser.dat\Program Files\ChromePortable\Data\"\" " & _
"--disable-background-networking " & _
"--disable-features=CustomizeChromeSidePanel " & _
"--disable-hang-monitor " & _
"--disable-session-crashed-bubble " & _
"--hide-crash-restore-bubble " & _
"--disable-restore-session-state " & _
"--remote-debugging-port=9222"
' ============================================================================
' 步骤 1: 结束所有 Chrome 进程
' ============================================================================
Call KillAllProcesses("chrome.exe")
Call WaitForProcessesToTerminate("chrome.exe", maxWaitTime)
' ============================================================================
' 步骤 2: 结束所有 Cursor 进程
' ============================================================================
Call KillAllProcesses("Cursor.exe")
Call WaitForProcessesToTerminate("Cursor.exe", maxWaitTime)
' ============================================================================
' 步骤 3: 启动便携版 Chrome
' ============================================================================
If Not objFSO.FileExists(chromePath) Then
WScript.Quit 1
End If
objShell.Run """" & chromePath & """ " & chromeArgs, 1, False
WScript.Sleep 3000
' ============================================================================
' 步骤 4: 验证 Chrome CDP 连接（可选）
' ============================================================================
Call VerifyChromeCDP()
' ============================================================================
' 步骤 5: 启动 Cursor
' ============================================================================
cursorPath = FindCursorPath()
If cursorPath <> "" Then
objShell.Run """" & cursorPath & """ """ & currentDir & """", 1, False
WScript.Sleep 1000
End If
' 清理资源
Set objWMI = Nothing
Set objShell = Nothing
Set objFSO = Nothing
WScript.Quit 0
' ============================================================================
' 函数: 结束指定名称的所有进程
' 参数: processName - 进程名称（如 "chrome.exe"）
' 返回: 结束的进程数量
' ============================================================================
Function KillAllProcesses(processName)
Dim colProcessList, objItem
Dim killedCount
killedCount = 0
Set colProcessList = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & processName & "'")
If colProcessList.Count > 0 Then
For Each objItem In colProcessList
On Error Resume Next
objItem.Terminate()
If Err.Number = 0 Then
killedCount = killedCount + 1
End If
On Error Goto 0
Next
End If
Set colProcessList = Nothing
KillAllProcesses = killedCount
End Function
' ============================================================================
' 函数: 等待指定名称的所有进程结束
' 参数: processName - 进程名称（如 "chrome.exe"）
' 参数: maxWaitMs - 最大等待时间（毫秒）
' ============================================================================
Function WaitForProcessesToTerminate(processName, maxWaitMs)
Dim elapsedTime, colProcessList
elapsedTime = 0
Do While elapsedTime < maxWaitMs
Set colProcessList = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & processName & "'")
If colProcessList.Count = 0 Then
Set colProcessList = Nothing
Exit Function
End If
Set colProcessList = Nothing
WScript.Sleep waitInterval
elapsedTime = elapsedTime + waitInterval
Loop
End Function
' ============================================================================
' 函数: 查找 Cursor 可执行文件路径
' 返回: Cursor.exe 的完整路径，未找到则返回空字符串
' ============================================================================
Function FindCursorPath()
Dim paths(4)
Dim i, testPath
' 定义可能的 Cursor 安装路径
paths(0) = objShell.ExpandEnvironmentStrings("%LOCALAPPDATA%") & "\Programs\cursor\Cursor.exe"
paths(1) = objShell.ExpandEnvironmentStrings("%APPDATA%") & "\Local\Programs\cursor\Cursor.exe"
paths(2) = "C:\Program Files\Cursor\Cursor.exe"
paths(3) = objShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\Cursor\Cursor.exe"
' 尝试从注册表获取路径
On Error Resume Next
testPath = objShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall\Cursor\InstallLocation")
If Err.Number = 0 And testPath <> "" Then
testPath = testPath & "\Cursor.exe"
If objFSO.FileExists(testPath) Then
FindCursorPath = testPath
Exit Function
End If
End If
On Error Goto 0
' 检查每个路径
For i = 0 To UBound(paths)
If objFSO.FileExists(paths(i)) Then
FindCursorPath = paths(i)
Exit Function
End If
Next
FindCursorPath = ""
End Function
' ============================================================================
' 函数: 验证 Chrome CDP 连接（静默验证）
' ============================================================================
Function VerifyChromeCDP()
Dim httpObj, url
On Error Resume Next
Set httpObj = CreateObject("MSXML2.XMLHTTP")
url = "http://localhost:9222/json/version"
httpObj.Open "GET", url, False
httpObj.setTimeouts 2000, 2000, 2000, 2000
httpObj.Send
Set httpObj = Nothing
On Error Goto 0
End Function
浙公网安备 33010602011771号