利用 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（读者需按需替换）添加类似下面的配置：

1. {
2. "mcpServers": {
3.    "chrome-devtools": {
4.      "command": "npx",
5.      "args": [
6.        "chrome-devtools-mcp@latest",
7.        "--chrome-arg=--user-data-dir=C:\\Users\\YourName\\chrome-mcp-profile"
8.      ]
9.    }
10. }
11. }

复制代码

  另一种方式是先启动携带 --remote-debugging-port=9222、指定 Data 目录的 Chrome 进程（可以是安装版、也可以是便携版），并在 C:\Users\WinUser01.cursor\mcp.json（读者需按需替换）添加类似下面的配置，让 Cursor 2.x 直接调用已经启动的 Chrome 进程来完成任务：

1. {
2.   "mcpServers": {
3.     "chrome-devtools": {
4.       "command": "npx",
5.       "args": [
6.         "chrome-devtools-mcp@latest",
7.         "--browser-url=http://127.0.0.1:9222"
8.       ]
9.     }
10.   }
11. }

复制代码

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 进程时指定的端口号一致）：

1. {
2.   "mcpServers": {
3.     "chrome-devtools": {
4.       "command": "npx",
5.       "args": [
6.         "chrome-devtools-mcp@latest",
7.         "--browser-url=http://127.0.0.1:9222"
8.       ]
9.     }
10.   }
11. }

复制代码

  配置好之后，需要关闭 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 文件内容

