(ayuda) auto navegador

[N@5h]

hola gente nesesito en visual studio 2010 creo q es igual para el 2005 en adelante..

de un listbox tengo una lista de link...
y que cada cierto tiempo las valla ejecutando en el webrowser.

yo hace tiempo avia echo algo asi pero para vb 6.0 pero con windows 7 no hay forma que funcione el vb...

yo tengo esto del codigo en vb.

Código [Seleccionar] Expandir

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Static i As Integer

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

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

me tira todos estos errores

    Error 1 'ListCount' no es un miembro de 'System.Windows.Forms.ListBox'. C:\Users\x\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 23 16 WindowsApplication1
    Error 2 Los argumentos de método se deben incluir entre paréntesis. C:\Users\x\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 29 30 WindowsApplication1
    Error 3 'List' no es un miembro de 'System.Windows.Forms.ListBox'. C:\Users\x\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 29 30 WindowsApplication1
    Error 4 'Caption' no es un miembro de 'WindowsApplication1.Form1'. C:\Users\x\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 30 9 WindowsApplication1
    Error 5 'List' no es un miembro de 'System.Windows.Forms.ListBox'. C:\Users\x\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 30 41 WindowsApplication1
    Error 6 'Selected' no es un miembro de 'System.Windows.Forms.ListBox'. C:\Users\x\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 31 9 WindowsApplication1


como programador nose ni de que me abla.. jeje

desde ya mil gracias...
espero una ayudtia..

saludos..
nash

[Eleкtro]

Error 2 Los argumentos de método se deben incluir entre paréntesis

Vuelvo a citar el error:

Error 2 Los argumentos de método se deben incluir entre paréntesis.

No debería ser necesário una explicación para ese error, aquí tienes la solución:

Código (vbnet) [Seleccionar] Expandir

WebBrowser1.Navigate(ListBox1.List(i - 1))

Error 4 'Caption' no es un miembro de 'WindowsApplication1.Form1'.

La propiedad "Caption" no existe, su equivalente es "Text":

Código (vbnet) [Seleccionar] Expandir

me.text = "Navegando en '" & ListBox1.List(i - 1) & "'"

   Error 1 'ListCount' no es un miembro de 'System.Windows.Forms.ListBox'. C:\Users\x\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 23 16 WindowsApplication1
   Error 3 'List' no es un miembro de 'System.Windows.Forms.ListBox'. C:\Users\x\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 29 30 WindowsApplication1
   Error 5 'List' no es un miembro de 'System.Windows.Forms.ListBox'. C:\Users\x\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 30 41 WindowsApplication1
   Error 6 'Selected' no es un miembro de 'System.Windows.Forms.ListBox'. C:\Users\x\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 31 9 WindowsApplication1

Lo mismo que antes, esas propiedades no existen, debes buscar sus equivalentes.

Como nota adicional: Estás intentando mostrar un msgbox antes de desactivar el timer, y si haces eso el timer seguirá tickeando.

Aquí tienes:

Código (vbnet) [Seleccionar] Expandir

   Private Sub Timer1_Tick(Sender As Object, e As EventArgs) Handles Timer1.Tick
       Static i As Integer = 0

       If i = ListBox1.Items.Count Then
           Sender.enabled = False
            i = 0
           MsgBox("Terminó la lista")
       Else
           ListBox1.SelectedIndex = i
           WebBrowser1.Navigate(ListBox1.SelectedItem)
           Me.Text = "Navegando en '" & ListBox1.SelectedItem & "'"
           i += 1
       End If

   End Sub

Saludos!

[N@5h]

gracias compa....

tengo un incombeniente no me abre cada pagina que va pasando en el navegador... poruqe puede ser??

puse de tiempo asta un min y nada todavia... :S

[Eleкtro]

Las URLS están corréctamente escritas...?:

Código [Seleccionar] Expandir

http://www.url.com/

Especifica mejor el problema, ¿Que significa "no se abre"?, ¿Te muestra alguna excepción?.

saludos!

[N@5h]

mirate aca te subi el proyecto compa... efijate si te das cuenta cual puede ser el error

Código [Seleccionar] Expandir

https://mega.co.nz/#!AdFTjLDb!BPFoK2i7Q25IzVmFxA2tBD-NvgQU3gL4Tez94cR1vHc

no me tira error ni nada.. solamente va bajando en el listbox1

