none
como Impedir download de arquivos no Webbrowser1 VB.Net RRS feed

  • Pergunta

  • Boa tarde, tenho um Webbrowser1 gostaria de bloquear qualquer tipo de download. nele tem como desabilitar essa opção impedindo que o web browser faça download.

    se Puder Ajudar Até mais :)

     

    terça-feira, 18 de setembro de 2018 15:35

Respostas

  • O código original era C# e o conversor gerou uma versão inválida em VB.Net.

    A versão abaixo compila corretamente:

    AddHandler TryCast(WebBrowser1.ActiveXInstance, SHDocVw.ShellBrowserWindow).FileDownload, AddressOf browser_FileDownload

    Um detalhe, para funcionar é necessário adicionar uma referência COM para Microsoft Internet Controls.


    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    sexta-feira, 21 de setembro de 2018 12:55
  • Pelo Solution Explorer há um elemento na árvore do projeto que se chama References, clique com botão direito e vá em Add Reference. Na janela que se abre haverá uma aba para COM.

    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    segunda-feira, 24 de setembro de 2018 21:40

Todas as Respostas

  • Tente assim:

    Public Sub main()
            (TryCast(webBrowser.ActiveXInstance, SHDocVw.ShellBrowserWindow)).FileDownload += AddressOf browser_FileDownload
        End Sub
    
        Private Sub browser_FileDownload(ByVal ActiveDocument As Boolean, ByRef Cancel As Boolean)
            Cancel = True
        End Sub


    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    • Marcado como Resposta Kairo Martins quinta-feira, 20 de setembro de 2018 13:27
    • Não Marcado como Resposta Kairo Martins quinta-feira, 20 de setembro de 2018 13:27
    quarta-feira, 19 de setembro de 2018 11:36
  • Da error de sintaxe tem como resolver isso ?

    • Editado Kairo Martins quinta-feira, 20 de setembro de 2018 13:27
    quinta-feira, 20 de setembro de 2018 13:27
  • Em qual linha? Coloque a mensagem ou um screenshot por favor

    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    quinta-feira, 20 de setembro de 2018 16:34
  • da Esse Erro

    sexta-feira, 21 de setembro de 2018 01:08
  • O código original era C# e o conversor gerou uma versão inválida em VB.Net.

    A versão abaixo compila corretamente:

    AddHandler TryCast(WebBrowser1.ActiveXInstance, SHDocVw.ShellBrowserWindow).FileDownload, AddressOf browser_FileDownload

    Um detalhe, para funcionar é necessário adicionar uma referência COM para Microsoft Internet Controls.


    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    sexta-feira, 21 de setembro de 2018 12:55
  • Como eu posso adicionar a referencia COM :)
    sexta-feira, 21 de setembro de 2018 14:15
  • Pelo Solution Explorer há um elemento na árvore do projeto que se chama References, clique com botão direito e vá em Add Reference. Na janela que se abre haverá uma aba para COM.

    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    segunda-feira, 24 de setembro de 2018 21:40