#system.drawing

[jesusninoc]

Detectar el color de un píxel en PowerShell

Detectar el color de un píxel en PowerShell

$GDI = Add-Type -MemberDefinition @' [DllImport("user32.dll")] static extern IntPtr GetDC(IntPtr hwnd); [DllImport("user32.dll")] static extern Int32 ReleaseDC(IntPtr hwnd, IntPtr hdc); [DllImport("gdi32.dll")] static extern uint GetPixel(IntPtr hdc,int nXPos,int nYPos); static public int GetPixelColor(int x, int y) { IntPtr hdc = GetDC(IntPtr.Zero); uint pixel = GetPixel(hdc, x, y);…

View On WordPress

[jesusninoc]

Comparar dos imágenes con PowerShell indicando el momento en el que empieza la diferencia

#Es necesario que las dos imágenes estén en la misma posición inicial $foto1 = [System.Drawing.Bitmap]::FromFile('C:\Users\juan\Desktop\recono\coche.png') $foto2 = [System.Drawing.Bitmap]::FromFile('C:\Users\juan\Desktop\recono\coche - copia.png') $pixelestotales=0 $pixelesdistintos=0 $primeraposicion=0 for($y=0;$y -lt $foto1.Height;$y+=1) { for($x=0;$x -lt $foto1.Width;$x+=1) {…

View On WordPress

[jesusninoc]

Extraer coordenadas GPS de imágenes con PowerShell

$imagePath = 'C:\Users\juan\Desktop\recono\IMG_20171226_232738.jpg' $imageProperties = New-Object -TypeName System.Drawing.Bitmap -ArgumentList $imagePath [double]$LatDegrees = (([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 0)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 4))); [double]$LatMinutes = ([System.BitConverter]::ToInt32(…

View On WordPress

[jesusninoc]

Crear una notificación en Windows con PowerShell

$balloon = New-Object System.Windows.Forms.NotifyIcon #Configurar notificación #Icono $balloon.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon((Get-Process -Name notepad).Path) $balloon.BalloonTipIcon = [string]$Icon = 'Info' #Mensaje $balloon.BalloonTipText = "Mensaje" #Título $balloon.BalloonTipTitle = "Título" $balloon.Visible = $true $balloon.ShowBalloonTip(5000)

View On WordPress

[jesusninoc]

Mover el ratón a una posición de la pantalla con PowerShell

Mover el ratón a una posición de la pantalla con PowerShell

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

View On WordPress

[dontfretbrett-blog-blog]

Quick Batch Image Resizer in VB.Net

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim OFD As New OpenFileDialog

        OFD.Filter = "JPG|*.jpg"

        OFD.Multiselect = True

        If OFD.ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub

        For Each F As String In OFD.FileNames

            ResizeImage(F, 0.25)

        Next

    End Sub

    Sub ResizeImage(ByVal sFile As String, ByVal percentResize As Double)

        Dim sPath As String = sFile.Substring(0, sFile.LastIndexOf("\") + 1)

        Dim sName As String = sFile.Substring(sFile.LastIndexOf("\") + 1)

        Dim bm As New Bitmap(sFile)

        Dim width As Integer = bm.Width * percentResize

        Dim height As Integer = bm.Height * percentResize

        Dim thumb As New Bitmap(width, height)

        Dim g As Graphics = Graphics.FromImage(thumb)

        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

        g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, bm.Height), GraphicsUnit.Pixel)

        g.Dispose()

        bm.Dispose()

        thumb.Save(sPath & sName.Substring(0, sName.LastIndexOf(".")) & " (2)" & sName.Substring(sName.LastIndexOf(".")), System.Drawing.Imaging.ImageFormat.Jpeg)

        thumb.Dispose()

    End Sub