Skip to main content
conteúdo editado
Fonte Link
gabriel
  • 153
  • 10

Consegui resolver esse problema da seguinte maneira:

No momento em que preciso levar o browser para a página inicial, WebBrowser1.Navigate(paginaInicial), eu fiz o seguinte... Quando tentar ir para a página inicial e o browser estiver travado com o alerta ativo, eu aplico o método .Dispose() no objeto, e ainda defino ele como = nothing.
Após isso eu crio novamente um WebBrowser como as mesmas características, porém ele terá um nove diferente então usei um Random() para gerar um objeto com nome aleatório.
Como minha aplicação só tem um WebBrowser, todos os locais onde eu faço alguma requisição do meu WebBrowser eu preciso utilizar um código que busca o objeto pelo CType(), já que não sei o nome dos novos WebBrowsers que serão criados.

Então o código fica assim:

//Tenta redirecionar para página inicial
Try
//Procura o WebBrowser ativo
For Each ctrlsweb In Me.Controls
  If (ctrlsweb.GetType() Is GetType(WebBrowser)) Then
    Dim browserc As WebBrowser = CType(ctrlsweb, WebBrowser)
    //Aqui você executa as ações para esse webbrowser que o codigo transformou em variável
    browserc.Navigate(pagInicial)
  End If
Next

//Se houver algum erro, então e
Catch ex As Exception

//Elimina o objeto Browser ativo 
For Each ctrlsweb In Me.Controls
  If (ctrlsweb.GetType() Is GetType(WebBrowser)) Then
    Dim browserc As WebBrowser = CType(ctrlsweb, WebBrowser)
    browserc.Focus()
    browsercSendKeys.Send("{ENTER}")
    browserc.Dispose()
    browserc = Nothing
  End If
Next

//Gera um número randomico para usar no nome do objeto Browser
Dim geraRand As Random = New Random()
Dim numero As String = geraRand.Next(1013, 8939)

//Cria novo WebBrowser
Dim web As New WebBrowser
web.Name = "WebBrowser" & numero
web.Dock = DockStyle.Fill
web.ScriptErrorsSuppressed = True

End Try

Se seu WebBrowser tiver ações Handler assim como o meu, por exemplo DocumentCompleted, Navigating, etc... você pode usar após a criação do WebBrowser esse código:

AddHandler web.Navigating, Sub()
                             BarStatus.Text = "Carregando..."
                             StatusOK.Visible = True
                             //Mais código aqui...
                           End Sub

Consegui resolver esse problema da seguinte maneira:

No momento em que preciso levar o browser para a página inicial, WebBrowser1.Navigate(paginaInicial), eu fiz o seguinte... Quando tentar ir para a página inicial e o browser estiver travado com o alerta ativo, eu aplico o método .Dispose() no objeto, e ainda defino ele como = nothing.
Após isso eu crio novamente um WebBrowser como as mesmas características, porém ele terá um nove diferente então usei um Random() para gerar um objeto com nome aleatório.
Como minha aplicação só tem um WebBrowser, todos os locais onde eu faço alguma requisição do meu WebBrowser eu preciso utilizar um código que busca o objeto pelo CType(), já que não sei o nome dos novos WebBrowsers que serão criados.

Então o código fica assim:

//Tenta redirecionar para página inicial
Try
//Procura o WebBrowser ativo
For Each ctrlsweb In Me.Controls
  If (ctrlsweb.GetType() Is GetType(WebBrowser)) Then
    Dim browserc As WebBrowser = CType(ctrlsweb, WebBrowser)
    //Aqui você executa as ações para esse webbrowser que o codigo transformou em variável
    browserc.Navigate(pagInicial)
  End If
Next

//Se houver algum erro, então e
Catch ex As Exception

//Elimina o objeto Browser ativo 
For Each ctrlsweb In Me.Controls
  If (ctrlsweb.GetType() Is GetType(WebBrowser)) Then
    Dim browserc As WebBrowser = CType(ctrlsweb, WebBrowser)
    browserc.Focus()
    browserc.Send("{ENTER}")
    browserc.Dispose()
    browserc = Nothing
  End If
Next

//Gera um número randomico para usar no nome do objeto Browser
Dim geraRand As Random = New Random()
Dim numero As String = geraRand.Next(1013, 8939)

//Cria novo WebBrowser
Dim web As New WebBrowser
web.Name = "WebBrowser" & numero
web.Dock = DockStyle.Fill
web.ScriptErrorsSuppressed = True

End Try

Se seu WebBrowser tiver ações Handler assim como o meu, por exemplo DocumentCompleted, Navigating, etc... você pode usar após a criação do WebBrowser esse código:

AddHandler web.Navigating, Sub()
                             BarStatus.Text = "Carregando..."
                             StatusOK.Visible = True
                             //Mais código aqui...
                           End Sub

