ayuda con codigo!!!

[N@5h]

si lo vi muchas gracias voy a ver q me sale de esto...

saludos...

[N@5h]

voy abanzando mucho en el programita.. pero tengo un problema q variable tengo q usar para q los datos del listbox no me salte todos pq en ves de hacer uno directamente me va al ultimo...

lo q me ase es esto

ago cic en el boton de q pase de link a cierto tiempo a otro link
me va directamente con cadaclic pasarian por todos i qda en el ultimo...

[N@5h]

bueno tengo todo echo ya... me anda perfecto extrae lo que yo quiero i todo..

pero tengo un problema...

se que usar pero nose como...

list1 extraer la primera linea i q la execute en el webbrowser1

o sea el comando lo tengo q poner en el timer.. cosa q con un boton lo ensienda i lo apage i que cada tanto tiempo realise la misma operacion.. pero me pasan 3 cosas

1. se pasa por todos los item i queda siempre en el ultimo sin esperar cierto tiempo...

2. siempre ejecuta el primer item...

3. va siempre al item seleccionado +1 o sea tengo qaser clics yo :S muy mal...

espero una ayuda agradecidamente...

[BlackZeroX]

bueno tengo todo echo ya... me anda perfecto extrae lo que yo quiero i todo..

pero tengo un problema...

se que usar pero nose como...

list1 extraer la primera linea i q la execute en el webbrowser1

o sea el comando lo tengo q poner en el timer.. cosa q con un boton lo ensienda i lo apage i que cada tanto tiempo realise la misma operacion.. pero me pasan 3 cosas

1. se pasa por todos los item i queda siempre en el ultimo sin esperar cierto tiempo...

2. siempre ejecuta el primer item...

3. va siempre al item seleccionado +1 o sea tengo qaser clics yo :S muy mal...

espero una ayuda agradecidamente...

pues lo planteas en un diagrama de flujo con la logica rudimentaria de un timer + la accion de un boton ¬¬" tampoco se te hara el trabajo.

[Nanoc]

Coloca el codigo del evento timer para que podamos ayudarte

[skapunky]

No es por desanimar, bux.to ya no paga desde hace mucho tiempo, yo invertí en refers en su dia y gane mucho, al cabo de tres meses es cuando dejaron de pagar por paypal y se jodió lo marrana. Ni pagan ni nada y está comprobadisimo.

Los premiums incluso teníamos preferencia al cobrar y tuve la suerte de cobrar un mes mas que los demas.

En fin no pierdas tiempo con eso, además los programas automaticos los detectan y te banean la cuenta...bueno ahora nadie lo debe mirar, total ni pagan.

[N@5h]

este es el codigo q yo puse en mi timer...

Código [Seleccionar] Expandir

Private Sub Command2_Click()
Timer1.Enabled = True
Timer1.Interval = Text3.Text '''' esto es para el intervalo del timer a gusto del usuario interval 1000 = 1 seg

WebBrowser1.Navigate (sURL)  ''''''''''' por aca anda la cosa :S
End Sub

pero me va del primer link asta el ultimo sin esperar el tiempo entre cada uno...

[seba123neo]

bueno a ver un ejemplo basico del tema....este ejemplo que hice te carga en un listbox 5 paginas webs distintas (que serian los links tuyos) y los navega cada cierto tiempo.

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    With List1
        .AddItem "http://www.google.com.ar/"
        .AddItem "http://foro.elhacker.net/index.php"
        .AddItem "http://ar.yahoo.com/"
        .AddItem "http://www.facebook.com/"
        .AddItem "http://www.youtube.com/"
    End With
   
    Timer1.Interval = 5000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Static i As Integer
   
    i = i + 1
    If i = List1.ListCount + 1 Then
        MsgBox "Termino la lista"
        Timer1.Enabled = False
        Exit Sub
    End If
   
    WebBrowser1.Navigate List1.List(i - 1)
    Me.Caption = "Navegando en '" & List1.List(i - 1) & "'"
    List1.Selected(i - 1) = True
End Sub

saludos.

[N@5h]

gracias idolo...!!!

muchas gracias si me sirvio.. espectacular funciona ahora cuando lo termine lo subire...

una pregunta:


Private Sub Timer1_Timer()
    Static i As Integer

Código [Seleccionar] Expandir

    i = i + 1
    If i = List1.ListCount + 1 Then
        MsgBox "Termino la lista"
        Timer1.Enabled = False
        Exit Sub
    End If

esto aca me dise q vaya de uno en uno en la lista hasta q termine verdad??

Código [Seleccionar] Expandir

    WebBrowser1.Navigate List1.List(i - 1)
    Me.Caption = "Navegando en '" & List1.List(i - 1) & "'"
    List1.Selected(i - 1) = True
End Sub

"y esto aca q naviege el i" o sea el i seria como el portapapeles :p

by salduos...