zoukankan      html  css  js  c++  java
  • Code: Open URL by a New Browser(转)

    C#

    private void OpenUrl(string url)
    {
        
    string browser = GetDefaultBrowser();
        
    if ( browser.Length > 0 )
        
    {
            ProcessStartInfo psi 
    = new ProcessStartInfo();
            psi.UseShellExecute 
    = false;
            psi.Arguments
    = url;
            psi.FileName
    = browser;
            System.Diagnostics.Process.Start(psi);
        }

        
    else
        
    {
            System.Diagnostics.Process.Start(url);
        }

    }


    private string GetDefaultBrowser()
    {
        
    string browser = String.Empty;
        RegistryKey key 
    = null;
        
    try
        
    {
            key 
    = Registry.ClassesRoot.OpenSubKey(@"HTTP\shell\open\command"false);
            browser 
    = key.GetValue(null).ToString().ToLower().Replace("\"""");
            if !browser.EndsWith(".exe") )
            
    {
                browser 
    = browser.Substring(0, browser.LastIndexOf(".exe") + 4);
            }

        }

        
    catch
        
    {
            
    if ( key != null )
            
    {
                key.Close();
            }

        }

       
    return browser;
    }


    VB.NET

    Private Sub OpenUrl( ByRef url As String )
       
    Dim browser As String = GetDefaultBrowser()
        
    If browser.Length > 0 Then
           
    Dim psi As ProcessStartInfo = New ProcessStartInfo
            psi.UseShellExecute 
    = False
            psi.Arguments
    = url
            psi.FileName 
    = browser
            System.Diagnostics.Process.Start(psi)
        
    Else
            System.Diagnostics.Process.Start(url)
        
    End If
    End Sub


    Private Function GetDefaultBrowser()
        
    Dim browser As String = String.Empty
        
    Dim key As RegistryKey
        
    Try
            key 
    = Registry.ClassesRoot.OpenSubKey("HTTP\shell\open\command"False)
            browser 
    = key.GetValue(Nothing).ToString().ToLower().Replace("""""")
            
    If Not browser.EndsWith(".exe"Then
                browser 
    = browser.Substring(0, browser.LastIndexOf(".exe"+ 4)
            
    End If
        
    Catch ex As Exception
            
    If Not key Is Nothing Then
                key.Close()
            
    End If
        
    End Try
        GetDefaultBrowser 
    = browser
    End Function
  • 相关阅读:
    A Node Influence Based Label Propagation Algorithm for Community detection in networks 文章算法实现的疑问
    Fast Newman-FN算法以及模块度定义介绍
    Label Propagation Algorithm LPA 标签传播算法解析及matlab代码实现
    设计一个smartnic
    Intel GEN11 GPU
    Intel GEN9 GPU
    Shared Virtual Memory (SVM) Functions
    connect via ssh to virtualbox guest vm without knowing ip address
    smartnic
    技术精品翻译
  • 原文地址:https://www.cnblogs.com/levin/p/575014.html
Copyright © 2011-2022 走看看