Start-Sleep | Scripting and security

Add-Type -AssemblyName WindowsBase
Add-Type -AssemblyName PresentationCore

1..100 | ForEach-Object {
  "Espera"
  $isDown = [Windows.Input.Keyboard]::IsKeyDown([System.Windows.Input.Key]::Enter)
  if ($isDown)
  {
    Write-Warning "Se pulsó la tecla Enter!!"
    break
  }

  Start-Sleep -Seconds 1
}

Add-Type -AssemblyName WindowsBase

Add-Type -AssemblyName PresentationCore

1..100 | ForEach-Object {

"Espera"

$isDown = [Windows.Input.Keyboard]::IsKeyDown([System.Windows.Input.Key]::Enter)

if ($isDown)

{

Write-Warning "Se pulsó la tecla Enter!!"

break

}

Start-Sleep -Seconds 1

}

PowerShell

Habilitar la transmisión en tiempo real con Foreach en PowerShell

16/06/201911/06/2019

$elements = 1..10

$elements | ForEach-Object {
    $item = $_
    
    "procesando $item"
    # simular algo
    Start-Sleep -Milliseconds 50
}

$elements = 1..10

$elements | ForEach-Object {

$item = $_

"procesando $item"

# simular algo

Start-Sleep -Milliseconds 50

}

PowerShell

¿Cómo funciona el bucle foreach en PowerShell (paso a paso)?

03/06/201931/05/2019

$elementos = "uno","dos","tres"

foreach($elemento in $elementos)
{
    $elemento
    Start-Sleep -Seconds 5
}

$elementos = "uno","dos","tres"

foreach($elemento in $elementos)

{

$elemento

Start-Sleep -Seconds 5

}

Automation PowerShell

Abrir Chrome utilizando SendKeys

31/05/201930/05/2019

#Abrir PowerShell y escribir:
[System.Windows.Forms.SendKeys]::SendWait("^({ESC})")
[System.Windows.Forms.SendKeys]::SendWait("EJECUTAR")
[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")
Start-Sleep -Seconds 2
[System.Windows.Forms.SendKeys]::SendWait("chrome.exe")
[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")

#Abrir PowerShell y escribir:

[System.Windows.Forms.SendKeys]::SendWait("^({ESC})")

[System.Windows.Forms.SendKeys]::SendWait("EJECUTAR")

[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")

Start-Sleep -Seconds 2

[System.Windows.Forms.SendKeys]::SendWait("chrome.exe")

[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")

PowerShell

Crear una barra de progreso en PowerShell

23/08/201816/08/2018

1..60 | ForEach-Object { 
    $percent = $_ * 100 / $seconds
    Write-Progress -Activity Break -Status "$($seconds - $_) seconds remaining..." -PercentComplete $percent
    Start-Sleep -Seconds 1
}

1..60 | ForEach-Object {

$percent = $_ * 100 / $seconds

Write-Progress -Activity Break -Status "$($seconds - $_) seconds remaining..." -PercentComplete $percent

Start-Sleep -Seconds 1

}

Automation

Automatizar el movimiento del ratón en el sistema operativo Windows con PowerShell

01/08/201817/06/2018

#Ejercicio 1
#Posición X,Y
$dX = ([System.Windows.Forms.Cursor]::Position.X) #Coordenada X
$dY = ([System.Windows.Forms.Cursor]::Position.Y) #Coordenada Y
$dX,$dY

#Ejercicio 2
#Ver la posición X,Y de forma indefinida cada medio segundo
for ()
{
Start-Sleep -m 500
$dX = ([System.Windows.Forms.Cursor]::Position.X)
$dY = ([System.Windows.Forms.Cursor]::Position.Y)
Write-Host $dX,$dY #print
}

#Ejercicio 3
#Almacenar las posiciones en un fichero
for (1)
{
Start-Sleep -s 1
$dX = ([System.Windows.Forms.Cursor]::Position.X)
$dY = ([System.Windows.Forms.Cursor]::Position.Y)
Write-Host $dX,$dY
$dX.ToString()+','+$dY.ToString() | Out-File posicion.txt -Append
}

#Ejercicio 4
#Reproducir las posiciones almacenadas en un fichero
gc .\posicion.txt | %{
Start-Sleep -s 1
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point($_.split(',')[0],$_.split(',')[1])
}

#Ejercicio 5
#Hacer clic izquierdo en una posición de la pantalla
#Funciones y declaraciones necesarias para poder hacer clic 
$MouseEventSig=@’
[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]
public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);
‘@
$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name “MouseEventWinApi” -passThru
#Hacer clic izquierdo en el botón de inicio
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(19,741)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0);
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0);

#Ejercicio 6
#Hacer clic derecho en una posición de la pantalla
#Funciones y declaraciones necesarias para poder hacer clic 
$MouseEventSig=@’
[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]
public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);
‘@
$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name “MouseEventWinApi” -passThru
#Hacer clic derecho en el botón de inicio
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(19,741)
$MouseEvent::mouse_event(0x00000008, 0, 0, 0, 0);
$MouseEvent::mouse_event(0x00000010, 0, 0, 0, 0);

