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

请看以下代码：

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的值用上啊。试了好久都不行。多谢！

怎么没人理我。

 

 

 这样写没有问题啊。如果你的ip.txt在项目下存在的话，就正常运行啊。

代码如下：

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.text文件发上来看看

呵呵

请看附件！

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

点击浏览该文件:ip.txt

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

 

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

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

是不是有空格和非法字符  Ip.TRIM()  一下看看