Start-Sleep | Scripting and security

Crear una barra de progreso en PowerShell

(2 votes, average: 5.00 out of 5)

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

}

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

(2 votes, average: 5.00 out of 5)

#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)

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

(2 votes, average: 5.00 out of 5)

#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})")

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

(2 votes, average: 5.00 out of 5)

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

}

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

(2 votes, average: 5.00 out of 5)

$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

}

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)

(1 votes, average: 5.00 out of 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}

# 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}

Posicionar el Cursor de la Consola PowerShell.exe

(1 votes, average: 5.00 out of 5)

# Es necesario ejecutar el script en PowerShell.exe
# Listar procesos
Get-Process

# Posicionarse en la primera posición de la Consola
$esc = [char]27
$setCursorTop = "$esc[0;0H"
Write-Host "${setCursorTop} Volver a la posición 0,0"

# Listar procesos después e 5 segundos
Start-Sleep -Seconds 5
Get-Process

# Es necesario ejecutar el script en PowerShell.exe

# Listar procesos

Get-Process

# Posicionarse en la primera posición de la Consola

$esc = [char]27

$setCursorTop = "$esc[0;0H"

Write-Host "${setCursorTop} Volver a la posición 0,0"

# Listar procesos después e 5 segundos

Start-Sleep -Seconds 5

Get-Process

Comprobar si está abierto un puerto UDP

(No Ratings Yet)

while(1)
{
Get-NetUDPEndpoint | Select-Object LocalAddress,LocalPort | Where-Object {$_.LocalPort -eq "5353"}
Start-Sleep -Seconds 5
clear
}

while(1)

{

Get-NetUDPEndpoint | Select-Object LocalAddress,LocalPort | Where-Object {$_.LocalPort -eq "5353"}

Start-Sleep -Seconds 5

clear

}

Encender y apagar un LED en Raspberry Pi realizando una conexión SSH desde PowerShell

(No Ratings Yet)

New-SSHSession -ComputerName 192.168.1.162 -Credential (Get-Credential) -Force
Invoke-SSHCommand -Index 0 'python -c "import RPi.GPIO as GPIO;GPIO.setmode(GPIO.BOARD);GPIO.setup(11, GPIO.OUT);GPIO.output(11, True);"'
Start-Sleep -Seconds 10
Invoke-SSHCommand -Index 0 'python -c "import RPi.GPIO as GPIO;GPIO.setmode(GPIO.BOARD);GPIO.setup(11, GPIO.OUT);GPIO.output(11, False);GPIO.cleanup();"'

New-SSHSession -ComputerName 192.168.1.162 -Credential (Get-Credential) -Force

Invoke-SSHCommand -Index 0 'python -c "import RPi.GPIO as GPIO;GPIO.setmode(GPIO.BOARD);GPIO.setup(11, GPIO.OUT);GPIO.output(11, True);"'

Start-Sleep -Seconds 10

Invoke-SSHCommand -Index 0 'python -c "import RPi.GPIO as GPIO;GPIO.setmode(GPIO.BOARD);GPIO.setup(11, GPIO.OUT);GPIO.output(11, False);GPIO.cleanup();"'

Explicación Material necesario Una placa de prueba y un par de cables conectores Un LED Una resistencia Conexiones en […]

Representar clicks en pantalla teniendo activado Zoomit para poder representar las coordenadas

(No Ratings Yet)

#Representar clicks en pantalla teniendo activado Zoomit para poder representar las coordenadas

$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

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

while($true)
{
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point([Int](Get-Random (10..1021)),[Int](Get-Random (10..800)))
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
Start-Sleep -Seconds 5
}

#Representar clicks en pantalla teniendo activado Zoomit para poder representar las coordenadas

$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

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

while($true)

{

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point([Int](Get-Random (10..1021)),[Int](Get-Random (10..800)))

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

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

Start-Sleep -Seconds 5

}

Recorrer el segundo nivel de un sitio web, obtener información de todos los enlaces del sitio y añadir la información creando una clase a un array

(No Ratings Yet)

#Clase Enlace con información sobre el enlace: URL, tamaño y nivel de recorrido
class Enlace
{ 
    $URL
    $Long
    $Level

    Enlace($URL,$Long,$Level)
    {
        $this.URL=$URL
        $this.Long=$Long
        $this.Level=$Level
    }
}