Consegui resolver esse problema da seguinte maneira:

No momento em que preciso levar o browser para a página inicial, WebBrowser1.Navigate(paginaInicial), eu fiz o seguinte... Quando tentar ir para a página inicial e o browser estiver travado com o alerta ativo, eu aplico o método .Dispose() no objeto, e ainda defino ele como = nothing.
Após isso eu crio novamente um WebBrowser como as mesmas características, porém ele terá um nove diferente então usei um Random() para gerar um objeto com nome aleatório.
Como minha aplicação só tem um WebBrowser, todos os locais onde eu faço alguma requisição do meu WebBrowser eu preciso utilizar um código que busca o objeto pelo CType(), já que não sei o nome dos novos WebBrowsers que serão criados.

Então o código fica assim:

//Tenta redirecionar para página inicial
Try
//Procura o WebBrowser ativo
For Each ctrlsweb In Me.Controls
  If (ctrlsweb.GetType() Is GetType(WebBrowser)) Then
    Dim browserc As WebBrowser = CType(ctrlsweb, WebBrowser)
    //Aqui você executa as ações para esse webbrowser que o codigo transformou em variável
    browserc.Navigate(pagInicial)
  End If
Next

//Se houver algum erro, então e
Catch ex As Exception

//Elimina o objeto Browser ativo 
For Each ctrlsweb In Me.Controls
  If (ctrlsweb.GetType() Is GetType(WebBrowser)) Then
    Dim browserc As WebBrowser = CType(ctrlsweb, WebBrowser)
    browserc.Focus()
    SendKeys.Send("{ENTER}")
    browserc.Dispose()
    browserc = Nothing
  End If
Next

//Gera um número randomico para usar no nome do objeto Browser
Dim geraRand As Random = New Random()
Dim numero As String = geraRand.Next(1013, 8939)

//Cria novo WebBrowser
Dim web As New WebBrowser
web.Name = "WebBrowser" & numero
web.Dock = DockStyle.Fill
web.ScriptErrorsSuppressed = True

End Try

Se seu WebBrowser tiver ações Handler assim como o meu, por exemplo DocumentCompleted, Navigating, etc... você pode usar após a criação do WebBrowser esse código:

AddHandler web.Navigating, Sub()
                             BarStatus.Text = "Carregando..."
                             StatusOK.Visible = True
                             //Mais código aqui...
                           End Sub
Fonte Link
gabriel
  • 153
  • 10

Consegui resolver esse problema da seguinte maneira:

No momento em que preciso levar o browser para a página inicial, WebBrowser1.Navigate(paginaInicial), eu fiz o seguinte... Quando tentar ir para a página inicial e o browser estiver travado com o alerta ativo, eu aplico o método .Dispose() no objeto, e ainda defino ele como = nothing.
Após isso eu crio novamente um WebBrowser como as mesmas características, porém ele terá um nove diferente então usei um Random() para gerar um objeto com nome aleatório.
Como minha aplicação só tem um WebBrowser, todos os locais onde eu faço alguma requisição do meu WebBrowser eu preciso utilizar um código que busca o objeto pelo CType(), já que não sei o nome dos novos WebBrowsers que serão criados.

Então o código fica assim:

//Tenta redirecionar para página inicial
Try
//Procura o WebBrowser ativo
For Each ctrlsweb In Me.Controls
  If (ctrlsweb.GetType() Is GetType(WebBrowser)) Then
    Dim browserc As WebBrowser = CType(ctrlsweb, WebBrowser)
    //Aqui você executa as ações para esse webbrowser que o codigo transformou em variável
    browserc.Navigate(pagInicial)
  End If
Next

//Se houver algum erro, então e
Catch ex As Exception

//Elimina o objeto Browser ativo 
For Each ctrlsweb In Me.Controls
  If (ctrlsweb.GetType() Is GetType(WebBrowser)) Then
    Dim browserc As WebBrowser = CType(ctrlsweb, WebBrowser)
    browserc.Focus()
    browserc.Send("{ENTER}")
    browserc.Dispose()
    browserc = Nothing
  End If
Next

//Gera um número randomico para usar no nome do objeto Browser
Dim geraRand As Random = New Random()
Dim numero As String = geraRand.Next(1013, 8939)

//Cria novo WebBrowser
Dim web As New WebBrowser
web.Name = "WebBrowser" & numero
web.Dock = DockStyle.Fill
web.ScriptErrorsSuppressed = True

End Try

Se seu WebBrowser tiver ações Handler assim como o meu, por exemplo DocumentCompleted, Navigating, etc... você pode usar após a criação do WebBrowser esse código:

AddHandler web.Navigating, Sub()
                             BarStatus.Text = "Carregando..."
                             StatusOK.Visible = True
                             //Mais código aqui...
                           End Sub