y en el webbrowser no aparecen las web... a medida q van cambiando...

[Eleкtro]

hmmm pues que raro, a mi si que me funciona corréctamente:

Código (vbnet) [Seleccionar] Expandir


public class class1

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.ClientSize = New Point(640, 480)

       Dim ListBox1 As New ListBox, WebBrowser1 As New WebBrowser
       ListBox1.Dock = DockStyle.Top : WebBrowser1.Dock = DockStyle.Bottom
       Me.Controls.Add(ListBox1) : Me.Controls.Add(WebBrowser1)

       ListBox1.Items.Clear()
       ListBox1.Items.Add("https://mega.co.nz/#!AdFTjLDb!BPFoK2i7Q25IzVmFxA2tBD-NvgQU3gL4Tez94cR1vHc")
       ListBox1.SelectedIndex = 0

       WebBrowser1.Navigate(ListBox1.SelectedItem)
   End Sub

end class

Prueba el código a ver si a ti te funciona como a mi, ¿Vale?

No se me ocurre porque puede ser.

[Eleкtro]

Vale ya he visto tu proyecto,

el error es que estás deteniendo la ejecución del Thread al usar Thread.sleep.

El timer tickea cada 100 ms, y tu estás deteniendo el Thread por 5 segundos en cada Tick, BIG PROBLEM xD.

Te recomiendo que uses la propiedad interval del timer para ajustar el tiempo que deseas:

Código [Seleccionar] Expandir

Timer1.Interval = 5 * 1000

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ListBox1.Items.Add(TextBox1.Text) ' Añadimos el dato
       TextBox1.SelectAll() ' Seleccionamos el texto
       TextBox1.Select() ' y activamos el TextBox
   End Sub

   Private Sub Timer1_Tick(Sender As Object, e As EventArgs) Handles Timer1.Tick
       Static i As Integer = 0

       If i = ListBox1.Items.Count Then
           Sender.Stop()
           i = 0
           MsgBox("Terminó la lista")
       Else
           ListBox1.SelectedIndex = i
           WebBrowser1.Navigate(ListBox1.SelectedItem)
           Me.Text = "Navegando en '" & ListBox1.SelectedItem & "'"
           i += 1
       End If

   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Timer1.Interval = 5 * 1000
       Timer1.Start()
   End Sub

End Class

EDITO: Otra forma de hacerlo, sin depender de un Timer, sería así:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Dim Seconds As Long = 0

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ListBox1.Items.Add(TextBox1.Text) ' Añadimos el dato
       TextBox1.SelectAll() ' Seleccionamos el texto
       TextBox1.Select() ' y activamos el TextBox
   End Sub

   Private Sub NavigateListBox()
       For Each URL As String In ListBox1.Items
           Me.Text = "Navegando en '" & URL & "'"
           WebBrowser1.Navigate(URL)
           Sleep(Seconds) ' Segundos
       Next
   End Sub

   Private Sub Sleep(ByVal Duration As Int64)
       Dim Starttime = DateTime.Now
       Do While (DateTime.Now - Starttime).TotalSeconds < Duration : Application.DoEvents() : Loop
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       NavigateListBox()
   End Sub

   Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
       Seconds = CLng(sender.text)
   End Sub

End Class

Saludos!

[N@5h]

de dies amigo mil gracias probe ahora a mejorar mi programita dps te lo comparto un abrazo compa...

[N@5h]

compa... te re agradezco por todo..

ahora una pregunta si yo quiero q poner un proxi q cada link q clike cambie de una lsita de proxies q le pongo es un mambo verdad??

yo encontre esto en el foro:

Código [Seleccionar] Expandir


WebProxy proxyObject = new WebProxy("http://proxyserver:80/",true);
HttpWebRequest req = (HttpWebRequest)WebRequest.Create("http://www.elhacker.net");
req.Proxy = proxyObject;

req.UserAgent = "El Hacker .Net User Agent";
HttpWebResponse resp = (HttpWebResponse)req.GetResponse();
webBrowser1.DocumentStream = resp.GetResponseStream();


nose si es funcional pero...

tambien encontre esto pero no entiendo nada en ingles...

http://tiredblogger.wordpress.com/2008/01/03/flash-and-proxy-support-on-net-webbrowser-controls/

[Eleкtro]

http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html;msg1846979#msg1846979