當我嘗試在VB中打開一個URL時，出現錯誤當我嘗試在VB中打開一個URL時出現錯誤

Question

我收到「System.dll中發生的類型爲」System.ComponentModel.Win32Exception「的第一個機會異常錯誤。我嘗試了多種打開網站的方式，但都返回了這個錯誤。我現在使用的代碼是這樣的

Public Class Revise 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Bitesize.Click 
     Dim bitesize As String = "http://www.bbc.co.uk/bitesize/standard/" 
     Process.Start(bitesize) 
    End Sub 
End Class 

我很新的節目，很抱歉，如果這是一個愚蠢的錯誤，我所做的。

錯誤的詳細信息：

System.ComponentModel.Win32Exception was unhandled 
    ErrorCode=-2147467259 
    HResult=-2147467259 
    Message=Unknown error (0x80041002) 
    NativeErrorCode=-2147217406 
    Source=System 
    StackTrace: 
     at System.Diagnostics.Process.StartWithShellExecuteEx(ProcessStartInfo startInfo) 
     at System.Diagnostics.Process.Start() 
     at System.Diagnostics.Process.Start(ProcessStartInfo startInfo) 
     at System.Diagnostics.Process.Start(String fileName) 
     at WindowsApplication1.Revise.Button1_Click(Object sender, EventArgs e) in C:\Users\Lewis\Documents\Visual Studio 11\Projects\Study Time!\Study Time!\Revise.vb:line 7 
     at System.Windows.Forms.Control.OnClick(EventArgs e) 
     at System.Windows.Forms.Button.OnClick(EventArgs e) 
     at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) 
     at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) 
     at System.Windows.Forms.Control.WndProc(Message& m) 
     at System.Windows.Forms.ButtonBase.WndProc(Message& m) 
     at System.Windows.Forms.Button.WndProc(Message& m) 
     at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) 
     at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) 
     at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) 
     at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) 
     at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData) 
     at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) 
     at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) 
     at System.Windows.Forms.Application.Run(ApplicationContext context) 
     at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() 
     at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() 
     at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) 
     at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81 
     at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args) 
     at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args) 
     at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() 
     at System.Threading.ThreadHelper.ThreadStart_Context(Object state) 
     at System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx) 
     at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx) 
     at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) 
     at System.Threading.ThreadHelper.ThreadStart() 
    InnerException: 

Answer 1

的Process.Start實際執行的操作系統內的程序。您嘗試訪問的網址不是操作系統上的程序名稱，因此它失敗。如果您想使用此網址打開外部瀏覽器實例，則需要將該程序作爲一個進程打開。

Private Sub Button1_Click(ByVal sender as Object, ByVal e as EventArgs) Handles Bitesize.Click 
    Dim bitesize as String = "http://www.bbc.co.uk/bitesize/standard/" 
    Dim programName as String = "iexplore.exe" 

    Process.Start(programName & " " & bitesize) 
End Sub 

這應該實現你要找的效果，但在WinForms應用程序會更有意義，使使用WebBrowser控件並填充按鈕點擊其網址屬性。

編輯：
爲開拓系統的默認瀏覽器的URL，你可以簡單地擁有你的程序名設置爲「啓動」。

Dim programName as String = "start" 

這是Windows中的一個捷徑，它將以默認瀏覽器自動打開一個URL。

Answer 2

該代碼（因爲它聽起來像你已經知道）將打開該網站與您的計算機的默認網頁瀏覽器。你的代碼是正確的（但是，方法名應該與它正在監聽的控件相匹配，所以當你有一個包含大量事件處理程序的表單時，它會更容易閱讀）。

我的猜測（沒有詳細信息 - 未來，嘗試發佈異常堆棧跟蹤），將是您的默認Web瀏覽器無法確定。試試這個：打開控制面板\程序\默認程序\設置關聯..並找到HTTP協議（在底部，所有文件擴展名關聯後）並重置關聯哪個應用程序。其次，這是另一個很好的學習機會，當你有代碼出錯的地方（例如啓動另一個進程）時，將代碼包裝在Try/Catch塊中是一個非常好的主意。那麼如果出現問題，你可以處理它，而不是崩潰你的應用程序。

Try 
    Dim bitesize As String = "http://www.bbc.co.uk/bitesize/standard/" 
    Process.Start(bitesize) 
Catch Ex As Exception 
    MessageBox.Show(Ex.Message) 
End Try 

MSDN的System.Diagnostic.Process.Start http://msdn.microsoft.com/en-us/library/53ezey2s.aspx

如果你仍然有問題，張貼堆棧跟蹤，可以幫助照亮什麼錯多一點光。