#Ejercicio 7
#Pintar una línea automáticamente en Paint
#Desde la posición 200,200 a la posición 300,300
Start-Process C:\WINDOWS\system32\mspaint.exe
Start-Sleep -Seconds 5
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(200,200)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
Start-Sleep -Seconds 2
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(300,300)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

#Ejercicio 1

#Posición X,Y

$dX = ([System.Windows.Forms.Cursor]::Position.X) #Coordenada X

$dY = ([System.Windows.Forms.Cursor]::Position.Y) #Coordenada Y

$dX,$dY

#Ejercicio 2

#Ver la posición X,Y de forma indefinida cada medio segundo

for ()

{

Start-Sleep -m 500

$dX = ([System.Windows.Forms.Cursor]::Position.X)

$dY = ([System.Windows.Forms.Cursor]::Position.Y)

Write-Host $dX,$dY #print

}

#Ejercicio 3

#Almacenar las posiciones en un fichero

for (1)

{

Start-Sleep -s 1

$dX = ([System.Windows.Forms.Cursor]::Position.X)

$dY = ([System.Windows.Forms.Cursor]::Position.Y)

Write-Host $dX,$dY

$dX.ToString()+','+$dY.ToString() | Out-File posicion.txt -Append

}

#Ejercicio 4

#Reproducir las posiciones almacenadas en un fichero

gc .\posicion.txt | %{

Start-Sleep -s 1

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point($_.split(',')[0],$_.split(',')[1])

}

#Ejercicio 5

#Hacer clic izquierdo en una posición de la pantalla

#Funciones y declaraciones necesarias para poder hacer clic

$MouseEventSig=@’

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]

public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);

‘@

$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name “MouseEventWinApi” -passThru

#Hacer clic izquierdo en el botón de inicio

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(19,741)

$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0);

$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0);

#Ejercicio 6

#Hacer clic derecho en una posición de la pantalla

#Funciones y declaraciones necesarias para poder hacer clic

$MouseEventSig=@’

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]

public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);

‘@

$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name “MouseEventWinApi” -passThru

#Hacer clic derecho en el botón de inicio

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(19,741)

$MouseEvent::mouse_event(0x00000008, 0, 0, 0, 0);

$MouseEvent::mouse_event(0x00000010, 0, 0, 0, 0);

#Ejercicio 7

#Pintar una línea automáticamente en Paint

#Desde la posición 200,200 a la posición 300,300

Start-Process C:\WINDOWS\system32\mspaint.exe

Start-Sleep -Seconds 5

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(200,200)

$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)

Start-Sleep -Seconds 2

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(300,300)

$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Automation

Automatizar el pulsado de teclas en el sistema operativo Windows con PowerShell

29/07/201818/06/2018

#Escribir un texto con SendKeys
[System.Windows.Forms.SendKeys]::SendWait("abcdefg")

#Escribir un texto retardado con SendKeys
foreach($letras in [char[]]"abcdefg")
{
[System.Windows.Forms.SendKeys]::SendWait($letras)
Start-Sleep -Milliseconds 60
}

#Utilizar la tecla ctrl con SendKeys
#Copiar un texto
[System.Windows.Forms.SendKeys]::SendWait("^{c}")

#Utilizar la tecla ctrl con SendKeys
#Pegar un texto (utilizar el cmdlet Set-Clipboard para copiar un texto)
Set-Clipboard "hola"
[System.Windows.Forms.SendKeys]::SendWait("^{v}")

#Ejecutar la aplicación Ejecutar
[System.Windows.Forms.SendKeys]::SendWait("^({esc})")
[System.Windows.Forms.SendKeys]::SendWait("ejecutar")
[System.Windows.Forms.SendKeys]::SendWait("{enter}")
Start-Sleep -Seconds 1
[System.Windows.Forms.SendKeys]::SendWait("{esc}")

