Code: Open URL by a New Browser

一时失言乱红尘 2021-12-17 16:17 153阅读 0赞

C\#

![None.gif][] private void  OpenUrl( string  url)  
![ExpandedBlockStart.gif][]![ContractedBlock.gif][] ![dot.gif][] \{  
![InBlock.gif][] string  browser  =  GetDefaultBrowser();  
![InBlock.gif][] if  ( browser.Length  >  0  )  
![ExpandedSubBlockStart.gif][]![ContractedSubBlock.gif][] ![dot.gif][] \{  
![InBlock.gif][] ProcessStartInfo psi  =  new  ProcessStartInfo();  
![InBlock.gif][] psi.UseShellExecute  = false ;  
![InBlock.gif][] psi.Arguments  =  url;  
![InBlock.gif][] psi.FileName  =  browser;  
![InBlock.gif][] System.Diagnostics.Process.Start(psi);  
![ExpandedSubBlockEnd.gif][] \}   
![InBlock.gif][] else   
![ExpandedSubBlockStart.gif][]![ContractedSubBlock.gif][] ![dot.gif][] \{  
![InBlock.gif][] System.Diagnostics.Process.Start(url);  
![ExpandedSubBlockEnd.gif][] \}   
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][] private  string  GetDefaultBrowser()  
![ExpandedBlockStart.gif][]![ContractedBlock.gif][] ![dot.gif][] \{  
![InBlock.gif][] string  browser  =  String.Empty;  
![InBlock.gif][] RegistryKey key  = null ;  
![InBlock.gif][] try   
![ExpandedSubBlockStart.gif][]![ContractedSubBlock.gif][] ![dot.gif][] \{  
![InBlock.gif][] key  =  Registry.ClassesRoot.OpenSubKey( @" HTTP\\shell\\open\\command " ,  false );  
![InBlock.gif][] browser  =  key.GetValue( null ).ToString().ToLower().Replace( " \\ "" ,  "" );   
![InBlock.gif][]  if  (  ! browser.EndsWith( " .exe " ) )  
![ExpandedSubBlockStart.gif][]![ContractedSubBlock.gif][] ![dot.gif][] \{  
![InBlock.gif][] browser  =  browser.Substring( 0 , browser.LastIndexOf( " .exe " )  \+  4 );  
![ExpandedSubBlockEnd.gif][] \}   
![ExpandedSubBlockEnd.gif][] \}   
![InBlock.gif][] catch   
![ExpandedSubBlockStart.gif][]![ContractedSubBlock.gif][] ![dot.gif][] \{  
![InBlock.gif][] if  ( key  != null  )  
![ExpandedSubBlockStart.gif][]![ContractedSubBlock.gif][] ![dot.gif][] \{  
![InBlock.gif][] key.Close();  
![ExpandedSubBlockEnd.gif][] \}   
![ExpandedSubBlockEnd.gif][] \}   
![InBlock.gif][] return  browser;  
![ExpandedBlockEnd.gif][]\}

VB.NET

![ExpandedBlockStart.gif][] ![ContractedBlock.gif][] Private  Sub OpenUrl() Sub OpenUrl( ByRef url As String )  
![InBlock.gif][] Dim browser As String  =  GetDefaultBrowser()  
![InBlock.gif][] If  browser.Length  > 0 Then   
![InBlock.gif][] Dim  psi  As  ProcessStartInfo  = New  ProcessStartInfo  
![InBlock.gif][] psi.UseShellExecute  = False   
![InBlock.gif][] psi.Arguments  =  url  
![InBlock.gif][] psi.FileName  =  browser  
![InBlock.gif][] System.Diagnostics.Process.Start(psi)  
![InBlock.gif][] Else   
![InBlock.gif][] System.Diagnostics.Process.Start(url)  
![InBlock.gif][] End If   
![ExpandedBlockEnd.gif][] End Sub   
![None.gif][]  
![ExpandedBlockStart.gif][]![ContractedBlock.gif][] Private Function GetDefaultBrowser() Function  GetDefaultBrowser()  
![InBlock.gif][] Dim  browser  As  String = String .Empty  
![InBlock.gif][] Dim  key  As  RegistryKey  
![InBlock.gif][] Try   
![InBlock.gif][] key  =  Registry.ClassesRoot.OpenSubKey( " HTTP\\shell\\open\\command " ,  False )  
![InBlock.gif][] browser  =  key.GetValue( Nothing ).ToString().ToLower().Replace( " "" " ,  "" )  
![InBlock.gif][] If Not  browser.EndsWith( " .exe " )  Then   
![InBlock.gif][] browser  =  browser.Substring( 0 , browser.LastIndexOf( " .exe " )  \+ 4 )  
![InBlock.gif][] End If   
![InBlock.gif][] Catch  ex  As  Exception  
![InBlock.gif][] If Not  key  Is Nothing  Then   
![InBlock.gif][] key.Close()  
![InBlock.gif][] End If   
![InBlock.gif][] End Try   
![InBlock.gif][] GetDefaultBrowser  =  browser  
![ExpandedBlockEnd.gif][] End Function

traceBack: [http://www.cnblogs.com/birdshome/archive/2005/09/11/NewBrowser.html][http_www.cnblogs.com_birdshome_archive_2005_09_11_NewBrowser.html]

转载于:https://www.cnblogs.com/hdjjun/archive/2008/06/17/1223880.html

[None.gif]: /images/20211217/6a7f8289bf174fa1aed36999a56ccb3a.png
[ExpandedBlockStart.gif]: https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif
[ContractedBlock.gif]: /images/20211217/931861fa3bfa44109e0b3efa37fc434b.png
[dot.gif]: /images/20211217/e693a20249c148638703519be634986f.png
[InBlock.gif]: /images/20211217/2653731bee524957b5e1f6af087a28ac.png
[ExpandedSubBlockStart.gif]: https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif
[ContractedSubBlock.gif]: https://www.cnblogs.com/Images/OutliningIndicators/ContractedSubBlock.gif
[ExpandedSubBlockEnd.gif]: /images/20211217/c277377cb4da48439841a0b9c7509d32.png
[ExpandedBlockEnd.gif]: /images/20211217/62c858ccba3e4e81a480dc8c5b354c4a.png
[http_www.cnblogs.com_birdshome_archive_2005_09_11_NewBrowser.html]: http://www.cnblogs.com/birdshome/archive/2005/09/11/NewBrowser.html