主题：怎么验证ftp服务器是否连接成功

'以下代码放在BeforeOpenProject事件中

Try
    Dim Client As System.Net.Sockets.Socket = New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
    Client.Connect("服务器IP或者域名", "FTP或者sql server端口" )
    Client.Close()

Catch Ex As Exception
    e.HideSplashForm = True
    MessageBox.Show("连接不到服务器,请检查您的网络连接!","提示",MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End Try