Tan solo debes imaginar que te das cuenta de que tu internet funciona muy lento, te descargas un programa en el que ves las mac
conectadas en tu red y te das cuenta de que hay 3 direcciones MAC conectadas, la tuya, la de tu madre y una que te quedas: quien coño es.

       Como idea principal, reinicias el router para poder joder un poco a tu vecino, más tarde se vuelve a conectar, como para ti filtrarle la MAC para que no pueda conectarse  no es venganza suficiente, ya que te jodió mucho que tardase un día entero en descargarte tan solo 600mb de vídeos xxx.Llamas a la policía y les enseñas la MAC.

        Pasado un tiempo, la policia española que no tiene ni p**a idea que es una MAC recurre a la policía científica o algo así te dicen que se llaman, comprueban que por la señal que le llega y la distancia entre tu casa y la tuya es el preseunto vecino que tu creías que es, entran a su casa un grupo de élite GEO parten la puerta, tiran una bomba de humo, esposan a todos los que están en esa casa incluido la abuela y cojen su ordenador y comprueban la MAC.


---
        Tu eres ese vecino.

 

Esta currado

     Pues voy hacer un proyecto en vb y he puesto un webBrowser en el que cabe un poco de publi, me gustaria saber si aguien sabe alguna empresa que pague por publicarla y que sea del tema que yo quiera, tipo adsense pero que pague por paypal.

           Gracias a todos por las respuestas jaja me he partido de risa leyendo algunas, intentaré probar las opciones que me han dado Simorg, Novlucker y Lord R.N.A.
           
       Ya la he visto jajajajaja, que uno de los actores que es un haxor se llama "el brujo"
________________
 
        Y por lo de comprarse un disco duro, sería la ley del mínimo esfuerzo y no aprendería nada.

 Alguien sabe algún cd boteable que sirva para eso?
 Alguna forma?

 Espero que me ayuden, gracias por leer mi pregunta.

 Si el procesador calienta demasiado el aceite puedes hacer patatas fritas, alitas de pollo etc...doble uso jaja

cuanto lo pruebe te informo
muchas gracias

  ¿Alguien sabría como se hace en vb para buscar una palabra con por ejemplo 5 caracteres (en números) dentro de un texto y por ejemplo las 20 palabras que vayan a continuación?.(he buscado en google y no encuentro nada)

  Ejemplo form1: label:  buscar palabras con 4 carácteres en números y 2 caracteres cualquieras a continuación.
  textbox : ruta del archivo txt
  commandbutton: extraer
 
 
  contenido del archivo txt:

  elhacker.net es un foro en el que usuario1234 ha realizado un tutorial.

  se crea archivo ejemplo.txt con el contenido: 1234 ha


  ___________
  No digo que me lo deis todo ya masticado (que estaría bien jaja) pero un poco de orientación a este pobre n00b en programación.
  He buscado en google como extraer palabras:

     1. Option Explicit 
   2.   
   3. ' ------------------------------------------------------------------------------ 
   4. ' \\ -- Botón para seleccionar el archivo y leer el las palabras 
   5. ' ------------------------------------------------------------------------------ 
   6. Private Sub Command1_Click() 
   7.   
   8.     Dim Vector()    As String 
   9.     Dim n           As Integer 
  10.     Dim linea       As String 
  11.     Dim texto       As String 
  12.       
  13.     ' -- Configurar diálogo 
  14.     With CommonDialog1 
  15.         .FileName = vbNullString 
  16.         .DialogTitle = " Seleccione el archivo de texto " 
  17.         ' -- Establecer el Filtro ( Archivos de texto y todas las extensiones ) 
  18.         .Filter = "Txt|*.txt|Todos|*.*" 
  19.         ' -- Abrir 
  20.         .ShowOpen 
  21.           
  22.         If .FileName = "" Then Exit Sub 
  23.               
  24.         ' -- Abrir el archivo 
  25.         Open .FileName For Input As #1 
  26.     End With 
  27.       
  28.     ' -- Lee el archivo de texto 
  29.     While Not EOF(1) 
  30.        ' -- Leer una línea 
  31.        Line Input #1, linea 
  32.        If linea = vbNullString Then linea = " " 
  33.        ' -- Almacenar el contenido del archivo 
  34.        texto = texto & linea 
  35.     Wend 
  36.       
  37.     Close 
  38.       
  39.     ' -- Eliminar los espacios dobles 
  40.     texto = Eliminar_Espacios(texto) 
  41.       
  42.     ' - Cargar en el vector las palabras con la función Split 
  43.     Vector = Split(texto, " ") 
  44.     ' -- Eliminar items previos 
  45.     List1.Clear 
  46.     Dim xItem As Variant 
  47.     ' -- Recorrer en un bucle para agregar los elemntos del Array al control List 
  48.     For Each xItem In Vector 
  49.         If Len(xItem) Then List1.AddItem xItem 
  50.     Next 
  51. End Sub 
  52.   
  53. ' -------------------------------------------------------------------------------- 
  54. ' \\ -- Eliminar los espacios dobles con la función Replace 
  55. ' -------------------------------------------------------------------------------- 
  56. Public Function Eliminar_Espacios(texto As String) As String 
  57.       
  58.     On Error GoTo ErrSub 
  59.   
  60.     texto = Replace(texto, vbTab, " ") 
  61.     texto = Replace(texto, vbCrLf, " ") 
  62.       
  63.     Do While (InStr(texto, "  ")) 
  64.        texto = Replace(texto, "  ", " ") 
  65.     Loop 
  66.   
  67.     Eliminar_Espacios = Trim$(texto) 
  68.       
  69.     Exit Function 
  70.   
  71. ErrSub: 
  72.     MsgBox Err.Description, vbCritical 
  73. End Function 
  74.   
  75.   
  76. Private Sub Form_Load() 
  77.     Command1.Caption = "Seleccionar un archivo" 
  78. End Sub 

 Pero son cuentas robadas? xD