Сбой FTP-соединения после обновления Windows 10 KB4517389

Question

После обновления окна 10 KB4517389 приведенный ниже код больше не работает. Любая идея, почему?

Private Sub FTPDownloadFile(ByVal downloadString As String, ByVal FtpURI As String, ByVal ftpusername As String, ByVal ftppassword As String)
    Try
        Dim request As FtpWebRequest = DirectCast(WebRequest.Create(New Uri(FtpURI)), FtpWebRequest)
        request.Method = WebRequestMethods.Ftp.DownloadFile
        request.EnableSsl = True
        request.Credentials = New Net.NetworkCredential(ftpusername, ftppassword)
        request.UsePassive = True

        Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)

        Dim inputstream1 As IO.Stream = response.GetResponseStream()
        Dim reader As New IO.StreamReader(inputstream1)
        TempDownload = reader.ReadToEnd
        inputstream1.Dispose()
        reader.Close()
        response.Close()

        Application.DoEvents()
        Label1.Text = "Download works"
    Catch ex As Exception
        MsgBox(ex.Message)
        Label1.Text = "Download not working"
    End Try
End Sub

---

Сбой означает отсутствие соединения. Это EMS, это ясно. Проблема заключается в сохранении обновления KB4517389, которое является обновлением для платформы для нескольких версий платформы, но 4.6. Однако программа скомпилирована с фреймворком 4.6. Кажется, мы подключились к серверу другим способом.