Mensajes

[EDITO:]

Copy/paste, anda ya xD

Si lo unico que mas he copipasteado ha sido esto:

Código (vbnet) [Seleccionar] Expandir

   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Dim document As HtmlDocument = WebBrowser1.Document

       'Attach Click event handler
       AddHandler document.Body.Click, New HtmlElementEventHandler(AddressOf WebBrowser1_Clicked)
   End Sub

A ver...

Tengo esto:

Código (vbnet) [Seleccionar] Expandir

   Private Sub WebBrowser1_Clicked(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs)
       MsgBox(sender.ActiveElement.Document.GetElementById("login-submit").InvokeMember("click"))
   End Sub

EDITO:

Entonces, que dejo un HtmlElement en vez de un HtmlDocument?



EDITO:

No soy tan pro como tu... Necesito más help
Por no decir que no se que es lo que significan la mitad de las cosas que hay en los codes

[EDITO:]

Al punto 4 es al que más miedo le tengo. xD



Hasta ahora he llegado a:

Código (vbnet) [Seleccionar] Expandir

Public Class frmModPacks_Web
   Private Sub frmModpacks_Web_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Dim prueba As String = Me.WebBrowser1.Document.GetElementById("nombre").GetAttribute("Value")

       WebBrowser1.Navigate("http://ikillcraft.a0001.net/modpacks.php")
   End Sub

   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Dim document As HtmlDocument = WebBrowser1.Document

       'Attach Click event handler
       AddHandler document.Body.Click, New HtmlElementEventHandler(AddressOf WebBrowser1_Click)
   End Sub

   Private Sub WebBrowser1_Click(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
       MsgBox("Hola")
   End Sub
End Class

Y ya tengo un problema el WebBrowser se carga en blanco



EDITO: El problema está en:

Código (vbnet) [Seleccionar] Expandir

       Dim prueba As String = Me.WebBrowser1.Document.GetElementById("nombre").GetAttribute("Value")

No sé porqué.



DUDA:

WebBrowser1.Document.GetElementById("login-submit").InvokeMember("click")

Sirve de algo?

Una pregunta, porque las imágenes salen con tanta resolución?

Y esto?

http://www.dreamincode.net/forums/topic/169683-advanced-webbrowser-contextmenu/

También tenía esto:

Código (vbnet) [Seleccionar] Expandir

Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
   If MsgBox("You are trying to go to:" & vbCr & e.Url.ToString() & vbCr & "Cancel Navigate?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
       e.Cancel = True
   End If
End Sub

La verdad es que me estoy complicando yo solo...

Podría poner un getelementbyname y poner un name igual para todos los controles que se pudiese detectar...

Ahora si... Cuando seleccione un ModPack tendría que setearse una variable para que cogiese el name de dicho form, no se si me captais



También podría hacer que con javascript se cambiase el name del form, y hay pondría una condición si se cumple, se empezaría a realizar la función a la que estuviese indexada ese name

[VS2012]

Estás liando al pobre chaval xD

El WebBrowser es un componente por defecto, quiero decir que ya está agregado en el Toolbox, no es necesario elegirlo en los componentes ocultos del COM
(Al menos en la IDE del VS2012 que es la que usa Ikillnukes)

Eso he pensado yo... Pero es que no me aclaro xD

Estás seleccionando el WebBrowser equivocado.

Por eso los errores, es eso.

Pone el otro desde compnentes com como te indiqué mas abajo

Como otro? LOL

Un saludo.



He estado observando, si le meto un WebBrowser.Click, con que haga clic en cualquier lado del WebBrowser dará para hacer la función no?

Ehm pues no me entero xD

A ver he añadido "2 webbrowsers" y luego...

He puesto tu code, pero me sale esto



Un saludo jefe.

Ehm te refieres a que si metí un webbrowser? A tanto (a tan tonto ) no llego XD

Me da bastantes errores (solo 4)

A ver, simplemente quiero hacer que salte un msgbox cuando clickes en un boton... 

Podría hacer un

Código (vbnet) [Seleccionar] Expandir

If WebBrowser1.Document.GetElementById("login-submit").InvokeMember("click") Then

'code

End If

Gracias!

[Muy buenas,]

Muy buenas, esto es posible de realizar?

Un saludo.



Tengo este code, pero no se como hacer que funcione, es más ni se si va a hacer algo

Código (vbnet) [Seleccionar] Expandir

WebBrowser1.Document.GetElementById("login-submit").InvokeMember("click")