網址打開全方法集合: 
1.基于start.exe 
                  +++++++++++++++++++源碼1++++++++++++++++++++++ 
                  url="http://www.baidu.com"  
                  shell "start " & url,0  
                  +++++++++++++++++++源碼2++++++++++++++++++++++ 
                  url="http://www.baidu.com"  
                  shell "cmd.exe /c start " & url,0  

2.基于文件瀏覽器(explorer.exe) 
                  +++++++++++++++++++源碼+++++++++++++++++++++++ 
                  url = "http://www.baidu.com"  
                  Shell "explorer " & url, 0  

3.基于IE瀏覽器的 
                  +++++++++++++++++++源碼1(使用IE對象)++++++++++ 
                  Dim Browser As Object  
                  url="http://www.baidu.com"  

                 Set Browser = CreateObject("InternetExplorer.Application")  

                  Browser.Visible = True  

                  Browser.Navigate (url)  
                  +++++++++++++++++++源碼2++++++++++++++++++++++ 
                  Private Sub cmd1_Click()  
                  url = "http://www.baidu.com"  
                  exe = Environ("programfiles") & "\Internet Explorer\IEXPLORE.EXE"  
                  Shell exe & Space(1) & url, 1  
                  End Sub  

5.基于API的 
                 ’API函數聲明 ：  
                  +++++++++++++++++++源碼++++++++++++++++++++++ 
                     Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long,ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long  

Private Const SW_SHOWNORMAL = 1  



’函數返回值為大于32的整數表明成功執行調用，小于或等于32表明調用失’敗。  

’例如：  

Dim Result  

Result = ShellExecute(0, vbNullString, "http://www.ccw.com.cn", vbNullString, vbNullString, SW_SHOWNORMAL)  

If Result <= 32 Then  

MsgBox "調用瀏覽器錯誤！", vbOKOnly + vbCritical, "錯誤：", 0  

End If  


6.基于WebBrowser控件的 
                           +++++++++++++++++++源碼++++++++++++++++++++++ 

                          url="http://www.baidu.com" 
                          WebBrowser1.Navigate url