查看ftp服务器状态,FTP服务器连接及状态--vb.net

代码有注解。看不懂请留言。

Imports System.IO

Imports System.Net

Imports System.Net.Sockets

Imports System.Threading

Imports System.Text

Public Class Form1

Private timeoutObject As ManualResetEvent

Private ssocket As Socket

Private isConn As Boolean

Public Function CheckFtp(ByVal ip As String, ByVal ftpuser As String, ByVal ftppas As String, ByRef errmsg As String, Optional port As Integer = 21, Optional timeout As Integer = 2000) As Boolean

"*********输入数据检查开始*********

If ftpuser.Trim.Length = 0 Then

errmsg = "FTP用户名不能为空,请检查设置!"

Return False

End If

If ftppas.Trim.Length = 0 Then

errmsg = "FTP密码不能为空,请检查设置!"

Return False

End If

Dim address As IPAddress = Nothing

Try

address = IPAddress.Parse(ip)

Catch ex As Excep