elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Bot para tener mas visistas en youtube
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Bot para tener mas visistas en youtube  (Leído 1,627 veces)
Synieztro

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Bot para tener mas visistas en youtube
« en: 22 Marzo 2017, 14:30 pm »

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
  1. Imports System
  2. Imports System.IO
  3.  
  4. Public Class Form1
  5.  
  6.    Dim RutaMaestra As String = "C:/Visitas/"
  7.    Dim RutaArchivoURLs As String = RutaMaestra & "URLs.txt"
  8.    Dim RutaArchivoDuraciones As String = RutaMaestra & "Duraciones.txt"
  9.  
  10.    Dim ArchivoURLs As New RichTextBox
  11.    Dim ArchivoDuraciones As New RichTextBox
  12.  
  13.    Dim URL As String
  14.    Dim Duracion As Integer
  15.    Dim Visita As Integer
  16.    Dim LineasTotales As Integer
  17.  
  18.    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  19.  
  20.        Try
  21.  
  22.            Dim Abrir1 As New StreamReader(RutaArchivoURLs)
  23.            ArchivoURLs.Text = Abrir1.ReadToEnd
  24.            Abrir1.Close()
  25.  
  26.        Catch ex As Exception
  27.            MsgBox("Error al cargar el archivo URLs.txt", MsgBoxStyle.Critical, Title:="Visitas by Synieztro")
  28.        End Try
  29.  
  30.        Try
  31.  
  32.            Dim Abrir2 As New StreamReader(RutaArchivoDuraciones)
  33.            ArchivoDuraciones.Text = Abrir2.ReadToEnd
  34.            Abrir2.Close()
  35.  
  36.        Catch ex As Exception
  37.            MsgBox("Error al cargar el archivo Duraciones.txt", MsgBoxStyle.Critical, Title:="Visitas by Synieztro")
  38.        End Try
  39.  
  40.    End Sub
  41.  
  42.    Private Sub BotonActualizar_Click(sender As Object, e As EventArgs) Handles BotonActualizar.Click
  43.  
  44.        Timer.Enabled = False
  45.        LabelEstado.Text = "Parado"
  46.        LabelEstado.ForeColor = Color.Red
  47.  
  48.        Try
  49.  
  50.            Dim Abrir1 As New StreamReader(RutaArchivoURLs)
  51.            ArchivoURLs.Text = Abrir1.ReadToEnd
  52.            Abrir1.Close()
  53.  
  54.        Catch ex As Exception
  55.            MsgBox("Error al Actualizar el archivo URLs.txt", MsgBoxStyle.Critical, Title:="Visitas by Synieztro")
  56.        End Try
  57.  
  58.        Try
  59.  
  60.            Dim Abrir2 As New StreamReader(RutaArchivoDuraciones)
  61.            ArchivoDuraciones.Text = Abrir2.ReadToEnd
  62.            Abrir2.Close()
  63.  
  64.        Catch ex As Exception
  65.            MsgBox("Error al Actualizar el archivo Duraciones.txt", MsgBoxStyle.Critical, Title:="Visitas by Synieztro")
  66.        End Try
  67.  
  68.        MsgBox("Exito al Actulizar", MsgBoxStyle.Information, Title:="Visitas by Synieztro")
  69.  
  70.    End Sub
  71.  
  72.    Private Sub BotonIniciar_Click(sender As Object, e As EventArgs) Handles BotonIniciar.Click
  73.  
  74.        Try
  75.  
  76.            Dim Linea As Integer = 0
  77.  
  78. Volver1:
  79.            If ArchivoURLs.Lines(Linea) = "</lapruur>" Then
  80.  
  81.                GoTo salir1
  82.  
  83.            Else
  84.  
  85.                Linea = Linea + 1
  86.                GoTo Volver1
  87.  
  88.            End If
  89. Salir1:
  90.            LineasTotales = Linea
  91.  
  92.  
  93.            Timer.Enabled = True
  94.            LabelEstado.Text = "Iniciado"
  95.            LabelEstado.ForeColor = Color.Green
  96.  
  97.        Catch ex As Exception
  98.            MsgBox("Error al iniciar", MsgBoxStyle.Critical, Title:="Visitas by Synieztro")
  99.        End Try
  100.  
  101.        MsgBox("Iniciado", MsgBoxStyle.Information, Title:="Visitas by Synieztro")
  102.  
  103.    End Sub
  104.  
  105.    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
  106.  
  107.        Duracion = Val(ArchivoDuraciones.Lines(Visita)) * 1000
  108.  
  109.        Timer.Interval = Duracion
  110.  
  111.        URL = ArchivoURLs.Lines(Visita)
  112.  
  113.        Navegador.Navigate(URL)
  114.  
  115.        Visita = Visita + 1
  116.  
  117.        If Visita = LineasTotales Then
  118.            Visita = 0
  119.        End If
  120.  
  121.    End Sub
  122.  
  123.    Private Sub BotonParar_Click(sender As Object, e As EventArgs) Handles BotonParar.Click
  124.  
  125.        Timer.Enabled = False
  126.        LabelEstado.Text = "Parado"
  127.        LabelEstado.ForeColor = Color.Red
  128.  
  129.        MsgBox("¡Parado!", MsgBoxStyle.Information, Title:="Visitas by Synieztro")
  130.  
  131.    End Sub
  132. End Class

MOD: Etiqueta GeSHi.


« Última modificación: 22 Marzo 2017, 14:45 pm por MCKSys Argentina » En línea

MCKSys Argentina
Moderador Global
***
Desconectado Desconectado

Mensajes: 5.465


Diviértete crackeando, que para eso estamos!


Ver Perfil
Re: Bot para tener mas visistas en youtube
« Respuesta #1 en: 22 Marzo 2017, 14:49 pm »

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!


En línea

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

Synieztro

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Bot para tener mas visistas en youtube
« Respuesta #2 en: 22 Marzo 2017, 14:52 pm »

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?
En línea

Meta


Desconectado Desconectado

Mensajes: 3.438



Ver Perfil WWW
Re: Bot para tener mas visistas en youtube
« Respuesta #3 en: 23 Marzo 2017, 07:59 am »

Este tipo de cosas está muy protegido por google, muy protegido precisamente para evitar visitas falsas y llamar la atención cuando en realidad no debe haberla. A parte de esto, par no ganar dinero por visitas fantasmas.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines