Barcelona | Scripting and security

Ejercicios de PowerShell: obtener las posiciones GPS de las provincias de España con PowerShell

(No Ratings Yet)

#Guardar en un fichero TXT el nombre de las provincias que hay en España
#Albacete
#Alicante
#Almería
#Álava
#Asturias
#Ávila
#Badajoz
#Illes Balears
#Barcelona
#Bizkaia
#Burgos
#Cáceres
#Cádiz
#Cantabria
#Castellón
#Ciudad Real
#Córdoba
#Coruña
#Cuenca
#Gipuzkoa
#Girona
#Granada
#Guadalajara
#Huelva
#Huesca
#Jaén
#León
#Lleida
#Lugo
#Madrid
#Málaga
#Murcia
#Navarra
#Ourense
#Palencia
#Las Palmas
#Pontevedra
#La Rioja
#Salamanca
#Santa Cruz de Tenerife
#Segovia
#Sevilla
#Soria
#Tarragona
#Teruel
#Toledo
#Valencia
#Valladolid
#Zamora
#Zaragoza
#Ceuta
#Melilla

gc .\provincias.txt | %{
$urlsi="https://maps.googleapis.com/maps/api/geocode/json?address=" + $_
$result=(Invoke-WebRequest -Uri $urlsi).Content | ConvertFrom-JSON
Start-Sleep -Seconds 2
Write-Host $_,$result.results."geometry".location
}

#Guardar en un fichero TXT el nombre de las provincias que hay en España

#Albacete

#Alicante

#Almería

#Álava

#Asturias

#Ávila

#Badajoz

#Illes Balears

#Barcelona

#Bizkaia

#Burgos

#Cáceres

#Cádiz

#Cantabria

#Castellón

#Ciudad Real

#Córdoba

#Coruña

#Cuenca

#Gipuzkoa

#Girona

#Granada

#Guadalajara

#Huelva

#Huesca

#Jaén

#León

#Lleida

#Lugo

#Madrid

#Málaga

#Murcia

#Navarra

#Ourense

#Palencia

#Las Palmas

#Pontevedra

#La Rioja

#Salamanca

#Santa Cruz de Tenerife

#Segovia

#Sevilla

#Soria

#Tarragona

#Teruel

#Toledo

#Valencia

#Valladolid

#Zamora

#Zaragoza

#Ceuta

#Melilla

gc .\provincias.txt | %{

$urlsi="https://maps.googleapis.com/maps/api/geocode/json?address=" + $_

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

Start-Sleep -Seconds 2

Write-Host $_,$result.results."geometry".location

}

2. Programación en PowerShell (nivel intermedio)

(3 votes, average: 5.00 out of 5)

La programación es necesaria para realizar tareas de forma automática y consiste en indicar ordenes al sistema, en PowerShell el […]

Guardar la búsqueda de billetes de AVE

(No Ratings Yet)

$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

Start-Process chrome "https://venta.renfe.com/vol/home.do"

Start-Sleep -Seconds 10
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(294,247)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
Start-Sleep -Seconds 10
[System.Windows.Forms.SendKeys]::SendWait('MADRID')
Start-Sleep -Seconds 5
[System.Windows.Forms.SendKeys]::SendWait('{TAB}')
Start-Sleep -Seconds 10
[System.Windows.Forms.SendKeys]::SendWait('BARCELONA')
Start-Sleep -Seconds 5
[System.Windows.Forms.SendKeys]::SendWait('{TAB}')
Start-Sleep -Seconds 10
[System.Windows.Forms.SendKeys]::SendWait('25/11/2016')
Start-Sleep -Seconds 5
[System.Windows.Forms.SendKeys]::SendWait('{ENTER}')
Start-Sleep -Seconds 10
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(343,671)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
Start-Sleep -Seconds 10
#Si falla la petición pulsar en el botón "RECARGAR"
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(666,497)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)


