none
Como fechar Msg que WebBrowser abre RRS feed

  • Pergunta

  • Olá quero saber como eu fecho ou impeço de abrir essa Janela escrito "Dados Incorretos" na minha WebBrowser em Visual Basic, Obrigado :D


    quarta-feira, 15 de outubro de 2014 16:35

Respostas

  • Ao inserir os dados você tera que usar o javascript para isso anulando o alert:

    'Cria uma função para executar javascript dentro do webBrowser
    
    Public Sub JavaScript(comando As String, wb As WebBrowser)
    	Dim doc As HtmlDocument = wb.Document
    	Dim head As HtmlElement = DirectCast(doc.GetElementsByTagName("head")(0), HtmlElement)
    	Dim s As HtmlElement = DirectCast(doc.CreateElement("script"), HtmlElement)
    	s.SetAttribute("text", "function AnulaAlert(){" & comando & "}")
    	head.AppendChild(s)
    	wb.Document.InvokeScript("AnulaAlert")
    End Sub
    
    'Coloque no botao onde você executa o preenchimento
    
    JavaScript("window.alert = function(){}",webBrowser)

    Se te ajudou marca como resposta


    • Editado Mr. GMSOFT quarta-feira, 15 de outubro de 2014 17:28
    • Marcado como Resposta Marcos SJ terça-feira, 6 de outubro de 2015 19:29
    quarta-feira, 15 de outubro de 2014 17:28
  • Teste ai agora:

    'Cria uma função para executar javascript dentro do webBrowser
    
    Public Sub JavaScript(comando As String, wb As WebBrowser)
    	Dim doc As HtmlDocument = wb.Document
    	Dim head As HtmlElement = DirectCast(doc.GetElementsByTagName("head")(0), HtmlElement)
    	Dim s As HtmlElement = DirectCast(doc.CreateElement("script"), HtmlElement)
    	s.SetAttribute("text", "function AnulaAlert(){" & comando & "}")
    	head.AppendChild(s)
    	wb.Document.InvokeScript("AnulaAlert")
    End Sub
    
    'Coloque no botao onde você executa o preenchimento
    
    JavaScript("window.open = function(){}",webBrowser)


    • Marcado como Resposta Marcos SJ terça-feira, 6 de outubro de 2015 19:29
    domingo, 19 de outubro de 2014 23:08
  • Caso tenha conseguido a solução finalize sua Thread marcando a resposta

    GTSA vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    • Marcado como Resposta Marcos SJ terça-feira, 6 de outubro de 2015 19:29
    domingo, 28 de junho de 2015 15:19

Todas as Respostas

  • Isso só é possível se você desabilitar o jascript no Internet Explorer.

    Se esta resposta foi útil, marque. Abs

    • Sugerido como Resposta Deric Ferreira quarta-feira, 15 de outubro de 2014 17:09
    quarta-feira, 15 de outubro de 2014 17:09
  • Isso só é possível se você desabilitar o jascript no Internet Explorer.

    Se esta resposta foi útil, marque. Abs

    Isso bloquearia todo o javascript e eu não posso fzr isso
    quarta-feira, 15 de outubro de 2014 17:26
  • Ao inserir os dados você tera que usar o javascript para isso anulando o alert:

    'Cria uma função para executar javascript dentro do webBrowser
    
    Public Sub JavaScript(comando As String, wb As WebBrowser)
    	Dim doc As HtmlDocument = wb.Document
    	Dim head As HtmlElement = DirectCast(doc.GetElementsByTagName("head")(0), HtmlElement)
    	Dim s As HtmlElement = DirectCast(doc.CreateElement("script"), HtmlElement)
    	s.SetAttribute("text", "function AnulaAlert(){" & comando & "}")
    	head.AppendChild(s)
    	wb.Document.InvokeScript("AnulaAlert")
    End Sub
    
    'Coloque no botao onde você executa o preenchimento
    
    JavaScript("window.alert = function(){}",webBrowser)

    Se te ajudou marca como resposta


    • Editado Mr. GMSOFT quarta-feira, 15 de outubro de 2014 17:28
    • Marcado como Resposta Marcos SJ terça-feira, 6 de outubro de 2015 19:29
    quarta-feira, 15 de outubro de 2014 17:28
  • Ao inserir os dados você tera que usar o javascript para isso anulando o alert:

    'Cria uma função para executar javascript dentro do webBrowser
    
    Public Sub JavaScript(comando As String, wb As WebBrowser)
    	Dim doc As HtmlDocument = wb.Document
    	Dim head As HtmlElement = DirectCast(doc.GetElementsByTagName("head")(0), HtmlElement)
    	Dim s As HtmlElement = DirectCast(doc.CreateElement("script"), HtmlElement)
    	s.SetAttribute("text", "function AnulaAlert(){" & comando & "}")
    	head.AppendChild(s)
    	wb.Document.InvokeScript("AnulaAlert")
    End Sub
    
    'Coloque no botao onde você executa o preenchimento
    
    JavaScript("window.alert = function(){}",webBrowser)

    Se te ajudou marca como resposta


    a msg continua a aparecer igual T-T
    quarta-feira, 15 de outubro de 2014 17:55
  • Provavelmente esta dentro de um iframe, você pode postar o link do site que esta a fazer isso, posso testar qual será a melhor opção
    quarta-feira, 15 de outubro de 2014 18:15
  • Link: pb.ongame.com.br , tem q logar em uma conta e clicar em "Alterar Senha" vai abrir uma Janela
    sexta-feira, 17 de outubro de 2014 18:41
  • Vou testar
    domingo, 19 de outubro de 2014 21:32
  • Teste ai agora:

    'Cria uma função para executar javascript dentro do webBrowser
    
    Public Sub JavaScript(comando As String, wb As WebBrowser)
    	Dim doc As HtmlDocument = wb.Document
    	Dim head As HtmlElement = DirectCast(doc.GetElementsByTagName("head")(0), HtmlElement)
    	Dim s As HtmlElement = DirectCast(doc.CreateElement("script"), HtmlElement)
    	s.SetAttribute("text", "function AnulaAlert(){" & comando & "}")
    	head.AppendChild(s)
    	wb.Document.InvokeScript("AnulaAlert")
    End Sub
    
    'Coloque no botao onde você executa o preenchimento
    
    JavaScript("window.open = function(){}",webBrowser)


    • Marcado como Resposta Marcos SJ terça-feira, 6 de outubro de 2015 19:29
    domingo, 19 de outubro de 2014 23:08
  • Caso tenha conseguido a solução finalize sua Thread marcando a resposta

    GTSA vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    • Marcado como Resposta Marcos SJ terça-feira, 6 de outubro de 2015 19:29
    domingo, 28 de junho de 2015 15:19