Mensajes

Hola!

Creo que el problema no está en el código (el cual no he mirado), sinó en que lo que haces lo haces siempre desde la misma ip y youtube se da cuenta. Por eso te deja de contar visitas.

Saludos!

Si es lo que yo creo! pero la duda que me surge es que porque no dejo de aumentarme visitas en la mitad del horario en que funciono ayer! Me explico?

[Bot para tener mas Visitas en Youtube]

Bot para tener mas Visitas en Youtube

Eh creado un bot para aumentar las vistas en mis videos de Youtube .
les cuento un pequeña historia (Tranquil@ no trato de vender nada)
Cuando cree el programa eran las 10:00 am y lo puse a funcionar hasta las 22:30 y me funciono muy bien aumento mucho las visitas a mis videos pero cuando hoy quise hacer lo mismo no funciona! Pero como que no funciona? Pues el programa anda bien tal cual lo programe pero dejo de aumentar las vistas en mis videos y nose por que, quisiera saber si me pueden ayudar con este es el codigo en Visual basic 2012 para que vuelva a aumentar las visitas a mis videos:

Código (vbnet) [Seleccionar] Expandir

Imports System
Imports System.IO

Public Class Form1

    Dim RutaMaestra As String = "C:/Visitas/"
    Dim RutaArchivoURLs As String = RutaMaestra & "URLs.txt"
    Dim RutaArchivoDuraciones As String = RutaMaestra & "Duraciones.txt"

    Dim ArchivoURLs As New RichTextBox
    Dim ArchivoDuraciones As New RichTextBox

    Dim URL As String
    Dim Duracion As Integer
    Dim Visita As Integer
    Dim LineasTotales As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try

            Dim Abrir1 As New StreamReader(RutaArchivoURLs)
            ArchivoURLs.Text = Abrir1.ReadToEnd
            Abrir1.Close()

        Catch ex As Exception
            MsgBox("Error al cargar el archivo URLs.txt", MsgBoxStyle.Critical, Title:="Visitas by Synieztro")
        End Try

        Try

            Dim Abrir2 As New StreamReader(RutaArchivoDuraciones)
            ArchivoDuraciones.Text = Abrir2.ReadToEnd
            Abrir2.Close()

        Catch ex As Exception
            MsgBox("Error al cargar el archivo Duraciones.txt", MsgBoxStyle.Critical, Title:="Visitas by Synieztro")
        End Try

    End Sub

    Private Sub BotonActualizar_Click(sender As Object, e As EventArgs) Handles BotonActualizar.Click

        Timer.Enabled = False
        LabelEstado.Text = "Parado"
        LabelEstado.ForeColor = Color.Red

        Try

            Dim Abrir1 As New StreamReader(RutaArchivoURLs)
            ArchivoURLs.Text = Abrir1.ReadToEnd
            Abrir1.Close()

        Catch ex As Exception
            MsgBox("Error al Actualizar el archivo URLs.txt", MsgBoxStyle.Critical, Title:="Visitas by Synieztro")
        End Try

        Try

            Dim Abrir2 As New StreamReader(RutaArchivoDuraciones)
            ArchivoDuraciones.Text = Abrir2.ReadToEnd
            Abrir2.Close()

        Catch ex As Exception
            MsgBox("Error al Actualizar el archivo Duraciones.txt", MsgBoxStyle.Critical, Title:="Visitas by Synieztro")
        End Try

        MsgBox("Exito al Actulizar", MsgBoxStyle.Information, Title:="Visitas by Synieztro")

    End Sub

    Private Sub BotonIniciar_Click(sender As Object, e As EventArgs) Handles BotonIniciar.Click

        Try

            Dim Linea As Integer = 0

Volver1:
            If ArchivoURLs.Lines(Linea) = "</lapruur>" Then

                GoTo salir1

            Else

                Linea = Linea + 1
                GoTo Volver1

            End If
Salir1:
            LineasTotales = Linea


            Timer.Enabled = True
            LabelEstado.Text = "Iniciado"
            LabelEstado.ForeColor = Color.Green

        Catch ex As Exception
            MsgBox("Error al iniciar", MsgBoxStyle.Critical, Title:="Visitas by Synieztro")
        End Try

        MsgBox("Iniciado", MsgBoxStyle.Information, Title:="Visitas by Synieztro")

    End Sub

    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick

        Duracion = Val(ArchivoDuraciones.Lines(Visita)) * 1000

        Timer.Interval = Duracion

        URL = ArchivoURLs.Lines(Visita)

        Navegador.Navigate(URL)

        Visita = Visita + 1

        If Visita = LineasTotales Then
            Visita = 0
        End If

    End Sub

    Private Sub BotonParar_Click(sender As Object, e As EventArgs) Handles BotonParar.Click

        Timer.Enabled = False
        LabelEstado.Text = "Parado"
        LabelEstado.ForeColor = Color.Red

        MsgBox("¡Parado!", MsgBoxStyle.Information, Title:="Visitas by Synieztro")

    End Sub
End Class

MOD: Etiqueta GeSHi.