Aplicação abre sites no I.E. e não no browser. help me xD

[XRS]

Boas,

Eu estou a tentar fazer um código que vai buscar links no source code de um código e os abre num espaço de X tempo.

O meu código é este:

      Dim mylink As HtmlElement
          Dim mylinkcollection As HtmlElementCollection
          Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              WebBrowser1.Navigate("http://homepage.ntlworld.com/nicola.wright90/test.html")
          End Sub
          Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
              If WebBrowser1.Url.ToString = "http://homepage.ntlworld.com/nicola.wright90/test.html" Then
                  mylinkcollection = WebBrowser1.Document.GetElementsByTagName("a")
                  For Each Me.mylink In mylinkcollection
                      If mylink.OuterHtml.Contains("google.com") Then
                          mylink.InvokeMember("Click")
                      End If
                  Next
              End If
          End Sub

Com este código ele faz tudo bem mas ao abrir os links que existem, abre-mos no I.E. e não no browser embutido (WebBrowser1).

Alguém me poderá ajudar?

[José Lopes]

Comigo funcionou... abriu no browser do form....

O que pode estar acontecendo é que o link que ele esta abrindo..esteja defenido para abrir numa nova janela...

Aí talvez so redefinindo o target

[XRS]

E como posso fazer isso no VB?

[José Lopes]

Experimenta usar isto

                    mylink.SetAttribute("target", "_self")
                    mylink.InvokeMember("Click")

[XRS]

Infelizmente ao fazer isso, só me aparece uma aplicação crashada após clicar no botão.

Se tirar o SetAttribute ele funciona, mas abre no I.E.

Não sei porque a app crasha :\

[José Lopes]

Aqui aconteceu-me abrir no IE... mas só alguns... daí eu ter referido que podia ser do target.

Mas agora experimentei assim:

            For Each Me.mylink In mylinkcollection
                mylink.SetAttribute("target", "_blank")
                mylink.InvokeMember("Click")
            Next

e ele abriu-me todas as hiperligações do google numa pagina nova...

Acho que o problema nao e do codigo  ?

[XRS]

Sim, mas eu quero que ele me abra todas no browser integrado e não no IE!

É o meu grande problema. O resto está a bombar já!

[José Lopes]

O que eu queria dizer...é que por exclusão de partes... ele devia funcionar com o argumento target = _self

[XRS]

Pois, mas se não se funciona, o que será?

[José Lopes]

Já experimentaste com outra página qualquer? pode ter a ver como o modo como os links estão criados?

Nao vejo outra alternativa.

[XRS]

Mas eu quero para uma página em especial.

Os links estão para abrir em _blank.

Mas eu sei que dá para abrir em _self porque eu já vi aplicações parecidas em que os links também abriam numa nova página e na aplicação abriam no browser embutido.

[José Lopes]

Os links estão para abrir em _blank.

Pois...entao deve ser por isso... que abre no ie. Tu estás a dizer explicitamente que é para abrir numa nova

[XRS]

Não é isso.

Os links na página estão definidos para _Blank

Mas eu quero que elas abram em _Self. Eu sei que dá, mas não está a funcionar ao por o SetAttribute como _Self.

[José Lopes]

pega no erro e google it ;-)

Não estou a ver outro modo

[XRS]

Isso já ando eu a fazer à mais de uma semana e nada!

Mas vou continuar a pesquisar.

[XRS]

De facto não consigo arranjar maneira nenhuma de por isto a funcionar.

Alguém me pode traduzir isto para VC++ se não se importar?

Pode ser que assim já dê!

[makingon]

ja conseguiste resolver esse problema???

[programadorvb6]

Quantos browsers tens ?

se só tens o I.E ele abre por defaul esse se tiveres o Mozila exprimenta 1º definir como browser principal de abertura de páginas  e em seguida exprimenta correr o que escreves-te.