Automatizar el funcionamiento de una aplicación que simula un piano (pulsar automáticamente las notas del piano) | Operating systems, scripting, PowerShell and security

Automatización, C, Lo mejor, PowerShell

La explicación detallada de cómo funciona se puede obtener contratando clases en el apartado https://www.jesusninoc.com/cursos/

Formulario que simula el piano

# Crear un piano que suene
# Crear una clase con dos propiedades: nombre y frecuencia de la nota
class Nota
{ 
    [String]$nombre
    [Int]$frecuencia
}
 
# Crear un ArrayList para añadir los objetos de la clase Coche
$notas = New-Object System.Collections.ArrayList
[void]$notas.Add([Nota]@{nombre="DO";frecuencia=261})
[void]$notas.Add([Nota]@{nombre="RE";frecuencia=293})
[void]$notas.Add([Nota]@{nombre="MI";frecuencia=329})
[void]$notas.Add([Nota]@{nombre="FA";frecuencia=349})
[void]$notas.Add([Nota]@{nombre="SOL";frecuencia=391})
[void]$notas.Add([Nota]@{nombre="LA";frecuencia=440})
[void]$notas.Add([Nota]@{nombre="SI";frecuencia=493})

$buttons_functionbuttoncount = $notas.count

$loop = 0

#Formulario
$Form = New-Object System.Windows.Forms.Form
$Form.Text="Formulario"
$Form.Size=New-Object System.Drawing.Size(500,500)
$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)
    {
    $thisbutton = New-Object System.Windows.Forms.Button
    [string]$thisbuttonname = $notas.nombre[$loop]
    $thisbutton.Text = $thisbuttonname
    $thisbutton.size = New-Object System.Drawing.Size(100,40)
    $thisbutton.Location = New-Object System.Drawing.Size(200,(40*$loop+1))
    $thisbutton.Add_Click({
            Write-Host $this.text
            $posicionnota = $notas.nombre.IndexOf($this.text)
            [System.Console]::Beep($notas[$posicionnota].frecuencia,500)
        })
    $Form.Controls.Add($thisbutton)
    $loop += 1
    }

$Form.ShowDialog()

# Crear un piano que suene

# Crear una clase con dos propiedades: nombre y frecuencia de la nota

class Nota

{

[String]$nombre

[Int]$frecuencia

}

# Crear un ArrayList para añadir los objetos de la clase Coche

$notas = New-Object System.Collections.ArrayList

[void]$notas.Add([Nota]@{nombre="DO";frecuencia=261})

[void]$notas.Add([Nota]@{nombre="RE";frecuencia=293})

[void]$notas.Add([Nota]@{nombre="MI";frecuencia=329})

[void]$notas.Add([Nota]@{nombre="FA";frecuencia=349})

[void]$notas.Add([Nota]@{nombre="SOL";frecuencia=391})

[void]$notas.Add([Nota]@{nombre="LA";frecuencia=440})

[void]$notas.Add([Nota]@{nombre="SI";frecuencia=493})

$buttons_functionbuttoncount = $notas.count

$loop = 0

#Formulario

$Form = New-Object System.Windows.Forms.Form

$Form.Text="Formulario"

$Form.Size=New-Object System.Drawing.Size(500,500)

$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)

{

$thisbutton = New-Object System.Windows.Forms.Button

[string]$thisbuttonname = $notas.nombre[$loop]

$thisbutton.Text = $thisbuttonname

$thisbutton.size = New-Object System.Drawing.Size(100,40)

$thisbutton.Location = New-Object System.Drawing.Size(200,(40*$loop+1))

$thisbutton.Add_Click({

Write-Host $this.text

$posicionnota = $notas.nombre.IndexOf($this.text)

[System.Console]::Beep($notas[$posicionnota].frecuencia,500)

})

$Form.Controls.Add($thisbutton)

$loop += 1

}

$Form.ShowDialog()

Detectar la nota «DO» y pulsar automáticamente

$MethodDefinition = @'
        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        public static extern int GetWindowText(IntPtr hWnd, string strText, int maxCount);

        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        public static extern int GetWindowTextLength(IntPtr hWnd);

        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);

        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        public static extern int GetClassName(IntPtr hWnd, string lpClassName, int nMaxCount);

        // Delegate to filter which windows to include.  Required by EnumWindows()
        public delegate bool EnumWindowsProc(IntPtr hwnd, System.Collections.ArrayList lParam);

        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        [return: MarshalAs(UnmanagedType.Bool)]
        public static extern bool EnumWindows(EnumWindowsProc lpEnumFunc, System.Collections.ArrayList lParam);
            
        // These two functions are in C# because I can't figure out how to use the .NET API callback functionality via PowerShell
        public static System.Collections.ArrayList GetWindows()
        {
            System.Collections.ArrayList windowHandles = new System.Collections.ArrayList();
            EnumWindowsProc callBackPtr = GetWindowHandle;
            EnumWindows(callBackPtr, windowHandles);

            return windowHandles;
        }

        private static bool GetWindowHandle(IntPtr hwnd, System.Collections.ArrayList windowHandles)
        {
            windowHandles.Add(hwnd);
            return true;
        }