#Guardar resultado de la búsqueda para un día en concreto
Start-Sleep -Seconds 5
$_
[System.Windows.Forms.SendKeys]::SendWait('^{s}')
Start-Sleep -Seconds 5
$tiempo=(Get-Date).tostring("dd-MM-yyyy-hh-mm-ss")
Start-Sleep -Seconds 5
[System.Windows.Forms.SendKeys]::SendWait("d:\ave\"+$tiempo)
Start-Sleep -Seconds 5
[System.Windows.Forms.SendKeys]::SendWait('{ENTER}')
Start-Sleep -Seconds 20
[System.Windows.Forms.SendKeys]::SendWait('{END}')

$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

Start-Process chrome "https://venta.renfe.com/vol/home.do"

Start-Sleep -Seconds 10

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

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

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

Start-Sleep -Seconds 10

[System.Windows.Forms.SendKeys]::SendWait('MADRID')

Start-Sleep -Seconds 5

[System.Windows.Forms.SendKeys]::SendWait('{TAB}')

Start-Sleep -Seconds 10

[System.Windows.Forms.SendKeys]::SendWait('BARCELONA')

Start-Sleep -Seconds 5

[System.Windows.Forms.SendKeys]::SendWait('{TAB}')

Start-Sleep -Seconds 10

[System.Windows.Forms.SendKeys]::SendWait('25/11/2016')

Start-Sleep -Seconds 5

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

Start-Sleep -Seconds 10

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

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

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

Start-Sleep -Seconds 10

#Si falla la petición pulsar en el botón "RECARGAR"

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

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

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

#Guardar resultado de la búsqueda para un día en concreto

Start-Sleep -Seconds 5

[System.Windows.Forms.SendKeys]::SendWait('^{s}')

Start-Sleep -Seconds 5

$tiempo=(Get-Date).tostring("dd-MM-yyyy-hh-mm-ss")

Start-Sleep -Seconds 5

[System.Windows.Forms.SendKeys]::SendWait("d:\ave\"+$tiempo)

Start-Sleep -Seconds 5

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

Start-Sleep -Seconds 20

[System.Windows.Forms.SendKeys]::SendWait('{END}')

Buscar billetes de AVE automáticamente

(No Ratings Yet)

$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

Start-Process chrome "https://venta.renfe.com/vol/home.do"

Start-Sleep -Seconds 10
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(294,247)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
Start-Sleep -Seconds 10
[System.Windows.Forms.SendKeys]::SendWait('MADRID')
Start-Sleep -Seconds 5
[System.Windows.Forms.SendKeys]::SendWait('{TAB}')
Start-Sleep -Seconds 10
[System.Windows.Forms.SendKeys]::SendWait('BARCELONA')
Start-Sleep -Seconds 5
[System.Windows.Forms.SendKeys]::SendWait('{TAB}')
Start-Sleep -Seconds 10
[System.Windows.Forms.SendKeys]::SendWait('25/11/2016')
Start-Sleep -Seconds 5
[System.Windows.Forms.SendKeys]::SendWait('{ENTER}')
Start-Sleep -Seconds 10
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(343,671)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
Start-Sleep -Seconds 10
#Si falla la petición pulsar en el botón "RECARGAR"
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(666,497)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

$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

Start-Process chrome "https://venta.renfe.com/vol/home.do"

Start-Sleep -Seconds 10

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

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

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

Start-Sleep -Seconds 10

[System.Windows.Forms.SendKeys]::SendWait('MADRID')

Start-Sleep -Seconds 5

[System.Windows.Forms.SendKeys]::SendWait('{TAB}')

Start-Sleep -Seconds 10

[System.Windows.Forms.SendKeys]::SendWait('BARCELONA')

Start-Sleep -Seconds 5

[System.Windows.Forms.SendKeys]::SendWait('{TAB}')

Start-Sleep -Seconds 10

[System.Windows.Forms.SendKeys]::SendWait('25/11/2016')

Start-Sleep -Seconds 5

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

Start-Sleep -Seconds 10

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

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

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

Start-Sleep -Seconds 10

#Si falla la petición pulsar en el botón "RECARGAR"

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

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

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

Leer de un fichero direcciones URL y extraer información de cada URL

(No Ratings Yet)

#Guardar en un fichero las direcciones URL que vamos a recorrer y extraer un elemento
#https://www.tiempo.com/madrid.htm
#https://www.tiempo.com/barcelona.htm
#https://www.tiempo.com/sevilla.htm

gc D:\power\ficherostiempo.txt | % {((Invoke-WebRequest $_).AllElements | Where class -eq 'ddTemp T1Loc color-texto-t100-0' | %{$_.innerText})}

#Guardar en un fichero las direcciones URL que vamos a recorrer y extraer un elemento

#https://www.tiempo.com/madrid.htm

#https://www.tiempo.com/barcelona.htm

#https://www.tiempo.com/sevilla.htm

gc D:\power\ficherostiempo.txt | % {((Invoke-WebRequest $_).AllElements | Where class -eq 'ddTemp T1Loc color-texto-t100-0' | %{$_.innerText})}

Temperatura máxima en Barcelona para hoy

(No Ratings Yet)

((Invoke-WebRequest 'https://www.tiempo.com/barcelona.htm').AllElements | Where class -eq 'T2Loc changeUnitT color-texto-t90-8' | %{$_.innerText})[0]

1	((Invoke-WebRequest 'https://www.tiempo.com/barcelona.htm').AllElements \| Where class -eq 'T2Loc changeUnitT color-texto-t90-8' \| %{$_.innerText})[0]

Introducción a los sistemas informáticos (Sistemas operativos monopuesto)

(No Ratings Yet)

Índice El ordenador Componentes físicos y lógicos El sistema informático Componentes Tipos de sistemas informáticos El hardware El software Organización […]

Sistemas operativos monopuesto

(3 votes, average: 3.67 out of 5)

Índice Introducción a los sistemas informáticos Introducción a los sistemas operativos Instalación de sistemas operativos Configuración de máquinas virtuales Virtualización […]