VBA 在 TOR 中打开链接（每个都在新选项卡中）答案

【问题标题】：VBA To Open Links in TOR (each in a new tab)VBA 在 TOR 中打开链接（每个都在新选项卡中）
【发布时间】：2021-09-05 02:18:16
【问题描述】：

您能否告知我如何在 TOR (Firefox) 中打开一系列链接（每个链接在单独的选项卡中）？

我的代码适用于例如一个实例（Excel 中一个单元格的一个链接），它在 TOR 中打开它，但如果我选择多个单元格，那么它会打开一个，然后尝试打开一个新的 TOR 实例以打开另一个（我不能在一次）。

Sub Open_Tor()
'open hyperlink in tor
Dim tor As String
'tor = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
tor = "C:\Users\Lenovo\Desktop\Tor Browser\Browser\firefox.exe"
Dim hl As Hyperlink
On Error Resume Next
For Each hl In Selection.Hyperlinks
Shell (tor & " -url-newtab " & hl.Address)
Next hl
End Sub

如果您没有 TOR，您只需更改 Chrome 的路径即可对其进行测试（Chrome 会一个接一个地打开一个链接，每个链接都在单独的选项卡中）。

谢谢

附言。由于我可以在特定服务器上执行的每日计算限制，我无法使用 Chrome，因此使用了 TOR（它会不断更改 IP）。

【问题讨论】：

试用 VPN 服务（例如 Protonmail 免费提供）并继续使用 Chrome（如果有效）。
感谢@Wheeliam，这在某种程度上是一种“解决方案”，但如果可能的话，我宁愿使用 Chrome。如果没有人能够提供帮助，我将求助于您的建议。还是谢谢

标签： excel vba firefox tor

【解决方案1】：

使用以下两个代码（粘贴在两个单独的模块中）。如果需要，可以在其中一张纸上添加一个按钮（以触发代码）并将其定向到 EventMacro 代码。请记住将alertTime 和Application.Wait 值调整为您机器的速度/规格。

Sub EventMacro()
alertTime = Now + TimeValue("00:00:08")
OpenInAnotherBrowser Sheet2.Cells(2, 2).Value 'provide a link in this location on a specific sheet (in my case Sheet2)
Application.OnTime alertTime, "EventMacro"
End Sub

现在，感谢这段代码，您将获得一个打开/关闭 Tor 浏览器的循环，其中包含位于 Sheet2.Cells(2, 2) 的特定链接！ :D

Sub OpenInAnotherBrowser(url As String)
    Dim firefoxPath As String
    Dim wshell As Object
    Dim oExec As Object
    Set wshell = CreateObject("Wscript.Shell")
   
    firefoxPath = "C:\Users\T14s\Desktop\Tor Browser\Browser\firefox.exe" 'provide path to Tor folder where firefox.exe is based
   
    If Dir(firefoxPath) = "" Then pathFireFox = "C:\Users\T14s\Desktop\Tor Browser\Browser\firefox.exe" 'provide path to Tor folder where firefox.exe is based

    Set oExec = wshell.Exec(firefoxPath & " " & url)

    Application.Wait (Now + TimeValue("0:00:05")) 'adjust based on your machine's specs
   
    oExec.Terminate
    Set wshell = Nothing
    Set oExec = Nothing

    Application.Wait (Now + TimeValue("0:00:03")) 'adjust based on your machine's specs
    Application.SendKeys "^+Q" 'quit Tor

End Sub

【讨论】：