Ayuda!! - VB-MUNDO

themaz · #1 (**permalink**) 30-05-2008, 18:17:43

Buenos dias a todos, soy nuevo en el foro y voy a plantiar mi primer duda,vengo con un problema q no se como solucionar,es un problema muy sencillo,pero poco se ya q empeze hace poco.
Les paso a explicar,quiero que de una pagina que abra el VB.se sigan abriendo los links q estan dentro de ella.
se podria hacer algo de eso?

Desde ya.Muchisimas gracias.

seba123neo · #2 (**permalink**) 31-05-2008, 02:37:01

hola,pues si se podria,solo abria que ingeniarselas un poco,yo tengo ya la idea de como es pero,decime vos ¿las paginas que queres abrir las queres abrir en ventanas separadas?

saludos.

themaz · #3 (**permalink**) 31-05-2008, 02:43:52

En la misma, pero aca te doy un ejemplo

entro a unsitio.com

y tengo una serie de links. (son solo ejemplos)

yo.com

el.com

tu.com

kiero q se abra uno, pasen unos segundos,se abra el otro,
y asi susesivamente, en la misma ventana

seba123neo · #4 (**permalink**) 31-05-2008, 03:04:01

pues mira,te tengo un codigo,mas o menos como pienso que puede ser,perimero pone un control WebBrowser dentro del formulario,unTimer y un Listbox.

Código:

Dim primero As Boolean

Private Sub Form_Load()
primero = True
WebBrowser1.Navigate "www.google.com.ar"
End Sub

Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i = List1.ListCount + 1 Then MsgBox "Termino la lista": List1.Clear: Exit Sub
primero = False
WebBrowser1.Navigate List1.List(i - 1)
End Sub

Private Sub WebBrowser1_DownloadComplete()
If primero = True Then
Dim i As Integer
List1.Clear
For i = 0 To WebBrowser1.Document.links.length - 1
List1.AddItem WebBrowser1.Document.links.Item(i)
Next
Timer1.Enabled = True
Timer1.Interval = 3000
Else
Exit Sub
End If
End Sub

te va a navegar cada 3 segundos por cada uno de los links de la pagina de google....

si tenes dudas postea...

saludos.

themaz · #5 (**permalink**) 31-05-2008, 05:16:35

no pude solucionarlo asi, necesito q alguien me ayudee :S:S
con una matriz no se puede?

J.M.Movilla · #6 (**permalink**) 31-05-2008, 10:20:30

Sigo este tema con interés, porque de todo se aprende algo; pero en este caso, amigo themaz, poco me permites aprender. Y poco puedes esperar tú si en lugar de explicar por qué no te funciona la solución que te brinda sebas123neo, que me parece completamente válida, te limitas a decir "no pude solucionarlo asi, necesito q alguien me ayudee."

Yo te diría simplemente "Y ¿qué más?"

seba123neo · #7 (**permalink**) 31-05-2008, 18:59:32

la verdad quede

con tu comentario themaz,parece como qeu ni leiste o probaste al menos lo que te puse ahi,eso funciona perfecto,si no lo entendes es otra cosa,pero no creo que haya solucion mas facil que esa...

themaz · #8 (**permalink**) 01-06-2008, 23:11:16

seba123neo.

Disculpa...la verdad es q estaba muy desesperado y no me fije q vos invertiste tiempo tuyo en un problema mio,ya funciono.y la verdad MIL GRACIAS y Disculpa.