Codigo de formulario Ayuda !!!!

[seba123neo]

para hacer click es lo mismo, solo que usar el evento .Click, aca un ejemplo con en buscador del google.

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    WebBrowser1.Document.f.btng.Click
End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.google.com.ar"
End Sub

"f" es el nombre del formulario web que contiene el boton, y "btng" es el nombre del boton de buscar del google.

saludos.

[DarkMisterio]

el problema esta en que el boton no tiene name :S es un submit pero de ahi amas no hay name pondre el codigo del boton :

<input class="button" value="Entrar" type="submit" /></td> </tr> </table> <input type="hidden" name="s" value="" /> <input type="hidden" name="securitytoken" value="guest" /> <input type="hidden" name="do" value="login" /> <input type="hidden" name="vb_login_md5password" /> <input type="hidden" name="vb_login_md5password_utf" /> </form>  </div> </td> </tr> </table>  </div>    <div align="center"> <script type="text/javascript">

me supongo que es ese todo el codigo del boton Entrar pero lo malo es que no veo el name ? o no se como podria ser a ver si me dan una manito pls

[seba123neo]

que pagina web es ?

[DarkMisterio]

la web es argentinawarez estoy tratando de realizar un programa que deje un comentario en un post primero quiero poder realizar eso como para poder lograr luego mejorarlo osea hacer que primero pueda loguear en la web segundo cno otra caja de texto ir al post indicado y dejar un mensaje y poder enviarlo y de ahi pasar al post siguiente y hacer lo mismo dejar un mismo comentario o un comentario diferente y asi sucesivamente



he logrado obtener este codigo usando el codigo de otro foro para probarlo con el boton pero todavia no me liga a ver si me dan la mano a ver si me explican que sale mal y que me falta :

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
WebBrowser1.Document.All("vb_login_username").Value = Text1.Text
WebBrowser1.Document.All("vb_login_password").Value = Text2.Text
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.ba-k.com"
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
SendKeys ("{ENTER}")
End Sub

Lo que intento aca es es que luedo de dar clic en el boton lo escrito en las cajas de texto pasan a sus respectivas cajas de login y pass de la web en el webbrowser hasta hi llegue bien pero no logro que la opcion sendkeys reaccione dentro del browser suena como si se estuviera presionando el Enter pero nada pasa no sucede nada dentro del browser y me gustaria poder hacer que suceda pero luego de 5 segundos de presionar el boton de mi formulario .

[seba123neo]

no tenes que hacer click en el boton, ni mandar sendkeys, debes navegar al link donde el boton va a ir, para que asi se validen los datos anteriormente ingresados en los textbox de usuario y contraseña de la pagina, por ejemplo el boton de argentinawarez va a este link.

http://www.argentinawareza.com/login.php?do=login

navegando a ese link , despues de haber completado usuario y contraseña, es lo mismo que hacer click en el boton, ya que ahi se hace el POST.

fijate que le agrege una letra "a" a lo ultimo del nombre de la pagina argentinawareza , porque esta pagina detecta el nombre como spam.

saludos.

[DarkMisterio]

en todo caso esa linea iria aca:

Private Sub Form_Load()
WebBrowser1.Navigate "link"
End Sub

o iria dentro del webbrowser ?

dentro del boton :S

[seba123neo]

una vez que completas los datos del login, en un boton de tu aplicacion, pones que el webbrowser haga el Navigate hacia esa pagina que te puse antes y listo.

[DarkMisterio]

logre realizar este codigo :

Private Sub Command1_Click()
WebBrowser1.Document.All("vb_login_username").Value = Text1.Text
WebBrowser1.Document.All("vb_login_password").Value = Text2.Text
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate "http://www.argentinawareza.com/login.php?do=login"
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.argentinawareza.com"
End Sub

Pero el Problema esta en que cuando hago clic en el Segundo Boton para que se loguee no se mantienen los datos en las cajas de usuario y password como puedo lograr que se mantengan para que se realice la siguiente accion ?

[seba123neo]

el codigo esta bien, pero no funciona lo que te dije, de navegar a ese link, fijate que despues de navegar a ese link no aparece el mensaje de que te logueaste o en mi caso como no tengo cuenta en esa pagina, me tendria que mostrar un mensaje de que no estan bein los datos, pero no pasa nada.

aca te pongo una forma que se me ocurrio y funciona, como los botones submit no tienen nombre pues hay que buscar otra forma, a mi me aparece "Has ingresado un nombre de usuario o contraseña no válido" obviamente porque le puse un nombre de usuario y contraseña cualquieras, pero si muestra eso quiere decir que funciona.

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
   WebBrowser1.Document.All("vb_login_username").Value = "usuario"
   WebBrowser1.Document.All("vb_login_password").Value = "contraseña"
   Call Logearse
End Sub

Private Sub Form_Load()
   WebBrowser1.Navigate "http://www.SPAM(149)"
End Sub

Private Sub Logearse()
   Dim oDoc As HTMLDocument
   Dim iElements As Integer, i As Integer
   Dim oInputs As HTMLInputElement
   
   Set oDoc = WebBrowser1.Document
   
   With WebBrowser1.Document
      iElements = (oDoc.getElementsByTagName("INPUT").length - 1)
      For i = 0 To iElements
          Set oInputs = oDoc.getElementsByTagName("INPUT")(i)
          If oInputs.Type = "submit" And oInputs.Value = "Entrar" Then
              oInputs.Click
              Exit For
          End If
          'List1.AddItem oInputs.Name & " | " & oInputs.Type & " | " & oInputs.Value
      Next i
   End With
End Sub

ahora te preguntaras que carajo hace esto, pues lo que hace es recorrer todos los elementos de la pagina web, y si encuentra un boton de tipo "submit" y con el caption del boton en "Entrar" le hace click.

fijate que hay una linea de codigo comentada, esa linea la podes descomentar y poner un listbox y te va a cargar una lista con todos los controles web y nombres de la pagina.

PD: debes agregar la referencia a Microsoft HTML Object Library.

saludos.

[DarkMisterio]

yeeee muchas gracias funciona perfecto aunke no sabia donde colocar la parte del subloguearse asi que probe y salio excelente ahora me falta completar la siguiente parte del formulario basandome en lo que me has ayudado muchas gracias cuando tenga mi avance lo detallare aca