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:

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