Test Foro de elhacker.net SMF 2.1

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.

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

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

Vuelvo a citar el error:

CitarError 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:
WebBrowser1.Navigate(ListBox1.List(i - 1))

---

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

La propiedad "Caption" no existe, su equivalente es "Text":
me.text = "Navegando en '" & ListBox1.List(i - 1) & "'"

---

Cita de: N@5h en 18 Abril 2013, 15:41 PM
   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:
   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!

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

Las URLS están corréctamente escritas...?:
http://www.url.com/

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

saludos!

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


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...

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


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.

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:
Timer1.Interval = 5 * 1000


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í:

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!

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

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:


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...

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

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