Mensajes

[+ 1 COmmand+ 1 WebBrowser+ 2 cajas de texto (usuario y contraseña)]

y ahi entran los creditos



Este es un codigo algo "basico" de como logearse en una pagina (tambien con algunos cambios puedes enviar mensajes automaticos por hi5 .. o aceptar  a los amigos del facebook)....  Si saben de otro metodo .. Postealo..

Para este proyecto se usara :

+ 1 COmmand
+ 1 WebBrowser
+ 2 cajas de texto (usuario y contraseña)

De ejemplo usaremos www.hi5.com ...

Código (vb) [Seleccionar] Expandir


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


Asumimos que :

<input type="text" name="email" maxlength="255" size="24" tabindex="1" value="" id="email">

<input type="password" name="password" maxlength="255" size="24" tabindex="2" value="">

El codigo dentro del Command1 es :

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()

Me.WebBrowser1.Document.All("email").Value = Text1.Text
Me.WebBrowser1.Document.All("password").Value = Text2.Text
Dim HTML
Dim HTMLI
   
Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
    If HTMLI.Value = "Iniciar sesión" Then
      HTMLI.Click
      Exit Sub
    End If
  Next

End Sub


Espero que te sirva

Timer!

es lo q pense, pero me podes dar un ejemploÇ?

nunca lo supe usar a ese relojito feo xd

solucionado

Código (vb) [Seleccionar] Expandir



  Private Sub form_load()
 
Timer1.Interval = 1
Timer1.Enabled = True

 
 
 
   End Sub



para el timer

Código (vb) [Seleccionar] Expandir



Private Sub Timer1_Timer()
Timer1.Enabled = True
codigo
End Sub



ese es el q uso y funca u_u

Timer!

es lo q pense, pero me podes dar un ejemploÇ?

nunca lo supe usar a ese relojito feo xd

como ejecuto una funcion cada X segundos?

osea yo no sabia q se podian poner 2 cosas (nose como se llaman, si alguien me lo dice...) con "Form"

osea, como ya tenia el Form_MouseMove, no sabia q lo podia cerrar y abrir el form_load

[ASI SI.]

Sí que funciona... Al menos a mí sí.

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    MsgBox "Hola"
End Sub

Private Sub Form_Load()
    Call Command1_Click
End Sub

asi no..

Código (vb) [Seleccionar] Expandir



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
TODO EL CODIGO
    Call Command1_Click

    End Sub



ASI SI.

Código (vb) [Seleccionar] Expandir



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
TODO EL CODIGO
    End Sub

   Private Sub form_load()
   
   Call Command2_Click
   
    End Sub



osea, me habias entendido mal

pero ya fue, dejalo ahi xd

[Private Sub Form_MouseMove]

Si se abre cuando mueves el ratón, es porque pusiste el procedimiento en el evento MouseMove, en vez de ponerlo en Form_Load.

Un saludo

es verdad...

Código (vb) [Seleccionar] Expandir


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)



pero si cambio Private Sub Form_MouseMove por Private Sub Form_Load...

andara?

[call command2_click]

como puedo hacer para llamar a un boton desde el form ?

osea, q el boton se autoejecute junto con el form

ya probe con :

call command2_click

pero ese abre el boton por cada milimetro q muevo el maus :S

HOLA!!!


SI:

Código (vb) [Seleccionar] Expandir


Private Sub Form1_Load()
Call Command1_Click()
End Sub



GRACIAS POR LEER!!!

yo hice eso y entre en una bola de msgbox

alguien sabe q puedo hacer?

HOLA!!!


SI:

Código (vb) [Seleccionar] Expandir


Private Sub Form1_Load()
Call Command1_Click()
End Sub



GRACIAS POR LEER!!!

yo hice eso y entre en una bola de msgbox