none
Como exibir mensagem de erro se login estiver incorreto em WebClient RRS feed

  • Pergunta

  • Olá

    Eu estou publicando arquivos online:

    Dim client As WebClient = New WebClient() Dim uri As Uri = New Uri("ftp://mysite.com/file.php") AddHandler client.UploadFileCompleted, AddressOf UploadFileCompleted AddHandler client.UploadProgressChanged, AddressOf UploadProgressCallback client.UseDefaultCredentials = False client.Credentials = New NetworkCredential(MyUser, MyPass) client.UploadFileAsync(uri, ArqTemp1)

    Private Sub UploadFileCompleted(ByVal sender As Object, ByVal e As UploadFileCompletedEventArgs)
                         MsgBox("Processo Concluído")
    End Sub

    O arquivo é publicado perfeitamente, com exceção se o usuário ou a senha estiverem incorretas, então a mensagem "Processo Concluído" é exibido igualmente. Gostaria de exibir uma mensagem como "Falha no upload. Login incorreto", mas não sei como fazer.

    Como posso fazer isso? Desde já agradeço.

    sexta-feira, 24 de novembro de 2017 11:26

Respostas

  • Boa tarde Eliseu5,

    Faça com um Try..Catch.


    Try
    Dim client As WebClient = New WebClient()
                Dim uri As Uri = New Uri("ftp://mysite.com/file.php")
                AddHandler client.UploadFileCompleted, AddressOf UploadFileCompleted
                AddHandler client.UploadProgressChanged, AddressOf UploadProgressCallback
                client.UseDefaultCredentials = False
                client.Credentials = New NetworkCredential(MyUser, MyPass)
                client.UploadFileAsync(uri, ArqTemp1)
    
    Private Sub UploadFileCompleted(ByVal sender As Object, ByVal e As UploadFileCompletedEventArgs)
                         MsgBox("Processo Concluído")
    End Sub
    Catch ex As Exception
        MsgBox("Can't upload the image or incorret login" & vbCrLf & ex.Message)
    End Try



    Att., Roberto Alves

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 24 de novembro de 2017 19:47

Todas as Respostas

  • Boa tarde Eliseu5,

    Faça com um Try..Catch.


    Try
    Dim client As WebClient = New WebClient()
                Dim uri As Uri = New Uri("ftp://mysite.com/file.php")
                AddHandler client.UploadFileCompleted, AddressOf UploadFileCompleted
                AddHandler client.UploadProgressChanged, AddressOf UploadProgressCallback
                client.UseDefaultCredentials = False
                client.Credentials = New NetworkCredential(MyUser, MyPass)
                client.UploadFileAsync(uri, ArqTemp1)
    
    Private Sub UploadFileCompleted(ByVal sender As Object, ByVal e As UploadFileCompletedEventArgs)
                         MsgBox("Processo Concluído")
    End Sub
    Catch ex As Exception
        MsgBox("Can't upload the image or incorret login" & vbCrLf & ex.Message)
    End Try



    Att., Roberto Alves

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 24 de novembro de 2017 19:47
  • Bom dia,

    Por falta de retorno essa thread está sendo encerrada.

    Se necessário, favor abrir uma nova thread.

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 27 de novembro de 2017 13:14
    Moderador