1. ' start-chrome-and-cursor-OK.vbs
2. Option Explicit
4. ' 全局对象变量
5. Dim objWMI, objShell, objFSO
6. Dim chromePath, cursorPath, currentDir
7. Dim maxWaitTime, waitInterval
9. ' 配置参数
10. maxWaitTime = 10000  ' 最大等待时间（毫秒）
11. waitInterval = 200   ' 检查间隔（毫秒）
13. ' 创建必要对象
14. Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
15. Set objShell = CreateObject("WScript.Shell")
16. Set objFSO = CreateObject("Scripting.FileSystemObject")
18. ' 获取当前脚本所在目录
19. currentDir = objFSO.GetParentFolderName(WScript.ScriptFullName)
21. ' 便携版 Chrome 路径和启动参数
22. chromePath = "d:\WinUser.dat\Program Files\ChromePortable\Chrome-bin\chrome.exe"
23. Dim chromeArgs
24. ' 使用下划线 _ 作为行继续符（VBScript 不支持 CMD 的 ^ 符号）
25. chromeArgs = "--user-data-dir=""d:\WinUser.dat\Program Files\ChromePortable\Data"" " & _
26.              "--disable-background-networking " & _
27.              "--disable-features=CustomizeChromeSidePanel " & _
28.              "--disable-hang-monitor " & _
29.              "--disable-session-crashed-bubble " & _
30.              "--hide-crash-restore-bubble " & _
31.              "--disable-restore-session-state " & _
32.              "--remote-debugging-port=9222"
34. ' ============================================================================
35. ' 步骤 1: 结束所有 Chrome 进程
36. ' ============================================================================
37. Call KillAllProcesses("chrome.exe")
38. Call WaitForProcessesToTerminate("chrome.exe", maxWaitTime)
40. ' ============================================================================
41. ' 步骤 2: 结束所有 Cursor 进程
42. ' ============================================================================
43. Call KillAllProcesses("Cursor.exe")
44. Call WaitForProcessesToTerminate("Cursor.exe", maxWaitTime)
46. ' ============================================================================
47. ' 步骤 3: 启动便携版 Chrome
48. ' ============================================================================
49. If Not objFSO.FileExists(chromePath) Then
50.     WScript.Quit 1
51. End If
52. objShell.Run """" & chromePath & """ " & chromeArgs, 1, False
53. WScript.Sleep 3000
55. ' ============================================================================
56. ' 步骤 4: 验证 Chrome CDP 连接（可选）
57. ' ============================================================================
58. Call VerifyChromeCDP()
60. ' ============================================================================
61. ' 步骤 5: 启动 Cursor
62. ' ============================================================================
63. cursorPath = FindCursorPath()
64. If cursorPath <> "" Then
65.     objShell.Run """" & cursorPath & """ """ & currentDir & """", 1, False
66.     WScript.Sleep 1000
67. End If
69. ' 清理资源
70. Set objWMI = Nothing
71. Set objShell = Nothing
72. Set objFSO = Nothing
74. WScript.Quit 0
76. ' ============================================================================
77. ' 函数: 结束指定名称的所有进程
78. ' 参数: processName - 进程名称（如 "chrome.exe"）
79. ' 返回: 结束的进程数量
80. ' ============================================================================
81. Function KillAllProcesses(processName)
82.     Dim colProcessList, objItem
83.     Dim killedCount
84.    
85.     killedCount = 0
86.     Set colProcessList = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & processName & "'")
87.    
88.     If colProcessList.Count > 0 Then
89.         For Each objItem In colProcessList
90.             On Error Resume Next
91.             objItem.Terminate()
92.             If Err.Number = 0 Then
93.                 killedCount = killedCount + 1
94.             End If
95.             On Error Goto 0
96.         Next
97.     End If
98.    
99.     Set colProcessList = Nothing
100.     KillAllProcesses = killedCount
101. End Function
103. ' ============================================================================
104. ' 函数: 等待指定名称的所有进程结束
105. ' 参数: processName - 进程名称（如 "chrome.exe"）
106. ' 参数: maxWaitMs - 最大等待时间（毫秒）
107. ' ============================================================================
108. Function WaitForProcessesToTerminate(processName, maxWaitMs)
109.     Dim elapsedTime, colProcessList
110.    
111.     elapsedTime = 0
112.    
113.     Do While elapsedTime < maxWaitMs
114.         Set colProcessList = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & processName & "'")
115.         
116.         If colProcessList.Count = 0 Then
117.             Set colProcessList = Nothing
118.             Exit Function
119.         End If
120.         
121.         Set colProcessList = Nothing
122.         WScript.Sleep waitInterval
123.         elapsedTime = elapsedTime + waitInterval
124.     Loop
125. End Function
127. ' ============================================================================
128. ' 函数: 查找 Cursor 可执行文件路径
129. ' 返回: Cursor.exe 的完整路径，未找到则返回空字符串
130. ' ============================================================================
131. Function FindCursorPath()
132.     Dim paths(4)
133.     Dim i, testPath
134.    
135.     ' 定义可能的 Cursor 安装路径
136.     paths(0) = objShell.ExpandEnvironmentStrings("%LOCALAPPDATA%") & "\Programs\cursor\Cursor.exe"
137.     paths(1) = objShell.ExpandEnvironmentStrings("%APPDATA%") & "\Local\Programs\cursor\Cursor.exe"
138.     paths(2) = "C:\Program Files\Cursor\Cursor.exe"
139.     paths(3) = objShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\Cursor\Cursor.exe"
140.    
141.     ' 尝试从注册表获取路径
142.     On Error Resume Next
143.     testPath = objShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall\Cursor\InstallLocation")
144.     If Err.Number = 0 And testPath <> "" Then
145.         testPath = testPath & "\Cursor.exe"
146.         If objFSO.FileExists(testPath) Then
147.             FindCursorPath = testPath
148.             Exit Function
149.         End If
150.     End If
151.     On Error Goto 0
152.    
153.     ' 检查每个路径
154.     For i = 0 To UBound(paths)
155.         If objFSO.FileExists(paths(i)) Then
156.             FindCursorPath = paths(i)
157.             Exit Function
158.         End If
159.     Next
160.    
161.     FindCursorPath = ""
162. End Function
164. ' ============================================================================
165. ' 函数: 验证 Chrome CDP 连接（静默验证）
166. ' ============================================================================
167. Function VerifyChromeCDP()
168.     Dim httpObj, url
169.    
170.     On Error Resume Next
171.    
172.     Set httpObj = CreateObject("MSXML2.XMLHTTP")
173.     url = "http://localhost:9222/json/version"
174.    
175.     httpObj.Open "GET", url, False
176.     httpObj.setTimeouts 2000, 2000, 2000, 2000
177.     httpObj.Send
178.    
179.     Set httpObj = Nothing
180.     On Error Goto 0
181. End Function

复制代码

来源：程序园用户自行投稿发布，如果侵权，请联系站长删除
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！