失败的简单 VB [关闭]答案

【问题标题】：Failing simple VB [closed]失败的简单 VB [关闭]
【发布时间】：2023-01-23 22:02:27
【问题描述】：

我正在尝试制作一个简单的网络 ping 应用程序，我可以在其中查看某些特定网络基础设施的状态。（尝试了很多免费软件，但没有一个小到足以适应我繁忙的屏幕）

我对编码完全陌生，所以我可能只是犯了一个愚蠢的错误，所以请让我知道我在这里遗漏了什么以及为什么这不起作用。

试图获得一个每 5 秒刷新一次并检查 2 个 IP 地址以进行 ping 的 ping 引擎。

【问题讨论】：

【解决方案1】：

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    Private Const V As String = "..."
    Dim stopclick As Boolean = False
    Private Sub calcbutton_Click(sender As Object, e As EventArgs) Handles calcbutton.Click
        calcbutton.Enabled = False
        btnStop.Enabled = True
        BackgroundWorker1.RunWorkerAsync()

    End Sub
    Private Sub BtnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
        stopclick = True
    End Sub
    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        stopclick = False
        While Not stopclick
            Threading.Thread.Sleep(5000)
            If (My.Computer.Network.Ping("10.0.0.01")) Then
                pingnemo.BackColor = Color.Cyan
                pingnemo.Text = "Nemo pinged successfully."
            Else
                pingnemo.BackColor = Color.Red
                pingnemo.Text = "Nemo is OFF-LINE!"
            End If
            If (My.Computer.Network.Ping("10.0.0.2")) Then
                pingorion.BackColor = Color.Cyan
                pingorion.Text = "Orion pinged successfully."
            Else
                pingorion.BackColor = Color.Red
                pingorion.Text = "Orion is OFF-LINE!"
            End If
        End While
    End Sub
    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        calcbutton.Enabled = True
        btnStop.Enabled = False
    End Sub

【讨论】：

请阅读How to Answer 和edit 你的答案，以解释为什么这段代码实际上会解决手头的问题。永远记住，您不仅在解决问题，而且还在教育 OP 和这篇文章的任何未来读者。