#Iniciar array
$myArray = @()

#Recorrer el sitio hasta el segundo nivel, almacenando cada información (clase Enlace) en un array
$url="http://www.jesusninoc.com"
foreach($links in (Invoke-WebRequest $url).Links.href){foreach($links2 in (Invoke-WebRequest $links).Links.href)
{$myArray += [Enlace]::new($links2,(Invoke-WebRequest $links2).RawContentLength,2);start-sleep -s 4;$links2}}

$myArray

#Clase Enlace con información sobre el enlace: URL, tamaño y nivel de recorrido

class Enlace

{

$URL

$Long

$Level

Enlace($URL,$Long,$Level)

{

$this.URL=$URL

$this.Long=$Long

$this.Level=$Level

}

#Iniciar array

$myArray = @()

#Recorrer el sitio hasta el segundo nivel, almacenando cada información (clase Enlace) en un array

$url="http://www.jesusninoc.com"

foreach($links in (Invoke-WebRequest $url).Links.href){foreach($links2 in (Invoke-WebRequest $links).Links.href)

{$myArray += [Enlace]::new($links2,(Invoke-WebRequest $links2).RawContentLength,2);start-sleep -s 4;$links2}}

$myArray

Extraer datos de varias imágenes de un vídeo MP4 mediante el reconocimiento óptico de caracteres y el análisis de imágenes (Computer Vision API de Microsoft Azure)

(No Ratings Yet)

#Dividir un vídeo MP4 en imágenes
E:\programas\ffmpeg-20161204-1f5630a-win64-static\bin\ffmpeg.exe -i capturas.mp4 -f image2 -pix_fmt bgr8 %01d.jpg

#Analizar las imágenes mediante el reconocimiento óptico de caracteres y el análisis de imágenes (Computer Vision API de Microsoft Azure)
ls *.jpg | %{
    $vision = 'https://westcentralus.api.cognitive.microsoft.com/vision/v1.0/analyze'
    $features = 'Categories,Tags,Description,Color'
    $bytes = [System.IO.File]::ReadAllBytes($_.FullName)

    $response = Invoke-WebRequest `
         -Uri "$($vision)?visualFeatures=$($features)" `
         -Body $bytes `
         -ContentType "application/octet-stream" `
         -Headers @{'Ocp-Apim-Subscription-Key' = 'Clave del API'} `
         -Method 'Post' `
         -ErrorAction Stop `
         -UseBasicParsing | ConvertFrom-Json

    $response.description
    Start-Sleep -Seconds 5
}

#Dividir un vídeo MP4 en imágenes

E:\programas\ffmpeg-20161204-1f5630a-win64-static\bin\ffmpeg.exe -i capturas.mp4 -f image2 -pix_fmt bgr8 %01d.jpg

#Analizar las imágenes mediante el reconocimiento óptico de caracteres y el análisis de imágenes (Computer Vision API de Microsoft Azure)

ls *.jpg | %{

$vision = 'https://westcentralus.api.cognitive.microsoft.com/vision/v1.0/analyze'

$features = 'Categories,Tags,Description,Color'

$bytes = [System.IO.File]::ReadAllBytes($_.FullName)

$response = Invoke-WebRequest `

-Uri "$($vision)?visualFeatures=$($features)" `

-Body $bytes `

-ContentType "application/octet-stream" `

-Headers @{'Ocp-Apim-Subscription-Key' = 'Clave del API'} `

-Method 'Post' `

-ErrorAction Stop `

-UseBasicParsing | ConvertFrom-Json

$response.description

Start-Sleep -Seconds 5

}

Vídeo para analizar Imágenes por separado Resultado del análisis

Mostrar las búsquedas de “El año en búsquedas 2017” mediante PowerShell usando JavaScript (solución 3)

(No Ratings Yet)

$ie = New-Object -comobject InternetExplorer.Application

$ie.Navigate2("https://google.com/trends/embed/yis/2017/GLOBAL/3bc22de5-427e-4737-8e27-f96ee7d75edf?forceMobileMode=false&isPreviewMode=true&hl=es")
 
$ie.Visible = $false

while($ie.ReadyState -ne 4) {start-sleep -m 100}

$ie.document.scripts | % {
    if($_.uniqueNumber -eq 4)
    {
        $_.text,$_.uniqueNumber
        "<script>"+$_.text+"var Items = embedWidgetGlobals.data.listItems; alert(Items)</script>" | Out-File result.html
    }
}

.\result.html

$ie = New-Object -comobject InternetExplorer.Application

$ie.Navigate2("https://google.com/trends/embed/yis/2017/GLOBAL/3bc22de5-427e-4737-8e27-f96ee7d75edf?forceMobileMode=false&isPreviewMode=true&hl=es")

$ie.Visible = $false

while($ie.ReadyState -ne 4) {start-sleep -m 100}

$ie.document.scripts | % {

if($_.uniqueNumber -eq 4)

{

$_.text,$_.uniqueNumber

"<script>"+$_.text+"var Items = embedWidgetGlobals.data.listItems; alert(Items)</script>" | Out-File result.html

}

.\result.html

Extraer datos de varias imágenes mediante el reconocimiento óptico de caracteres y el análisis de imágenes (Computer Vision API de Microsoft Azure)

(No Ratings Yet)

Get-ChildItem C:\Users\juan\Desktop\bodegon | %{
    $vision = 'https://westcentralus.api.cognitive.microsoft.com/vision/v1.0/analyze'
    $features = 'Categories,Tags,Description,Color'
    $bytes = [System.IO.File]::ReadAllBytes($_.FullName)

    $response = Invoke-WebRequest `
         -Uri "$($vision)?visualFeatures=$($features)" `
         -Body $bytes `
         -ContentType "application/octet-stream" `
         -Headers @{'Ocp-Apim-Subscription-Key' = 'Clave del API'} `
         -Method 'Post' `
         -ErrorAction Stop `
         -UseBasicParsing | ConvertFrom-Json

    $response.description
    Start-Sleep -Seconds 5
}

Get-ChildItem C:\Users\juan\Desktop\bodegon | %{

$vision = 'https://westcentralus.api.cognitive.microsoft.com/vision/v1.0/analyze'

$features = 'Categories,Tags,Description,Color'

$bytes = [System.IO.File]::ReadAllBytes($_.FullName)

$response = Invoke-WebRequest `

-Uri "$($vision)?visualFeatures=$($features)" `

-Body $bytes `

-ContentType "application/octet-stream" `

-Headers @{'Ocp-Apim-Subscription-Key' = 'Clave del API'} `

-Method 'Post' `

-ErrorAction Stop `

-UseBasicParsing | ConvertFrom-Json

$response.description

Start-Sleep -Seconds 5

}

C:\Users\juan\Desktop\bodegon\aaaa.jpg C:\Users\juan\Desktop\bodegon\aaaab.jpg C:\Users\juan\Desktop\bodegon\bbbb.jpg C:\Users\juan\Desktop\bodegon\bbbba.jpg C:\Users\juan\Desktop\bodegon\bbbbs.jpg

Mostrar las búsquedas de “El año en búsquedas 2017” mediante PowerShell usando JavaScript (solución 2)

(No Ratings Yet)

$ie = New-Object -comobject InternetExplorer.Application

$ie.Navigate2("https://google.com/trends/embed/yis/2017/GLOBAL/3bc22de5-427e-4737-8e27-f96ee7d75edf?forceMobileMode=false&isPreviewMode=true&hl=es")
 
$ie.Visible = $false

while($ie.ReadyState -ne 4) {start-sleep -m 100}

$ie.document.scripts | % {
    if($_.uniqueNumber -eq 4)
    {
        $_.text,$_.uniqueNumber
        
        $ie = New-Object -com "InternetExplorer.Application"
        $ie.Navigate("About:blank")
        $ie.visible = $true
        $ie.Document.write("<script>"+$_.text+"var Items = embedWidgetGlobals.data.listItems; alert(Items)</script>")
    }
}

$ie = New-Object -comobject InternetExplorer.Application

$ie.Navigate2("https://google.com/trends/embed/yis/2017/GLOBAL/3bc22de5-427e-4737-8e27-f96ee7d75edf?forceMobileMode=false&isPreviewMode=true&hl=es")

$ie.Visible = $false

while($ie.ReadyState -ne 4) {start-sleep -m 100}

$ie.document.scripts | % {

if($_.uniqueNumber -eq 4)

{

$_.text,$_.uniqueNumber

$ie = New-Object -com "InternetExplorer.Application"

$ie.Navigate("About:blank")

$ie.visible = $true

$ie.Document.write("<script>"+$_.text+"var Items = embedWidgetGlobals.data.listItems; alert(Items)</script>")

}

Utilizar el motor de síntesis de voz en Powershell para analizar audios con voz comparando los resultados entre gramáticas

(No Ratings Yet)

Parte 1 Guardar en un fichero de audio un texto pronunciado mediante el motor de síntesis de voz en PowerShell […]

Comprobar constantemente si está abierto un puerto TCP

(No Ratings Yet)

while(1)
{
    Get-NetTCPConnection | Select-Object LocalAddress,RemotePort,OwningProcess| Where-Object {$_.RemotePort -eq "443"}
    Start-Sleep -Seconds 5
    clear
}

while(1)

{

Get-NetTCPConnection | Select-Object LocalAddress,RemotePort,OwningProcess| Where-Object {$_.RemotePort -eq "443"}

Start-Sleep -Seconds 5

clear

}

Realizar una comunicación enviando preguntas y respondiendo de forma automática mediante el motor de síntesis de voz en PowerShell (con restricciones para una gramática de reconocimiento de voz)

(2 votes, average: 2.50 out of 5)

Introducción

####################################################################################################
####################################################################################################
#Teniendo en cuenta la idea de comunicar dos ordenadores mediante la voz del sistema operativo
#https://www.jesusninoc.com/2016/01/10/comunicar-dos-ordenadores-mediante-la-voz-del-sistema-operativo/
#Realizar una comunicación enviando preguntas y respondiendo de forma automática
####################################################################################################
####################################################################################################

####################################################################################################

#Teniendo en cuenta la idea de comunicar dos ordenadores mediante la voz del sistema operativo

#https://www.jesusninoc.com/2016/01/10/comunicar-dos-ordenadores-mediante-la-voz-del-sistema-operativo/

#Realizar una comunicación enviando preguntas y respondiendo de forma automática

####################################################################################################

Reconocimiento y respuesta (ejecutar primero)

####################################################################################################
#RECONOCIMIENTO Y RESPUESTA
####################################################################################################
#Crear objeto para reconocimiento
Add-Type -AssemblyName System.Speech
$rec = New-Object 'System.Speech.Recognition.SpeechRecognitionEngine'
#Crear las restricciones para una gramática de reconocimiento de voz
$rec.LoadGrammar([System.Speech.Recognition.GrammarBuilder]::new("tal"))
$rec.LoadGrammar([System.Speech.Recognition.GrammarBuilder]::new("años"))
$rec.LoadGrammar([System.Speech.Recognition.GrammarBuilder]::new("novia"))
$rec.LoadGrammar([System.Speech.Recognition.GrammarBuilder]::new("novio"))
$rec.SetInputToDefaultAudioDevice()

#Añadir posibles respuestas
"tal|Bien y tú?" | Out-File frases.txt
"años|40" | Out-File frases.txt -Append
"novia|Sí" | Out-File frases.txt -Append
"novio|Sí" | Out-File frases.txt -Append

#Crear un ArrayList con las respuestas
[System.Collections.ArrayList]$arraylist = New-Object System.Collections.ArrayList
ForEach ($elemento in (gc .\frases.txt).split("|")){[void]$arraylist.Add($elemento)}

#Función para comprobar si el mensaje que llega está entre las posibles respuestas
#La función responde mediante la voz del Sistema Operativo
function comprobar($frase){
    [System.Collections.ArrayList]$arraylist2 = New-Object System.Collections.ArrayList
    ForEach ($elemento in $frase.split(" ")){[void]$arraylist2.Add($elemento)}

    $arraylist2 | %{
        if($arraylist.IndexOf($_) -ne -1){
            "Respuesta: " +$arraylist[($arraylist.IndexOf($_))+1]
            (New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer).Speak($arraylist[($arraylist.IndexOf($_))+1])
        }
    }
}

#Comenzar a reconocer los audios que vayan llegando y comprobar qué mensajes llegan
do{
$mensaje=$rec.Recognize().Text
$mensaje
comprobar $mensaje
}while(1)

####################################################################################################

#RECONOCIMIENTO Y RESPUESTA

####################################################################################################

#Crear objeto para reconocimiento

Add-Type -AssemblyName System.Speech

$rec = New-Object 'System.Speech.Recognition.SpeechRecognitionEngine'

#Crear las restricciones para una gramática de reconocimiento de voz

$rec.LoadGrammar([System.Speech.Recognition.GrammarBuilder]::new("tal"))

$rec.LoadGrammar([System.Speech.Recognition.GrammarBuilder]::new("años"))

$rec.LoadGrammar([System.Speech.Recognition.GrammarBuilder]::new("novia"))

$rec.LoadGrammar([System.Speech.Recognition.GrammarBuilder]::new("novio"))

$rec.SetInputToDefaultAudioDevice()

#Añadir posibles respuestas

"tal|Bien y tú?" | Out-File frases.txt

"años|40" | Out-File frases.txt -Append

"novia|Sí" | Out-File frases.txt -Append

"novio|Sí" | Out-File frases.txt -Append

#Crear un ArrayList con las respuestas

[System.Collections.ArrayList]$arraylist = New-Object System.Collections.ArrayList

ForEach ($elemento in (gc .\frases.txt).split("|")){[void]$arraylist.Add($elemento)}

#Función para comprobar si el mensaje que llega está entre las posibles respuestas

#La función responde mediante la voz del Sistema Operativo

function comprobar($frase){

[System.Collections.ArrayList]$arraylist2 = New-Object System.Collections.ArrayList

ForEach ($elemento in $frase.split(" ")){[void]$arraylist2.Add($elemento)}

$arraylist2 | %{

if($arraylist.IndexOf($_) -ne -1){

"Respuesta: " +$arraylist[($arraylist.IndexOf($_))+1]

(New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer).Speak($arraylist[($arraylist.IndexOf($_))+1])

}

#Comenzar a reconocer los audios que vayan llegando y comprobar qué mensajes llegan

do{

$mensaje=$rec.Recognize().Text

$mensaje

comprobar $mensaje

}while(1)

Enviar preguntas

####################################################################################################
#ENVIAR PREGUNTAS
####################################################################################################
#Leer el texto contenido dentro de un fichero mediante la voz del Sistema Operativo
Add-Type -AssemblyName System.Speech

#Añadir textos para que se lean
"¿Qué tal?" | Out-File conversacion.txt
"¿Cuántos años tienes?" | Out-File conversacion.txt -Append
"¿Tienes novia?" | Out-File conversacion.txt -Append

#Leer los textos mediante la voz del Sistema Operativo
gc conversacion.txt | %{
$_
(New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer).Speak($_)
Start-Sleep -Seconds 3
}

####################################################################################################

#ENVIAR PREGUNTAS

####################################################################################################

#Leer el texto contenido dentro de un fichero mediante la voz del Sistema Operativo

Add-Type -AssemblyName System.Speech

#Añadir textos para que se lean

"¿Qué tal?" | Out-File conversacion.txt

"¿Cuántos años tienes?" | Out-File conversacion.txt -Append

"¿Tienes novia?" | Out-File conversacion.txt -Append

#Leer los textos mediante la voz del Sistema Operativo

gc conversacion.txt | %{

(New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer).Speak($_)

Start-Sleep -Seconds 3

}

Realizar una comunicación enviando preguntas y respondiendo de forma automática mediante el motor de síntesis de voz en PowerShell

(No Ratings Yet)

Introducción

####################################################################################################
####################################################################################################
#Teniendo en cuenta la idea de comunicar dos ordenadores mediante la voz del sistema operativo
#https://www.jesusninoc.com/2016/01/10/comunicar-dos-ordenadores-mediante-la-voz-del-sistema-operativo/
#Realizar una comunicación enviando preguntas y respondiendo de forma automática
####################################################################################################
####################################################################################################

####################################################################################################

#Teniendo en cuenta la idea de comunicar dos ordenadores mediante la voz del sistema operativo

#https://www.jesusninoc.com/2016/01/10/comunicar-dos-ordenadores-mediante-la-voz-del-sistema-operativo/

#Realizar una comunicación enviando preguntas y respondiendo de forma automática

####################################################################################################

Reconocimiento y respuesta (ejecutar primero)

####################################################################################################
#RECONOCIMIENTO Y RESPUESTA
####################################################################################################
#Crear objeto para reconocimiento
Add-Type -AssemblyName System.Speech
$rec = New-Object 'System.Speech.Recognition.SpeechRecognitionEngine'
$rec.LoadGrammar((New-Object 'System.Speech.Recognition.DictationGrammar'))
$rec.SetInputToDefaultAudioDevice()

#Añadir posibles respuestas
"tal|Bien y tú?" | Out-File frases.txt
"años|40" | Out-File frases.txt -Append
"novia|Sí" | Out-File frases.txt -Append
"novio|Sí" | Out-File frases.txt -Append

#Crear un ArrayList con las respuestas
[System.Collections.ArrayList]$arraylist = New-Object System.Collections.ArrayList
ForEach ($elemento in (gc .\frases.txt).split("|")){[void]$arraylist.Add($elemento)}

#Función para comprobar si el mensaje que llega está entre las posibles respuestas
#La función responde mediante la voz del Sistema Operativo
function comprobar($frase){
    [System.Collections.ArrayList]$arraylist2 = New-Object System.Collections.ArrayList
    ForEach ($elemento in $frase.split(" ")){[void]$arraylist2.Add($elemento)}

    $arraylist2 | %{
        if($arraylist.IndexOf($_) -ne -1){
            (New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer).Speak($arraylist[($arraylist.IndexOf($_))+1])
        }
    }
}

#Comenzar a reconocer los audios que vayan llegando y comprobar qué mensajes llegan
do{
$mensaje=$rec.Recognize().Text
$mensaje
comprobar $mensaje
}while(1)

####################################################################################################

#RECONOCIMIENTO Y RESPUESTA

####################################################################################################

#Crear objeto para reconocimiento

Add-Type -AssemblyName System.Speech

$rec = New-Object 'System.Speech.Recognition.SpeechRecognitionEngine'

$rec.LoadGrammar((New-Object 'System.Speech.Recognition.DictationGrammar'))

$rec.SetInputToDefaultAudioDevice()

#Añadir posibles respuestas

"tal|Bien y tú?" | Out-File frases.txt

"años|40" | Out-File frases.txt -Append

"novia|Sí" | Out-File frases.txt -Append

"novio|Sí" | Out-File frases.txt -Append

#Crear un ArrayList con las respuestas

[System.Collections.ArrayList]$arraylist = New-Object System.Collections.ArrayList

ForEach ($elemento in (gc .\frases.txt).split("|")){[void]$arraylist.Add($elemento)}

#Función para comprobar si el mensaje que llega está entre las posibles respuestas

#La función responde mediante la voz del Sistema Operativo

function comprobar($frase){

[System.Collections.ArrayList]$arraylist2 = New-Object System.Collections.ArrayList

ForEach ($elemento in $frase.split(" ")){[void]$arraylist2.Add($elemento)}

$arraylist2 | %{

if($arraylist.IndexOf($_) -ne -1){

(New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer).Speak($arraylist[($arraylist.IndexOf($_))+1])

}

#Comenzar a reconocer los audios que vayan llegando y comprobar qué mensajes llegan

do{

$mensaje=$rec.Recognize().Text

$mensaje

comprobar $mensaje

}while(1)

Enviar preguntas

####################################################################################################
#ENVIAR PREGUNTAS
####################################################################################################
#Leer el texto contenido dentro de un fichero mediante la voz del Sistema Operativo
Add-Type -AssemblyName System.Speech

#Añadir textos para que se lean
"¿Qué tal?" | Out-File conversacion.txt
"¿Cuántos años tienes?" | Out-File conversacion.txt -Append
"¿Tienes novia?" | Out-File conversacion.txt -Append

#Leer los textos mediante la voz del Sistema Operativo
gc conversacion.txt | %{
$_
(New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer).Speak($_)
Start-Sleep -Seconds 3
}

####################################################################################################

#ENVIAR PREGUNTAS

####################################################################################################

#Leer el texto contenido dentro de un fichero mediante la voz del Sistema Operativo

Add-Type -AssemblyName System.Speech

#Añadir textos para que se lean

"¿Qué tal?" | Out-File conversacion.txt

"¿Cuántos años tienes?" | Out-File conversacion.txt -Append

"¿Tienes novia?" | Out-File conversacion.txt -Append

#Leer los textos mediante la voz del Sistema Operativo

gc conversacion.txt | %{

(New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer).Speak($_)

Start-Sleep -Seconds 3

}

Automatizar el recorrido de niveles de un sitio web, obteniendo información de todos los enlaces del sitio y añadir la información creando una clase a un array

(No Ratings Yet)

#Clase Enlace con información sobre el enlace: URL, tamaño y nivel de recorrido
class Enlace
{ 
    $URL
    $Long
    $Level

    Enlace($URL,$Long,$Level)
    {
        $this.URL=$URL
        $this.Long=$Long
        $this.Level=$Level
    }
}

#Iniciar array
$myArray = @()
$myArray += [Enlace]::new("https://www.jesusninoc.com/",1,1)

#Eliminar el fichero que contiene la expresión que se va a ejecutar
rm .\fichero.txt
"" | Out-File -FilePath fichero.txt -NoNewline

#Crear una función que permite automatizar el recorrido de una web por niveles
$url="https://www.jesusninoc.com/"
function insertar($numeroveces)
{
for($i;$i -lt $numeroveces;$i++){'foreach($links'+($i+1)+' in (Invoke-WebRequest $links'+$i+').Links.href){' | Add-Content -Path fichero.txt -NoNewline}
'if(!$myArray.URL.Contains($links'+$numeroveces+')){$myArray += [Enlace]::new($links'+$numeroveces | Add-Content -Path fichero.txt -NoNewline
',(Invoke-WebRequest $links'+$numeroveces+').RawContentLength,' | Add-Content -Path fichero.txt -NoNewline
$numeroveces | Add-Content -Path fichero.txt -NoNewline
')' | Add-Content -Path fichero.txt -NoNewline
';start-sleep -s 2' | Add-Content -Path fichero.txt -NoNewline
';$links'+$numeroveces | Add-Content -Path fichero.txt -NoNewline
'}' | Add-Content -Path fichero.txt -NoNewline
for($j;$j -lt $numeroveces;$j++){"}" | Add-Content -Path fichero.txt -NoNewline}
}

#Ejecutar la función y leer la información que ha generado la función
insertar(1)
gc .\fichero.txt

#Ejecutar la expresión generada al ejecutar la función que permite automatizar el recorrido de una web por niveles
foreach($links in (Invoke-WebRequest $url).Links.href){Invoke-Expression(gc .\fichero.txt)}

#Ordenar el array por tamaño
$myArray | sort Long

#Clase Enlace con información sobre el enlace: URL, tamaño y nivel de recorrido

class Enlace

{

$URL

$Long

$Level

Enlace($URL,$Long,$Level)

{

$this.URL=$URL

$this.Long=$Long

$this.Level=$Level

}

#Iniciar array

$myArray = @()

$myArray += [Enlace]::new("https://www.jesusninoc.com/",1,1)

#Eliminar el fichero que contiene la expresión que se va a ejecutar

rm .\fichero.txt

"" | Out-File -FilePath fichero.txt -NoNewline

#Crear una función que permite automatizar el recorrido de una web por niveles

$url="https://www.jesusninoc.com/"

function insertar($numeroveces)

{

for($i;$i -lt $numeroveces;$i++){'foreach($links'+($i+1)+' in (Invoke-WebRequest $links'+$i+').Links.href){' | Add-Content -Path fichero.txt -NoNewline}

'if(!$myArray.URL.Contains($links'+$numeroveces+')){$myArray += [Enlace]::new($links'+$numeroveces | Add-Content -Path fichero.txt -NoNewline

',(Invoke-WebRequest $links'+$numeroveces+').RawContentLength,' | Add-Content -Path fichero.txt -NoNewline

$numeroveces | Add-Content -Path fichero.txt -NoNewline

')' | Add-Content -Path fichero.txt -NoNewline

';start-sleep -s 2' | Add-Content -Path fichero.txt -NoNewline

';$links'+$numeroveces | Add-Content -Path fichero.txt -NoNewline

'}' | Add-Content -Path fichero.txt -NoNewline

for($j;$j -lt $numeroveces;$j++){"}" | Add-Content -Path fichero.txt -NoNewline}

}

#Ejecutar la función y leer la información que ha generado la función

insertar(1)

gc .\fichero.txt

#Ejecutar la expresión generada al ejecutar la función que permite automatizar el recorrido de una web por niveles

foreach($links in (Invoke-WebRequest $url).Links.href){Invoke-Expression(gc .\fichero.txt)}

#Ordenar el array por tamaño

$myArray | sort Long

Resultado de la ejecución del script Ver el contenido del array con la clase Enlace

Older Posts