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

呃，测试完全没有问题啊。

你看你对应路径下的ip.txt文件是不是有问题啊 Dim ipFile As String = ProjectPath & "ip.txt"

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

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