- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 哎，基础不好，今天试好久都不行，要如何写啊？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52982)
-- 发布时间：2014/6/26 18:18:00
-- 哎，基础不好，今天试好久都不行，要如何写啊？
请看以下代码：
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的值用上啊。试了好久都不行。多谢！
-- 发布时间：2014/6/27 11:25:00
--
怎么没人理我。
-- 发布时间：2014/6/27 11:37:00
--
这样写没有问题啊。如果你的ip.txt在项目下存在的话，就正常运行啊。
-- 发布时间：2014/6/27 11:56:00
--
代码如下：
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
试了两天了，都不行。请帮忙看看。多谢！
-- 发布时间：2014/6/27 11:58:00
--
你文件有问题。把你的ip.text文件发上来看看
-- 发布时间：2014/6/27 12:02:00
-- [求助]
呵呵
-- 发布时间：2014/6/27 12:16:00
--
请看附件！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ip.txt |
-- 发布时间：2014/6/27 14:18:00
--
呃，测试完全没有问题啊。
你看你对应路径下的ip.txt文件是不是有问题啊 Dim ipFile As String = ProjectPath & "ip.txt"
-- 发布时间：2014/6/27 15:24:00
--
我已经把ip 和 ipFile 都output.show 出来的，值都是对了，但就不不行。晕死啊！
-- 发布时间：2014/6/27 15:25:00
--
是不是有空格和非法字符 Ip.TRIM() 一下看看