比较相同的字符串返回 false

Question

我想编写一个检查我的 ip 的函数。如果我的 ip 是22.161.121.238 或检查给了Exception，它会休眠当前线程并再次开始检查。

代码如下：

Private Sub CheckIp()
    Dim ip As String
    Dim mine As String = "22.161.121.238"
    Try
        Do

        Using wc As New Net.WebClient

            ip = System.Text.Encoding.UTF8.GetString(wc.DownloadData("http://tools.feron.it/php/ip.php"))
        End Using


        If String.Equals(ip, mine) Then
            MessageBox.Show("2")
            Threading.Thread.Sleep(10000)
            Else
                MessageBox.Show("@" & ip & "@ is not equal to @" & mine & "@")
            End If
        End If

    Loop While ip = "22.161.121.238"


Catch ex As Exception
    Threading.Thread.Sleep(10000)
    CheckIp()

End Try

End Sub

我不知道为什么它不显示来自MessageBox 的“2”。即使ip 和mine 相同，它也不会启动Show 方法。你能告诉我为什么吗？

编辑

启动按钮后我得到的是（我添加了@ 以查看字符串的开始位置）：

Answer 1

简单的答案是您的 2 个字符串不相同。它们可能看起来相同，但您从网络资源返回的字符串在字符串开头包含 non visible Unicode Character 'ZERO WIDTH NO-BREAK SPACE' (U+FEFF)（我检查过）。

要确认，请检查返回字符串的各个字符的数值，特别是第一个字符。

作为一种解决方法，您可以使用@henry 的答案，它使用不同的比较字符串的方式，这将忽略u+feff 字符。

或者，您可以将其显式删除以进行相等性检查：

If String.Equals(ip.Replace(ChrW(&HFEFF), String.Empty), mine) Then

但是，如果您是 PHP 页面的作者，您可能希望对其进行修复，使其首先不返回 u+feff 字符。

Answer 2

试试这个函数，你原来的函数中有一些不正确的 if/then 逻辑。

Private Sub CheckIp()
Dim ip As String
Dim mine As String = "22.161.121.238"
Try
    Do

    Using wc As New Net.WebClient

        ip = System.Text.Encoding.UTF8.GetString(wc.DownloadData("http://tools.feron.it/php/ip.php"))
    End Using


    If string.Compare(ip, mine) = 0 Then
        MessageBox.Show("2")
        Threading.Thread.Sleep(10000)
    Else
            MessageBox.Show("@" & ip & "@ is not equal to @" & mine & "@")
    End If


Loop While ip.Contains("22.161.121.238") 


Catch ex As Exception
Threading.Thread.Sleep(10000)
CheckIp()

End Try

End Sub