主题：哎，基础不好，今天试好久都不行，要如何写啊？

代码没有错，我测试也是可以的。实在不行，你做一个完整的例子打包发上来。

搞了三天，终于发现原因，但不知道怎么解决。这是一个很有意思的问题，请看以下代码：

Dim ipFile As String = ProjectPath & "ip.txt"
If Filesys.FileExists(ipFile) Then
    Dim ip As String = FileSys.ReadAllText(ipFile)
Dim a As String = ip
Dim b As String = "10.8.51.94"
Output.show(a)
Output.show(b)
If Network.Ping(b,1000) = True  Then
        MessageBox.show("OK!")
    End If

    End If

这里代码是没有问题的，不会出错，请看下面output.show 的结果：

10.8.51.94

10.8.51.94

多了一个空行。就是这个原因。真晕啊。就这样搞了三天。

1、去修改你的ip.txt文件，删除空行

2、或者用代码

Dim ipFile As String = ProjectPath & "ip.txt"
If Filesys.FileExists(ipFile) Then
    Dim ip As String = FileSys.ReadAllText(ipFile)
    Dim a As String = ip.Replace(chr(13), "").Replace(chr(10), "").Trim
    Dim b As String = "10.8.51.94"
    Output.show(a)
    Output.show(b)
    If Network.Ping(b,1000) = True  Then
        MessageBox.show("OK!")
    End If
End If