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

Contenidos

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)

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, Lo mejor, PowerShell

ETIQUETAS

.NET, Add-Type, ArrayList, Beep, Bot, Center, Collections, Curso, Cursos, Drawing, find, FindWindowEx, foreach, Function, HTTP, HTTPS, IndexOf, Jesús Niño, Jesús Niño Camazón, Length, Log, MSG, ndc, New-Object, Objetos, Out-Null, ps, Screen, SendMessage, showdialog, size, Sort, Split, Substring, System, System.Collections, System.Collections.ArrayList, System.Console, System.Drawing, System.Windows, System.Windows.Forms, System.Windows.Forms.Form, user32.dll, where, Windows, Windows.Forms.Form, Write-Host

Cookie	Duración	Descripción
cookielawinfo-checkbox-analytics	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Analytics".
cookielawinfo-checkbox-functional	11 months	The cookie is set by GDPR cookie consent to record the user consent for the cookies in the category "Functional".
cookielawinfo-checkbox-necessary	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookies is used to store the user consent for the cookies in the category "Necessary".
cookielawinfo-checkbox-others	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Other.
cookielawinfo-checkbox-performance	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Performance".
viewed_cookie_policy	11 months	The cookie is set by the GDPR Cookie Consent plugin and is used to store whether or not user has consented to the use of cookies. It does not store any personal data.

Automatizar el funcionamiento de una aplicación que simula un piano (pulsar automáticamente las notas del piano) (PowerShell, Lo mejor, 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

ETIQUETAS

MÁS