私のウェブブラウザはhttpsリンクでのみ動作しますか？

Question

私はVisual Studio 2015 Community EditionとVisual Basicを使って簡単なWebブラウザを作っています。私は以下のコードを追加しました。私のブラウザは動作しますが、私の問題はHTTPSプロトコルリンクでしか動作しないように見えることです。これはhttpが自動的にエラーをスローしてエラーハンドラが実行され、httpsプレフィックスでウェブサイトを再試行するためです。しかし、私はそのエラーが何であるか、それを修正する方法がわからない...助けることができる？

CODE：ちょうど "公共のサブGoButton_clicked" 後のビットに焦点を当て、最初のビットを心配しないでください

 
Public Class Form1 
    'One button for go. Other for settings -incognito, history, homepage????
 

'Window button actions 

Private Sub Green_Click(sender As Object, e As EventArgs) Handles Green.Click 
    Me.WindowState = FormWindowState.Maximized 
End Sub 

Private Sub Yellow_Click(sender As Object, e As EventArgs) Handles Yellow.Click 
    Me.WindowState = FormWindowState.Minimized 
End Sub 

Private Sub Red_Click(sender As Object, e As EventArgs) Handles Red.Click 
    Me.Close() 
End Sub 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
    TitleText.Parent = Grey 
    TitleText.BackColor = Color.Transparent 

    TitleTextDivider.Parent = Grey 
    TitleTextDivider.BackColor = Color.Transparent 

    VersionText.Parent = Grey 
    VersionText.BackColor = Color.Transparent 
End Sub 

Public Sub GoButton_Click(sender As Object, e As EventArgs) Handles GoButton.Click 
    'Add checking blacklist and adding link to history file here later. Use separate subs and call them here for better organisation. 

    Dim Input As String = TextBox1.Text 
    'Prefix with http and www 
    Input = "http://www." + Input 
    'Convert to Uri 
    Dim Url As Uri = New Uri(Input) 
    'Set as url 
    WebBrowser1.Url = Url 
    'Refresh 
    WebBrowser1.Refresh() 
    'On error, retry with https 
    On Error GoTo HTTPS_Handler 
HTTPS_Handler: 
    'New String URL, replacing http with https 
    Dim HTTPS_Input As String = Replace(Input, "http", "https") 
    'All we did last time, again... 
    Dim NewUrl As Uri = New Uri(HTTPS_Input) 
    WebBrowser1.Url = NewUrl 
    WebBrowser1.Refresh() 
End Sub 
End Class 

...あなたは、古いVB6のスタイルを使用しようとして

Answer 1

エラー処理。上記のコメントが示唆したように、VB.Netでは新しいTry \ Catch構文を使用する方が良いでしょう。

あなたはそれがそうのようにそれを書き続けたい場合は...

Public Sub GoButton_Click(sender As Object, e As EventArgs) Handles GoButton.Click 
    On Error GoTo HTTPS_Handler 

    Dim Input As String = TextBox1.Text 
    Input = "http://www." + Input 

    Dim Url As Uri = New Uri(Input) 
    WebBrowser1.Url = Url 
    WebBrowser1.Refresh() 

    Exit Sub 

HTTPS_Handle: 
    Dim HTTPS_Input As String = Replace(Input, "http", "https") 
    Dim NewUrl As Uri = New Uri(HTTPS_Input) 
    WebBrowser1.Url = NewUrl 
    WebBrowser1.Refresh() 
End Sub 

はエラーがない場合はエラー処理コードに入ってからそれを維持するために「終了サブ」に注意してください。あなたが間違っているわけではないかもしれませんが、無意識のうちに無計画にページをリフレッシュするように、現状どおりにやっているでしょうか。 Googleはある

Plusはエラー処理Err.DescriptionとErr.Numberに