'@

Add-Type -MemberDefinition $MethodDefinition -Name 'ShowHideWindow' -Namespace 'User32' | Out-Null

$hwnds = [User32.ShowHideWindow]::GetWindows()

$ultimo = $hwnds | sort

#  Quick method to create a string of ~290 characters
[String]$tempString = (0..100)
$stringLength = $tempString.Length
[System.Collections.ArrayList]$Windows = @()

# Convertir hex to dec
# [uint32]"0X002A00A8"

foreach ($hwnd in 1..5752680) {
    $ClassNameLength = [User32.ShowHideWindow]::GetClassName($hwnd, $tempString, $stringLength)
    $ClassName = $tempString.Substring(0,$ClassNameLength)
    if($ClassName)
    {
        #$hwnd
        #$ClassName
        $WindowTextLength = [User32.ShowHideWindow]::GetWindowText($hWnd, $tempString, $stringLength)
        $WindowText = $tempString.Substring(0,$WindowTextLength)
        #$WindowText
        $Window = New-Object -TypeName psobject -Property @{hwnd = $hwnd; ClassName = $ClassName; WindowText = $WindowText}
        $Windows.Add($Window) | Out-Null
    }
}

$idcickdo = $Windows| where {$_.WindowText -eq "DO"}

$codigo2='
[DllImport("user32.dll", EntryPoint = "FindWindowEx")]public static extern IntPtr FindWindowEx(IntPtr hwndParent, IntPtr hwndChildAfter, string lpszClass, string lpszWindow);
[DllImport("User32.dll")]public static extern int SendMessage(IntPtr hWnd, int uMsg, int wParam, string lParam);
'

$acciones = Add-Type -MemberDefinition $codigo2 -Name Acciones -PassThru

# Hacer click en el botón
0..($idcick.hwnd.Length -1) | % {$acciones::SendMessage($idcickdo.hwnd[$_], 0x00F5, 0, 0)}

$MethodDefinition = @'

