主题：[原创]地址选择器

根据空格区别

一共七行

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:地址选择器.rar

Dim sr As String = ApplicationPath & "config.ini"
If FileSys.FileExists(sr) Then
Dim fl() As String = FileSys.ReadAllText(sr).Split(vbCrLf)   
      If e.Name = "数据源" Then
          
        e.ConnectionString = fl(1).Replace("链接","").Replace(":","")
    End If
UpdatePath = "http://" & fl(4) & ":" & fl(6)
End If

Dim proc As new Process
Dim x As String = System.Environment.CurrentDirectory & "\project\地址选择器.exe"
If FileSys.FileExists(x) Then
proc.File = x
proc.Start
proc.WaitForExit
End If