- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 咨询“由于网络连接不可用，无法使用 ping 命令。”的问题(已解决) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72420)
-- 发布时间：2015/7/30 6:44:00
-- 咨询“由于网络连接不可用，无法使用 ping 命令。”的问题(已解决)
我在BeforeConnectOuterDataSource里写了以下代码：
\'定义IP地址变量
Dim ip As String = FileSys.ReadAllText("C:\\inetpub\\wwwroot\\Appip.txt")
\'检测IP连通
If Network.Ping(ip,1000) = False Then \'如果无法接通
e.HideSplashForm = True
Messagebox.Show("您的计算机与网络失联了,请检查后重新再试!","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
system.diagnostics.process.GetProcessesByName("foxtable")(0).kill
Else
\'下载服务器加密文件并解密
Network.DownloadFile("http://" & ip & "/Appdb.txt","C:\\inetpub\\wwwroot\\Appdb.txt")
DecryptFile("C:\\inetpub\\wwwroot\\Appdb.txt", "C:\\inetpub\\wwwroot\\Appdb1.txt", "Appdb")
\'创建数据连接源
Dim sjy2 As String = FileSys.ReadAllText("C:\\inetpub\\wwwroot\\Appdb1.txt")
If e.name = "Appdb" Then
e.ConnectionString = sjy2
End If
\'删除解密文件
If FileSys.FileExists("C:\\inetpub\\wwwroot\\Appdb1.txt") Then \'如果指定的文件存在
FileSys.DeleteFile("C:\\inetpub\\wwwroot\\Appdb1.txt",2,2) \'则彻底删除之
End If
End If
End If
在本机连上了网络，运行正常，当没有网络的时候，提示以下运行错误信息：
此主题相关图片如下：qq图片20150730063355.png
请教做一个判断本机是否有网络的判断，如果有网络就继续，无网络就绕开ping代码？
[此贴子已经被作者于2015/9/6 16:47:46编辑过]
-- 发布时间：2015/7/30 10:13:00
--
看完 http://www.foxtable.com/help/topics/2709.htm