[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

public static extern int GetWindowText(IntPtr hWnd, string strText, int maxCount);

[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

public static extern int GetWindowTextLength(IntPtr hWnd);

[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);

[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

public static extern int GetClassName(IntPtr hWnd, string lpClassName, int nMaxCount);

// Delegate to filter which windows to include. Required by EnumWindows()

public delegate bool EnumWindowsProc(IntPtr hwnd, System.Collections.ArrayList lParam);

[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

[return: MarshalAs(UnmanagedType.Bool)]

public static extern bool EnumWindows(EnumWindowsProc lpEnumFunc, System.Collections.ArrayList lParam);

// These two functions are in C# because I can't figure out how to use the .NET API callback functionality via PowerShell

public static System.Collections.ArrayList GetWindows()

{

System.Collections.ArrayList windowHandles = new System.Collections.ArrayList();

EnumWindowsProc callBackPtr = GetWindowHandle;

EnumWindows(callBackPtr, windowHandles);

return windowHandles;

}

private static bool GetWindowHandle(IntPtr hwnd, System.Collections.ArrayList windowHandles)

{

windowHandles.Add(hwnd);

return true;

}

Add-Type -MemberDefinition $MethodDefinition -Name 'ShowHideWindow' -Namespace 'User32' | Out-Null

$hwnds = [User32.ShowHideWindow]::GetWindows()

$ultimo = $hwnds | sort

# Quick method to create a string of ~290 characters

[String]$tempString = (0..100)

$stringLength = $tempString.Length

[System.Collections.ArrayList]$Windows = @()

# Convertir hex to dec

# [uint32]"0X002A00A8"

foreach ($hwnd in 1..5752680) {

$ClassNameLength = [User32.ShowHideWindow]::GetClassName($hwnd, $tempString, $stringLength)

$ClassName = $tempString.Substring(0,$ClassNameLength)

if($ClassName)

{

#$hwnd

#$ClassName

$WindowTextLength = [User32.ShowHideWindow]::GetWindowText($hWnd, $tempString, $stringLength)

$WindowText = $tempString.Substring(0,$WindowTextLength)

#$WindowText

$Window = New-Object -TypeName psobject -Property @{hwnd = $hwnd; ClassName = $ClassName; WindowText = $WindowText}

$Windows.Add($Window) | Out-Null

}

$idcickdo = $Windows| where {$_.WindowText -eq "DO"}

$codigo2='

[DllImport("user32.dll", EntryPoint = "FindWindowEx")]public static extern IntPtr FindWindowEx(IntPtr hwndParent, IntPtr hwndChildAfter, string lpszClass, string lpszWindow);

[DllImport("User32.dll")]public static extern int SendMessage(IntPtr hWnd, int uMsg, int wParam, string lParam);

$acciones = Add-Type -MemberDefinition $codigo2 -Name Acciones -PassThru

# Hacer click en el botón

0..($idcick.hwnd.Length -1) | % {$acciones::SendMessage($idcickdo.hwnd[$_], 0x00F5, 0, 0)}

Detectar todas las notas y pulsar automáticamente una melodía (localizar cada botón de cada nota y pulsarlo automáticamente según indique la melodía)

$MethodDefinition = @'
        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        public static extern int GetWindowText(IntPtr hWnd, string strText, int maxCount);

        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        public static extern int GetWindowTextLength(IntPtr hWnd);

        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);

        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        public static extern int GetClassName(IntPtr hWnd, string lpClassName, int nMaxCount);

        // Delegate to filter which windows to include.  Required by EnumWindows()
        public delegate bool EnumWindowsProc(IntPtr hwnd, System.Collections.ArrayList lParam);

        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        [return: MarshalAs(UnmanagedType.Bool)]
        public static extern bool EnumWindows(EnumWindowsProc lpEnumFunc, System.Collections.ArrayList lParam);
            
        // These two functions are in C# because I can't figure out how to use the .NET API callback functionality via PowerShell
        public static System.Collections.ArrayList GetWindows()
        {
            System.Collections.ArrayList windowHandles = new System.Collections.ArrayList();
            EnumWindowsProc callBackPtr = GetWindowHandle;
            EnumWindows(callBackPtr, windowHandles);

            return windowHandles;
        }

        private static bool GetWindowHandle(IntPtr hwnd, System.Collections.ArrayList windowHandles)
        {
            windowHandles.Add(hwnd);
            return true;
        }
'@

Add-Type -MemberDefinition $MethodDefinition -Name 'ShowHideWindow' -Namespace 'User32' | Out-Null

$hwnds = [User32.ShowHideWindow]::GetWindows()

$ultimo = $hwnds | sort

#  Quick method to create a string of ~290 characters
[String]$tempString = (0..100)
$stringLength = $tempString.Length
[System.Collections.ArrayList]$Windows = @()

# Convertir hex to dec
# [uint32]"0X002A00A8"

foreach ($hwnd in 1..5752680) {
    $ClassNameLength = [User32.ShowHideWindow]::GetClassName($hwnd, $tempString, $stringLength)
    $ClassName = $tempString.Substring(0,$ClassNameLength)
    if($ClassName)
    {
        #$hwnd
        #$ClassName
        $WindowTextLength = [User32.ShowHideWindow]::GetWindowText($hWnd, $tempString, $stringLength)
        $WindowText = $tempString.Substring(0,$WindowTextLength)
        #$WindowText
        $Window = New-Object -TypeName psobject -Property @{hwnd = $hwnd; ClassName = $ClassName; WindowText = $WindowText}
        $Windows.Add($Window) | Out-Null
    }
}

$do = $Windows| where {$_.WindowText -eq "DO"}
$re = $Windows| where {$_.WindowText -eq "RE"}
$mi = $Windows| where {$_.WindowText -eq "MI"}
$fa = $Windows| where {$_.WindowText -eq "FA"}
$sol = $Windows| where {$_.WindowText -eq "SOL"}
$la = $Windows| where {$_.WindowText -eq "LA"}
$si = $Windows| where {$_.WindowText -eq "SI"}

$codigo2='
[DllImport("user32.dll", EntryPoint = "FindWindowEx")]public static extern IntPtr FindWindowEx(IntPtr hwndParent, IntPtr hwndChildAfter, string lpszClass, string lpszWindow);
[DllImport("User32.dll")]public static extern int SendMessage(IntPtr hWnd, int uMsg, int wParam, string lParam);
'

$acciones = Add-Type -MemberDefinition $codigo2 -Name Acciones -PassThru

$cancion = "Do Do Do Fa La Do Do Do Fa La Fa Fa Mi Mi Re Re Do Do Do Do Mi Sol Do Do Do Mi Sol do re do"

# Hacer click en el botón
foreach($nota in $cancion.split(" "))
{
    $acciones::SendMessage(("$"+($nota) | iex).hwnd, 0x00F5, 0, 0)
}

$MethodDefinition = @'

[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

public static extern int GetWindowText(IntPtr hWnd, string strText, int maxCount);

[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

public static extern int GetWindowTextLength(IntPtr hWnd);

[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);

[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

public static extern int GetClassName(IntPtr hWnd, string lpClassName, int nMaxCount);

// Delegate to filter which windows to include. Required by EnumWindows()

public delegate bool EnumWindowsProc(IntPtr hwnd, System.Collections.ArrayList lParam);

[DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]

[return: MarshalAs(UnmanagedType.Bool)]

public static extern bool EnumWindows(EnumWindowsProc lpEnumFunc, System.Collections.ArrayList lParam);

// These two functions are in C# because I can't figure out how to use the .NET API callback functionality via PowerShell

public static System.Collections.ArrayList GetWindows()

{

System.Collections.ArrayList windowHandles = new System.Collections.ArrayList();

EnumWindowsProc callBackPtr = GetWindowHandle;

EnumWindows(callBackPtr, windowHandles);

return windowHandles;

}

private static bool GetWindowHandle(IntPtr hwnd, System.Collections.ArrayList windowHandles)

{

windowHandles.Add(hwnd);

return true;

}

Add-Type -MemberDefinition $MethodDefinition -Name 'ShowHideWindow' -Namespace 'User32' | Out-Null

$hwnds = [User32.ShowHideWindow]::GetWindows()

$ultimo = $hwnds | sort

# Quick method to create a string of ~290 characters

[String]$tempString = (0..100)

$stringLength = $tempString.Length

[System.Collections.ArrayList]$Windows = @()

# Convertir hex to dec

# [uint32]"0X002A00A8"

foreach ($hwnd in 1..5752680) {

$ClassNameLength = [User32.ShowHideWindow]::GetClassName($hwnd, $tempString, $stringLength)

$ClassName = $tempString.Substring(0,$ClassNameLength)

if($ClassName)

{

#$hwnd

#$ClassName

$WindowTextLength = [User32.ShowHideWindow]::GetWindowText($hWnd, $tempString, $stringLength)

$WindowText = $tempString.Substring(0,$WindowTextLength)

#$WindowText

$Window = New-Object -TypeName psobject -Property @{hwnd = $hwnd; ClassName = $ClassName; WindowText = $WindowText}

$Windows.Add($Window) | Out-Null

}

$do = $Windows| where {$_.WindowText -eq "DO"}

$re = $Windows| where {$_.WindowText -eq "RE"}

$mi = $Windows| where {$_.WindowText -eq "MI"}

$fa = $Windows| where {$_.WindowText -eq "FA"}

$sol = $Windows| where {$_.WindowText -eq "SOL"}

$la = $Windows| where {$_.WindowText -eq "LA"}

$si = $Windows| where {$_.WindowText -eq "SI"}

$codigo2='

[DllImport("user32.dll", EntryPoint = "FindWindowEx")]public static extern IntPtr FindWindowEx(IntPtr hwndParent, IntPtr hwndChildAfter, string lpszClass, string lpszWindow);

[DllImport("User32.dll")]public static extern int SendMessage(IntPtr hWnd, int uMsg, int wParam, string lParam);

$acciones = Add-Type -MemberDefinition $codigo2 -Name Acciones -PassThru

$cancion = "Do Do Do Fa La Do Do Do Fa La Fa Fa Mi Mi Re Re Do Do Do Do Mi Sol Do Do Do Mi Sol do re do"

# Hacer click en el botón

foreach($nota in $cancion.split(" "))

{

$acciones::SendMessage(("$"+($nota) | iex).hwnd, 0x00F5, 0, 0)

}

Publicado el día 3 de febrero de 2021

CATEGORÍAS

Automatización, C, Lo mejor, PowerShell

Automatizar el funcionamiento de una aplicación que simula un piano (pulsar automáticamente las notas del piano) (PowerShell, Lo mejor, C, Automatización)

Formulario que simula el piano

Detectar la nota «DO» y pulsar automáticamente

Detectar todas las notas y pulsar automáticamente una melodía (localizar cada botón de cada nota y pulsarlo automáticamente según indique la melodía)

CATEGORÍAS

LO ÚLTIMO

VÍDEOS

NAVEGACIÓN