Test Foro de elhacker.net SMF 2.1

Hola que tal estoy intentando crear un autoLogin (VB.NET) de websites Y estoy teniendo problemas con las tildes este es parte de el codigo de la web  :



         
   

Citar

<td class="smallfont" style="white-space: nowrap;"><label for="navbar_username">Nombre de Usuario</label></td>
<td><input type="text" class="bginput" style="font-size: 11px" name="vb_login_username" id="navbar_username" size="15" accesskey="u" tabindex="104" value="Nombre de Usuario" onfocus="if (this.value == 'Nombre de Usuario') this.value = '';" /></td>

         <td class="smallfont" nowrap="nowrap"><label for="cb_cookieuser_navbar"><input type="checkbox" name="cookieuser" value="1" tabindex="105" id="cb_cookieuser_navbar" accesskey="c" />Iniciar sesión automáticamente</label></td>

      </tr>

      <tr>

         <td class="smallfont"><label for="navbar_password">Contraseña</label></td>

         <td><input type="password" class="bginput" style="font-size: 11px" name="vb_login_password" id="navbar_password" size="10" tabindex="102" /></td>

         <td><input type="submit" class="button" value="Iniciar Sesión" tabindex="104" title="Escribe tu nombre de usuario y contraseña en los campos para iniciar la sesión o pulsa el botón 'registrarse' para crear un perfil." accesskey="s" /></td>

               
Esto funciona bien :  ;-)

CitarWebBrowser1.Document.GetElementById("vb_login_username").SetAttribute("value", "myusername")

Esto tambien :  ;-)

CitarWebBrowser1.Document.GetElementById("vb_login_password").SetAttribute("value", "mypassword")

Esto no Funciona   :-(

Citar
WebBrowser1.Document.GetElementById("Iniciar Sesión").InvokeMember("click")

Intente esto :  :-(

Citar
WebBrowser1.Document.GetElementById("Iniciar Sesi&oacute;n").InvokeMember("click")

Por la logica de los dos primeros intente esto tambien :  :-(

Citar
WebBrowser1.Document.GetElementById("vb_login").InvokeMember("click")

nada espero que me ayuden a resolver este problema muchas gracias .

En vez de
WebBrowser1.Document.GetElementById("Iniciar Sesión").InvokeMember("click")
intenta con
WebBrowser1.Document.GetElementById("Iniciar Sesión").InvokeMember("submit")

El evento de iniciar sesion es submit jeje o asi es casi siempre ;P

P.D. Esta es la sección de VB, y lo tuyo es VB.NET osea en la sección .NET jejeje

nada  por aqui:(

CitarWebBrowser1.Document.GetElementById("Iniciar Sesión").InvokeMember("submit")

nada por aca :

CitarWebBrowser1.Document.GetElementById("Iniciar Sesi&oacute;n").InvokeMember("submit")

Pues ah de ser porque el boton submit no tiene name para identificarlo, ya que al parecer a los otros los checas con el atributo
name
ejemplo:
name="vb_login_password"
pero el submit no contiene ninguno de ello lo que talvez podria ser en este caso sino tiene name o id, seria checar todos los elementos supongo o algo asi jeje

Y usando el ASCII de "ó" no funcionará?

Convert.ToChar(&HF3)

WebBrowser1.Document.GetElementById("Iniciar Sesi" & Convert.ToChar(&HF3) & "n").InvokeMember("submit")

Ayayay ya me estoy  cansando con este problemita

CitarWebBrowser1.Document.GetElementById("Iniciar Sesi" & Convert.ToChar(&HF3) & "n").InvokeMember("submit")

gracias por tu ayuda pero nada .Algo he aprendido .sabemos que vbnet utiliza el ie6 por defecto entonces cuando descarga el codigo lo descarga de esta manera :

CitarIniciar Sesi�n

no reconoce ese caracter entonces lo que intente es hacerlo con el geko(webrowser de vbnet para firefox) pero nisiquiera consegui que me funcionase esto :

CitarGeckoWebBrowser1.Document.GetElementById("vb_login_username").SetAttribute("value", "myusername")

luego intente hacer lo mismo con el WebKitBrowser(webrowser de vbnet para chrome)

Citar
WebKitBrowser1.Document.GetElementById("vb_login_username").SetAttribute("value", "myusername")

pero nada  :-(


Aqui les lanzo un reto a cualquiera esto no deberia tomar mas de dos minutos hacerlo pero no me sale  :xD  me he dado cuenta que la pagina en la que intento crear el auto login tiene codigo de logeo similar a estas  asi que si pueden crear un
autologin para cualquiera de ellas mi problema estaria resuelto .

Citarhttp://foros.hondaclub.com.ar/

Citarhttp://www.programaswarez.com/foros.php

Citarwww.macusergroup.com.ar/foro/

Gracias (si los links los consideran spam haganmelo saber por favor ..)

Pues me ha funcionado exepto para http://www.programaswarez.com/foros.php xD
para las otras dos si, en esa no porque tiene un buscador xD

Aqui el codigo mira:

Imports System.Web
Public Class Form1
    Dim intento As Boolean = False
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("http://www.macusergroup.com.ar/foro/")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If (intento <> True) Then
            WebBrowser1.Document.GetElementById("vb_login_username").SetAttribute("value", "myusername")
            WebBrowser1.Document.GetElementById("vb_login_password").SetAttribute("value", TextBox2.Text)
            WebBrowser1.Document.Forms(0).InvokeMember("submit")
            intento = True
        End If
    End Sub

End Class


Muchas gracias por el codigo s00rk .
Esta no me la sabia : 

CitarWebBrowser1.Document.Forms(0).InvokeMember("submit")

  ;-) .

Saludos.