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

请看以下代码：

Dim ipFile As String = ProjectPath & "ip.txt"
            If Filesys.FileExists(ipFile) Then
            Dim ip As String = FileSys.ReadAllText(ipFile)
 
            If Network.Ping(ip,1000) = True  Then
     end if
End If

 

这句 If Network.Ping(ip,1000) = True  Then 中的IP 要怎么写才能把IP的值用上啊。试了好久都不行。多谢！

怎么没人理我。

 

 

代码如下：

Dim ipFile As String = ProjectPath & "ip.txt"
If Filesys.FileExists(ipFile) Then
    Dim ip As String = FileSys.ReadAllText(ipFile)
    Output.show(ip)
    If Network.Ping(ip,1000) = True  Then
        MessageBox.show("OK!")
    End If
    End If
ip的值为：10.8.51.94 。  如果我用：

If Network.Ping(“10.8.51.94”,1000) = True  Then
        MessageBox.show("OK!")
    End If

没问题。但用上面的代码会出错。

 

此主题相关图片如下：voo36y}mm~o4s}{@6763}dp.jpg

试了两天了，都不行。请帮忙看看。多谢！

请看附件！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:ip.txt

我已经把ip 和 ipFile 都output.show 出来的，值都是对了，但就不不行。晕死啊！

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

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

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