咨询“由于网络连接不可用，无法使用 ping 命令。”的问题(已解决) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在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

在本机连上了网络，运行正常，当没有网络的时候，提示以下运行错误信息：

dvubb 此主题相关图片如下：qq图片20150730063355.png

请教做一个判断本机是否有网络的判断，如果有网络就继续，无网络就绕开ping代码？

[此贴子已经被作者于2015/9/6 16:47:46编辑过]

主题：咨询“由于网络连接不可用，无法使用 ping 命令。”的问题(已解决)