Основная связь была закрыта. Сервер совершил нарушение протокола vb.net
Мне нужна помощь, нет, я не могу найти решение моей проблемы.
Я пытаюсь создать каталог на FTP-сервере:
Dim request As FtpWebRequest = FtpWebRequest.Create("ftp:\\*******")
Dim creds As NetworkCredential = New NetworkCredential("****", "*****")
request.Credentials = creds
request.KeepAlive = True
request.EnableSsl = True
request.UsePassive = True
request.Timeout = 10000000
request.ReadWriteTimeout = 10000000
ServicePointManager.ServerCertificateValidationCallback = New System.Net.Security.RemoteCertificateValidationCallback(AddressOf customCertValidation)
Dim resp As FtpWebResponse = Nothing
request.Method = WebRequestMethods.Ftp.ListDirectoryDetails
Using resp
resp = request.GetResponse()
Dim sr As StreamReader = New StreamReader(resp.GetResponseStream(), System.Text.Encoding.ASCII)
Dim s As String = sr.ReadToEnd()
If Not s.Contains("newfolder") Then
request = FtpWebRequest.Create("ftp:\\********")
request.Credentials = creds
request.Method = WebRequestMethods.Ftp.MakeDirectory
resp = request.GetResponse()
Console.WriteLine(resp.StatusCode & "Created")
Else
Console.WriteLine("Directory already exists")
End If
End Using
Catch ex As Exception
Console.WriteLine(ex.ToString)
End Try
Функция для customCertValidation
Function customCertValidation(ByVal sender As Object,
ByVal cert As X509Certificate,
ByVal chain As X509Chain,
ByVal errors As SslPolicyErrors) As Boolean
Return True
End Function
Я получаю следующую ошибку:
Я перепробовал все в Интернете, но ничего не работает, может кто-нибудь, пожалуйста, скажите мне, что не так. Благодарю вас