1

要求された Web サイトが開かない (またはインターネットが機能していない) 場合に、ユーザーにメッセージを表示しようとしています。伝えたいメッセージは

「サイトが機能していません。管理者に連絡してください。」

これどうやってするの？これが私が持っているものです

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("google.com")

        Dim connectn As Boolean

        If connectn = False Then

            MsgBox("site not working please contact the developer")

        End If
    End Sub

    Private Sub Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Back.Click
        WebBrowser1.GoBack()

    End Sub

    Private Sub Forward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Forward.Click
        WebBrowser1.GoForward()
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        WebBrowser1.Stop()
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        WebBrowser1.GoHome()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        WebBrowser1.Refresh()
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Application.Exit()

    End Sub

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

    End Sub

    Private Sub WebBrowser1_DocumentCompleted_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

End Class
4

1 に答える 1

-2

DocumentCompleted イベント ハンドラーは、必ずしも Web ページ全体ではなく、フレームが完了したときに発生するため、使用しないことをお勧めします。代わりに次を使用します。

 With WebBrowser1

 .Navigate("google.com")

    Do Until Not (.IsBusy)
        Application.DoEvents()
    Loop

    Do Until .ReadyState = WebBrowserReadyState.Complete
        Application.DoEvents()
    Loop


End With

それ以外に、特定のサイトの場合は、正しい URL を見つけて、Web ブラウザが完全にロードされたときに「endstate」URL を比較するだけです。任意の Web サイトで一般化する場合は、ナビゲーション エラーのページ イベント処理に関するこのリンクからほとんどの情報を見つけることができます。

于 2013-05-27T20:20:22.493 に答える