vb.net 获取360极速浏览器的url

你可以使用以下代码获取360极速浏览器当前打开的页面URL：

' 引用 COM 组件
Imports SHDocVw

' 获取默认浏览器进程
Dim shellWindows As New ShellWindows()
Dim ieProcess As Process = Nothing

For Each ie As InternetExplorer In shellWindows
    Dim fileName As String = Path.GetFileNameWithoutExtension(ie.FullName).ToLower()
    If fileName.Equals("360se") Or fileName.Equals("360se.exe") Or fileName.Equals("360chrome") Or fileName.Equals("360chrome.exe") Then
        ieProcess = Process.GetProcessById(ie.ProcessID)
        Exit For
    End If
Next

If ieProcess IsNot Nothing Then
    ' 获取浏览器当前标签页的URL
    Dim browserUrl As String = ieProcess.MainWindowTitle
End If

其中，我们使用了 `ShellWindows` COM 组件来获取系统中所有打开的浏览器进程，然后判断是否为360极速浏览器进程，最后获取当前标签页的URL。