Usuário com melhor resposta
Como fechar Msg que WebBrowser abre

Pergunta
-
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
-
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
-
Caso tenha conseguido a solução finalize sua Thread marcando a resposta
A 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
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
-
-
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
-
Ao inserir os dados você tera que usar o javascript para isso anulando o alert:
a msg continua a aparecer igual T-T
'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
-
-
-
-
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
-
Caso tenha conseguido a solução finalize sua Thread marcando a resposta
A 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