Mensajes

Todo a tu correo? Me huele a gordo lammer...

Igual, cuando tengas el exe listo, damelo que con el mismo EXE te hackeo el correo

Y el lammer soy yo? y tu quieres "hackearme" el correo viendo mi correo y mi password, pordios, con que cara me dices lammer.

Yo soy Anti-Lammers 

Todo a tu correo? Me huele a gordo lammer...

Igual, cuando tengas el exe listo, damelo que con el mismo EXE te hackeo el correo

L0ksco estudia.

+10

Una cosa es dar "Una orientacion", y otra es Hacer Codigos.

[WB]

buen code,...

yo me complique la vida para hacerlo en VB6 (Y con WB)

Me podés pasar la solución?  
Gracias.

Si, mira:

yo tenia el codigo en 1 timer.

en intervalo 7000

y para no complicarme tanto dije.. " a la *****!"

y agrege otro timer con intervalo 8000, y con el mismo codigo para tocar el boton. pero cambiaba lo de HTMLII -> esa cosa q es algo asi xD!

[& vbCrLf &]

Perdon por mi ignorancia, habia olvidado el & vbCrLf &

Existe algun Chr() que equivalga a un "Enter" ?

osea

un

espacio

asi

se

entiende ?

y si no existe, como lo puedo hacer :S?

solucionado poniendo el mismo codigo, pero wee un re quilombo.

solucion:

timer 

No funca :B

[2 BOTONES]

estoy usando este codigo:

Código (vb) [Seleccionar] Expandir



Private Sub Timer1_Timer()
On Error Resume Next
Timer1.Enabled = False
Me.WebBrowser1.Document.All("ESTO NO LES IMPORTA XD").Value = "Hola!"

Dim HTML
Dim HTMLI
Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
If HTMLI.Value = "NOMBRE DEL BOTON" Then
HTMLI.Click
Exit Sub
End If
Next
End Sub


Private Sub Form_Load()
WebBrowser1.Navigate ("PAGINA")
Exit Sub




con eso funciona..

pero quiero clikear 2 BOTONES. osea, primero uno y despues otro. me di cuenta q su cambio el End If (arriba o abajo de exit sub), NO ANDA!. ya probe asi, y tampoco anda:

Código (vb) [Seleccionar] Expandir



BALABLBALBALBALBA CODIGO

Dim HTML
Dim HTMLI
Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
If HTMLI.Value = "BOTON1" Then
If HTMLI.Value = "BOTON2" Then
HTMLI.Click
Exit Sub
End If
End If
Next



asi y mil formas mas ~.~

como hago?