我在 BeforeOpenProject 事件中加入如下代码,问题关键是在我的电脑是可以运行的,发布出去后在WIN10和XP的电脑就出问题了,win7的运行正常(出现msg信息后直接退出)。我的电脑本身是WIN10的
If Network.Ping("192.168.0.230",1000) = True Then
Dim s As String = "\\192.168.0.230\fxfile791123$\系统更新包\sys.txt"
If FileSys.FileExists(s) = False Then
e.HideSplashForm = True
MessageBox.show("系统更新中,请稍后再重新打开.")
e.Cancel = True
System.Diagnostics.Process.GetCurrentProcess().Kill
Return
End If
End If