修改FTP Client 连接参数，ftpClient.EncryptionMode = FtpEncryptionMode.None

UTS_Core/UTSModule/FtpService.vb

@@ -1,4 +1,5 @@
-Imports FluentFTP
+Imports System.Text
+Imports FluentFTP
 
 Namespace UTSModule
     Public Class FtpService
@@ -41,7 +42,10 @@ Namespace UTSModule
             Dim result As Boolean
             Using ftpClient As FtpClient = New FtpClient(_ftpHost, _ftpPort, _ftpUser, _ftpPwd)
                 AddHandler ftpClient.ValidateCertificate, AddressOf OnValidateCertificate
-                ftpClient.EncryptionMode = FtpEncryptionMode.Auto
+                ftpClient.EncryptionMode = FtpEncryptionMode.None
+                ftpClient.DataConnectionType = FtpDataConnectionType.PASV
+                ftpClient.Encoding = Encoding.UTF8
+
                 ftpClient.Connect()
                 ftpClient.Disconnect()
             End Using
@@ -59,7 +63,10 @@ Namespace UTSModule
             Dim result As Boolean
             Using ftpClient As FtpClient = New FtpClient(_ftpHost, _ftpPort, _ftpUser, _ftpPwd)
                 AddHandler ftpClient.ValidateCertificate, AddressOf OnValidateCertificate
-                ftpClient.EncryptionMode = FtpEncryptionMode.Auto
+                ftpClient.EncryptionMode = FtpEncryptionMode.None
+                ftpClient.DataConnectionType = FtpDataConnectionType.PASV
+                ftpClient.Encoding = Encoding.UTF8
+
                 ftpClient.Connect()
 
                 result = ftpClient.FileExists(path)
@@ -78,7 +85,10 @@ Namespace UTSModule
         Public Sub FtpUpload(remotePath As String, loadPath As String)
             Using ftpClient As FtpClient = New FtpClient(_ftpHost, _ftpPort, _ftpUser, _ftpPwd)
                 AddHandler ftpClient.ValidateCertificate, AddressOf OnValidateCertificate
-                ftpClient.EncryptionMode = FtpEncryptionMode.Auto
+                ftpClient.EncryptionMode = FtpEncryptionMode.None
+                ftpClient.DataConnectionType = FtpDataConnectionType.PASV
+                ftpClient.Encoding = Encoding.UTF8
+
                 ftpClient.Connect()
                 ftpClient.UploadFile(loadPath, remotePath, FtpRemoteExists.Overwrite, True)
                 ftpClient.Disconnect()
@@ -93,7 +103,10 @@ Namespace UTSModule
         Public Sub FtpDownload(remotePath As String, loadPath As String)
             Using ftpClient As FtpClient = New FtpClient(_ftpHost, _ftpPort, _ftpUser, _ftpPwd)
                 AddHandler ftpClient.ValidateCertificate, AddressOf OnValidateCertificate
-                ftpClient.EncryptionMode = FtpEncryptionMode.Auto
+                ftpClient.EncryptionMode = FtpEncryptionMode.None
+                ftpClient.DataConnectionType = FtpDataConnectionType.PASV
+                ftpClient.Encoding = Encoding.UTF8
+
                 ftpClient.Connect()
                 ftpClient.DownloadFile(loadPath, remotePath)
                 ftpClient.Disconnect()

UTS_Core/UTSModule/UtsFtp.vb

@@ -1,4 +1,5 @@
-Imports System.Threading
+Imports System.Text
+Imports System.Threading
 Imports FluentFTP
 
 Namespace UTSModule
@@ -76,7 +77,9 @@ Namespace UTSModule
             Dim result As Boolean
             Using ftpClient As FtpClient = New FtpClient(_ftpHost, _ftpPort, _ftpUser, _ftpPwd)
                 AddHandler ftpClient.ValidateCertificate, AddressOf OnValidateCertificate
-                ftpClient.EncryptionMode = FtpEncryptionMode.Auto
+                ftpClient.EncryptionMode = FtpEncryptionMode.None
+                ftpClient.DataConnectionType = FtpDataConnectionType.PASV
+                ftpClient.Encoding = Encoding.UTF8
                 ftpClient.Connect()
 
                 result = ftpClient.FileExists(path)
@@ -95,7 +98,9 @@ Namespace UTSModule
         Public Sub CreateDir(remoteDir As String, Optional force As Boolean = False)
             Using ftpClient As FtpClient = New FtpClient(_ftpHost, _ftpPort, _ftpUser, _ftpPwd)
                 AddHandler ftpClient.ValidateCertificate, AddressOf OnValidateCertificate
-                ftpClient.EncryptionMode = FtpEncryptionMode.Auto
+                ftpClient.EncryptionMode = FtpEncryptionMode.None
+                ftpClient.DataConnectionType = FtpDataConnectionType.PASV
+                ftpClient.Encoding = Encoding.UTF8
                 ftpClient.Connect()
                 ftpClient.CreateDirectory(remoteDir, force)
                 ftpClient.Disconnect()
@@ -110,7 +115,9 @@ Namespace UTSModule
         Public Sub FtpUpload(remotePath As String, loadPath As String)
             Using ftpClient As FtpClient = New FtpClient(_ftpHost, _ftpPort, _ftpUser, _ftpPwd)
                 AddHandler ftpClient.ValidateCertificate, AddressOf OnValidateCertificate
-                ftpClient.EncryptionMode = FtpEncryptionMode.Auto
+                ftpClient.EncryptionMode = FtpEncryptionMode.None
+                ftpClient.DataConnectionType = FtpDataConnectionType.PASV
+                ftpClient.Encoding = Encoding.UTF8
                 ftpClient.Connect()
                 ftpClient.UploadFile(loadPath, remotePath, FtpRemoteExists.Overwrite, True)
                 ftpClient.Disconnect()
@@ -125,7 +132,10 @@ Namespace UTSModule
         Public Sub FtpDownload(remotePath As String, loadPath As String)
             Using ftpClient As FtpClient = New FtpClient(_ftpHost, _ftpPort, _ftpUser, _ftpPwd)
                 AddHandler ftpClient.ValidateCertificate, AddressOf OnValidateCertificate
-                ftpClient.EncryptionMode = FtpEncryptionMode.Auto
+                ftpClient.EncryptionMode = FtpEncryptionMode.None
+                ftpClient.DataConnectionType = FtpDataConnectionType.PASV
+                ftpClient.Encoding = Encoding.UTF8
+
                 ftpClient.Connect()
                 ftpClient.DownloadFile(loadPath, remotePath)
                 ftpClient.Disconnect()