比较 IP 字符串不起作用

Question

让我先从程序试图完成的任务开始，然后再开始解决我的问题。我正在开发一个程序，该程序每 5 到 10 秒（尚未实现）检查一次，看看你的 VPN 是否已经放弃了我这样做的方式，让用户在启动 VPN 之前输入 IP，然后他们启动VPN，它会检查它是否发生变化。我的问题是，当我比较两个字符串时，即使它们相同，程序仍然存在它们是不同的。

Imports System.Net
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LbIP.Text = GetIP()
    End Sub

    Function GetIP() As String
        Dim IP As New WebClient
        Return IP.DownloadString("http://icanhazip.com/")
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If GetIP() = TextBox1.Text Then
            Label1.Text = "VPN DROPPED"
        Else
            Label1.Text = "Your Good"
        End If
    End Sub
End Class

Answer 1

DownloadString 将返回字符串末尾带有 \n 的 IP 地址。您需要删除它并进行比较。

示例解决方法

  If GetIP().Replace("\n","") = TextBox1.Text Then
            Label1.Text = "VPN DROPPED"
        Else
            Label1.Text = "Your Good"
 End If