#Ejecutar PowerShell desde la aplicación Ejecutar
[System.Windows.Forms.SendKeys]::SendWait("^({esc})")
[System.Windows.Forms.SendKeys]::SendWait("ejecutar")
[System.Windows.Forms.SendKeys]::SendWait("{enter}")
Start-Sleep -Seconds 1
[System.Windows.Forms.SendKeys]::SendWait("powershell")
[System.Windows.Forms.SendKeys]::SendWait("{enter}")

#Rotar una pantalla con SendKeys
#Comentar el rotar porque si rota se cierra el grabador de Windows
[System.Windows.Forms.SendKeys]::SendWait("^%({right})")
Start-Sleep -Seconds 1
[System.Windows.Forms.SendKeys]::SendWait("^%({left})")
Start-Sleep -Seconds 1
[System.Windows.Forms.SendKeys]::SendWait("^%({down})")
Start-Sleep -Seconds 1
[System.Windows.Forms.SendKeys]::SendWait("^%({up})")

#Escribir un texto con SendKeys

[System.Windows.Forms.SendKeys]::SendWait("abcdefg")

#Escribir un texto retardado con SendKeys

foreach($letras in [char[]]"abcdefg")

{

[System.Windows.Forms.SendKeys]::SendWait($letras)

Start-Sleep -Milliseconds 60

}

#Utilizar la tecla ctrl con SendKeys

#Copiar un texto

[System.Windows.Forms.SendKeys]::SendWait("^{c}")

#Utilizar la tecla ctrl con SendKeys

#Pegar un texto (utilizar el cmdlet Set-Clipboard para copiar un texto)

Set-Clipboard "hola"

[System.Windows.Forms.SendKeys]::SendWait("^{v}")

#Ejecutar la aplicación Ejecutar

[System.Windows.Forms.SendKeys]::SendWait("^({esc})")

[System.Windows.Forms.SendKeys]::SendWait("ejecutar")

[System.Windows.Forms.SendKeys]::SendWait("{enter}")

Start-Sleep -Seconds 1

[System.Windows.Forms.SendKeys]::SendWait("{esc}")

#Ejecutar PowerShell desde la aplicación Ejecutar

[System.Windows.Forms.SendKeys]::SendWait("^({esc})")

[System.Windows.Forms.SendKeys]::SendWait("ejecutar")

[System.Windows.Forms.SendKeys]::SendWait("{enter}")

Start-Sleep -Seconds 1

[System.Windows.Forms.SendKeys]::SendWait("powershell")

[System.Windows.Forms.SendKeys]::SendWait("{enter}")

#Rotar una pantalla con SendKeys

#Comentar el rotar porque si rota se cierra el grabador de Windows

[System.Windows.Forms.SendKeys]::SendWait("^%({right})")

Start-Sleep -Seconds 1

[System.Windows.Forms.SendKeys]::SendWait("^%({left})")

Start-Sleep -Seconds 1

[System.Windows.Forms.SendKeys]::SendWait("^%({down})")

Start-Sleep -Seconds 1

[System.Windows.Forms.SendKeys]::SendWait("^%({up})")

Bash PowerShell

Descargar un script en Bash almacenado en Github y ejecutarlo con WSL (Windows Subsystem for Linux) desde PowerShell

12/06/201809/06/2018

bash -c "wget https://raw.githubusercontent.com/jesusninoc/Bash/master/Repaso/UtilizarCadenas.sh"
gc .\UtilizarCadenas.sh | %{
    $_
    bash -c "$_"
    Start-Sleep -Seconds 5
}

bash -c "wget https://raw.githubusercontent.com/jesusninoc/Bash/master/Repaso/UtilizarCadenas.sh"

gc .\UtilizarCadenas.sh | %{

bash -c "$_"

Start-Sleep -Seconds 5

}

PowerShell Web

Mostrar la posición GPS de los restaurantes más reservados de Madrid

08/06/201820/05/2018

$url = "https://www.eltenedor.es/ciudad/madrid/328022"
$result = Invoke-WebRequest $url
#La etiqueta que tenemos buscar es: class="restaurantSelection-name
$restaurantes = $result.AllElements | Where Class -eq “restaurantSelection-name” | %{$_.innerText}

$restaurantes | %{
    $calle = $_
    $ciudad = 'Madrid'
    $urlsi = "https://maps.googleapis.com/maps/api/geocode/json?address=" + $calle + “+” + $ciudad 
    $result = (Invoke-WebRequest -Uri $urlsi).Content | ConvertFrom-JSON
    $posicion = $result.results."geometry".location
    Write-Host $_,$posicion
    Start-Sleep -Seconds 4
}

