我在“BeforeConnectOuterDataSource”事件中定义了以下代码，然后在“AfterOpenProject”中定义打开登录界面的窗口代码，现在的问题是，如果计算机可以连接上外网，则打开登录界面是正常的，如果切断外网，则打开登录窗口是非常慢的，慢到让人以为这个程序没有打开，然后重复去打开，而导致卡死。我把这段代码贴出来，是不是问题出在这里面，请老师指点。
'判断配置文件是否存在
If FileSys.FileExists("" & ProjectPath & "project\conn.txt") Then '如果指定的文件存在
'定义IP地址变量
Dim ip As String = FileSys.ReadAllText("" & ProjectPath & "project\conn.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
Return
Else
'下载服务器加密文件并解密
Network.DownloadFile("http://" & ip & "/sys/abc.txt","" & ProjectPath & "project\abc.txt")
DecryptFile("" & ProjectPath & "project\abc.txt", "" & ProjectPath & "project\abc1.txt", "abc")
'创建数据连接源
Dim sjy As String = FileSys.ReadAllText("" & ProjectPath & "project\abc1.txt")
If e.name = "App" Then
e.ConnectionString = sjy
End If
End If
Else
'定义系统库的缺省数据源
If e.name = "App" Then
e.C & e.ProjectPath & "abc.ini;Persist Security Info=False"
End If
End If
加好友 
发短信
Post By：2017/12/8 9:07:00 [显示全部帖子]