$url = "https://www.eltenedor.es/ciudad/madrid/328022"

$result = Invoke-WebRequest $url

#La etiqueta que tenemos buscar es: class="restaurantSelection-name

$restaurantes = $result.AllElements | Where Class -eq “restaurantSelection-name” | %{$_.innerText}

$restaurantes | %{

$calle = $_

$ciudad = 'Madrid'

$urlsi = "https://maps.googleapis.com/maps/api/geocode/json?address=" + $calle + “+” + $ciudad

$result = (Invoke-WebRequest -Uri $urlsi).Content | ConvertFrom-JSON

$posicion = $result.results."geometry".location

Write-Host $_,$posicion

Start-Sleep -Seconds 4

}

PowerShell

Llamar con el valor de la aplicación calculadora (calc.exe) a cada función obtenida con DUMBIN para cada DLL (el valor de la DLL que se analiza está en una variable)

27/04/201819/04/2018

# Ejecutar el siguiente script puede ocasionar problemas en Windows

# Información sobre Microsoft COFF Binary File Dumper DUMPBIN
# https://msdn.microsoft.com/es-es/library/c1h23y6c.aspx

cd "C:\Program Files (x86)\Microsoft Visual Studio\2017\Community\VC\Tools\MSVC\14.13.26128\bin\Hostx86\x86"

# Nombre de DLL que se va a analizar
$dll = "advpack.dll"

# Listar funciones exportadas de un archivo DLL con DUMPBIN desde PowerShell
$content =  .\dumpbin.exe /exports C:\Windows\System32\$dll

# Procesar la información para obtener únicamente las funciones
# Quitar líneas sin contenido
$content = ($content | ? {$_.trim() -ne "" }).trim()
# Crear un string de toda la información para poder extraer el contenido de las funciones
$all = ""
$content | %{$all = $all + $_ + ";"}
# Extraer el contenido de las funciones
$start = $all.indexof("ordinal hint RVA      name;")
$end = $all.indexof("Summary")
$length = $end - $start
$funciones = $all.substring($start, $length).replace("Summary","")

# Con el contenido de las funciones extraer el nombre de las funciones
# Convertir un array a CSV con PowerShell
# ES POSIBLE QUE HAYA QUE AÑADIR OTRAS COMBINACIONES DE ESPACIOS
$data = $funciones.split(";").Replace(" "," ").Replace("    "," ").Replace("   "," ").Replace(" ",",") | ConvertFrom-Csv

# Llamar a cada función obtenida con DUMPBIN con el valor de la aplicación calculadora (calc.exe)
$data.name | %{$_; rundll32 $dll, $_ calc.exe; Start-Sleep -Seconds 5}

# Ejecutar el siguiente script puede ocasionar problemas en Windows

# Información sobre Microsoft COFF Binary File Dumper DUMPBIN

# https://msdn.microsoft.com/es-es/library/c1h23y6c.aspx

cd "C:\Program Files (x86)\Microsoft Visual Studio\2017\Community\VC\Tools\MSVC\14.13.26128\bin\Hostx86\x86"

# Nombre de DLL que se va a analizar

$dll = "advpack.dll"

# Listar funciones exportadas de un archivo DLL con DUMPBIN desde PowerShell

$content = .\dumpbin.exe /exports C:\Windows\System32\$dll

# Procesar la información para obtener únicamente las funciones

# Quitar líneas sin contenido

$content = ($content | ? {$_.trim() -ne "" }).trim()

# Crear un string de toda la información para poder extraer el contenido de las funciones

$all = ""

$content | %{$all = $all + $_ + ";"}

# Extraer el contenido de las funciones

$start = $all.indexof("ordinal hint RVA name;")

$end = $all.indexof("Summary")

$length = $end - $start

$funciones = $all.substring($start, $length).replace("Summary","")

# Con el contenido de las funciones extraer el nombre de las funciones

# Convertir un array a CSV con PowerShell

# ES POSIBLE QUE HAYA QUE AÑADIR OTRAS COMBINACIONES DE ESPACIOS

$data = $funciones.split(";").Replace(" "," ").Replace(" "," ").Replace(" "," ").Replace(" ",",") | ConvertFrom-Csv

# Llamar a cada función obtenida con DUMPBIN con el valor de la aplicación calculadora (calc.exe)

$data.name | %{$_; rundll32 $dll, $_ calc.exe; Start-Sleep -Seconds 5}

Older Posts