From eada27410bb4c276438e714c7b4580053de78a6d Mon Sep 17 00:00:00 2001 From: dzmanto Date: Fri, 2 Jun 2023 09:52:39 +0200 Subject: [PATCH] handle webp change --- rotanconv36.ps1 | 493 ------------------------------------------------ 1 file changed, 493 deletions(-) delete mode 100644 rotanconv36.ps1 diff --git a/rotanconv36.ps1 b/rotanconv36.ps1 deleted file mode 100644 index 5e72ae7..0000000 --- a/rotanconv36.ps1 +++ /dev/null @@ -1,493 +0,0 @@ -[CmdletBinding()] - -Param( -) - -$signature = @" -[DllImport("user32.dll")] -public static extern bool SystemParametersInfo(int uAction, int uParam, ref int lpvParam, int flags ); -"@ - -$systemParamInfo = Add-Type -memberDefinition $signature -Name ScreenSaver -passThru - -Add-Type @" -using System; -using System.Runtime.InteropServices; -using Microsoft.Win32; - -namespace Wallpaper { - public enum Style : int { - Tile, Center, Stretch, NoChange - } - public class Setter { - public const int SetDesktopWallpaper = 20; - public const int UpdateIniFile = 0x01; - public const int SendWinIniChange = 0x02; - [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)] - private static extern int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni); - - public static void SetWallpaper (string path) { - SystemParametersInfo(SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange); - } - } -} -"@ - -function goget { - Param( - [Parameter(Mandatory=$True,Position=1)] - [string]$strurl, - - [Parameter(Mandatory=$False,Position=2)] - [string]$isdata - ) - Write-Verbose "Load target website $strurl" - $proxy = [System.Net.WebRequest]::GetSystemWebProxy() - $wc = New-Object Net.WebClient - $wc.proxy = $proxy - $wc.Headers.Add("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8") - $wc.Headers.Add("User-Agent", "Mozilla/4.0+(compatible;+MSIE+8.0;+Windows+NT+5.1)") - $wc.UseDefaultCredentials = $true - $wc.proxy.Credentials = $wc.Credentials - - $contents = "" - $count = 1 - Do { - if($isdata.contains("yes")) { - [BYTE[]] $contents = $wc.DownloadData($strurl) - } else { - try { - $contents = $wc.DownloadString($strurl) - } catch [Exception] { - Write-Verbose "There appears to be no internet connection." - } - } - # a network connection may not be available yet. Sleep for 7 seconds. - if($contents.length -eq 0) { - $count = $count + 1 - Write-Verbose "Target website returned zero length." - Write-Verbose "Retry in 7 seconds." - sleep -seconds 7 - } - } while($contents.length -eq 0 -and $count -lt 100) - - $wc.Dispose() - - if($contents.length -eq 0) { - Write-Verbose "Target website returned zero length." - Write-Verbose "Exit." - Exit 1 - } else { - return $contents - } -} - -function cutidx { - Param( - [Parameter(Mandatory=$True,Position=1)] - [string]$strtocut, - - [Parameter(Mandatory=$True,Position=2)] - [string]$stridx - ) - $dc = $strtocut.indexof($stridx) - if($dc -ge 0) { - $strtocut = $strtocut.substring($dc) - } - return $strtocut -} - -function getttl { - Param( - [Parameter(Mandatory=$True,Position=1)] - [string]$contents, - - [Parameter(Mandatory=$True,Position=2)] - [string]$marker - ) - $contents = cutidx $contents $marker - $e = $contents.substring($marker.Length).indexof("""") - $Title = $contents.substring(($marker.Length),$e) - return $Title -} - -function procstr { - Param( - [Parameter(Mandatory=$True,Position=1)] - [string]$strtoproc - ) - $strtoproc = $strtoproc -replace ";" , "" - $strtoproc = $strtoproc -replace "|" , "" - $strtoproc = $strtoproc -replace """" , "" - $strtoproc = $strtoproc -replace "\\/" , "/" - $strtoproc = $strtoproc -replace "'", "" - $strtoproc = $strtoproc.trim() - return $strtoproc -} - -function proctitle { - Param( - [Parameter(Mandatory=$True,Position=1)] - [string]$strtoproc - ) - $strtoproc = $strtoproc -replace "&" , "&" - $strtoproc = $strtoproc -replace """ , [char]34 - $strtoproc = $strtoproc -replace "<" , "<" - $strtoproc = $strtoproc -replace ">" , ">" - $strtoproc = $strtoproc -replace ">" , ">" - $strtoproc = $strtoproc -replace "˜" , "˜" - $strtoproc = $strtoproc -replace "ˆ" , "^" - $strtoproc = $strtoproc -replace "–" , "–" - $strtoproc = $strtoproc -replace "—" , "—" - $strtoproc = $strtoproc -replace "‰" , "‰" - $strtoproc = $strtoproc -replace "\\u0027" , [char]39 - $strtoproc = $strtoproc -replace "|" , "" - $strtoproc = $strtoproc.trim() - return $strtoproc -} - -function resizeimg { - Param( - [Parameter(Mandatory=$True,Position=1)] - [string]$rwidth, - - [Parameter(Mandatory=$True,Position=2)] - [string]$rheight, - - [Parameter(Mandatory=$True,Position=3)] - [System.Drawing.Bitmap]$bmpFile - ) - $target_height = [double] $rheight - $target_width = [double] $rwidth - # keep aspect ratio - if($bmpFile.Width/$bmpFile.Height -gt $target_width/$target_height) { - $target_height=$target_width*$bmpFile.Height/$bmpFile.Width - $rheight = [string] $target_height - } - if($bmpFile.Width/$bmpFile.Height -lt $target_width/$target_height) { - $target_width=$target_height*$bmpFile.Width/$bmpFile.Height - $rwidth = [string] $target_width - } - # create resized bitmap - $bmpResized = New-Object System.Drawing.Bitmap([int] ($rwidth), [int] ($rheight)) - $graph = [System.Drawing.Graphics]::FromImage($bmpResized) - $graph.Clear([System.Drawing.Color]::White) - $graph.DrawImage($bmpFile,0, 0, $rwidth, $rheight) - return $bmpResized -} - -function Parse-IniFile ($file) { - $ini = @{} - - # Create a default section if none exist in the file. Like a java prop file. - $section = "NO_SECTION" - $ini[$section] = @{} - - switch -regex -file $file { - "^\[(.+)\]$" { - $section = $matches[1].Trim() - $ini[$section] = @{} - } - "^\s*([^#].+?)\s*=\s*(.*)" { - $name,$value = $matches[1..2] - # skip comments that start with semicolon: - if (!($name.StartsWith(";"))) { - $ini[$section][$name] = $value.Trim() - } - } - } - $ini -} - -function initbang { - # stretch and refresh at startup - $path = [IO.Path]::GetFullPath("bingimagean.bmp") - $registryPath = "HKCU:\Control Panel\Desktop" - if((Test-Path $path) -and (Test-Path $registryPath)) { - - Write-Verbose "Load System.Drawing on init." - $null = [Reflection.Assembly]::LoadWithPartialName("System.Drawing") - $null = [Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") - $srcImg = [System.Drawing.Bitmap][System.Drawing.Image]::FromFile($path) - - # Resize image if necessary - $CurrentRes = (Get-CimInstance Win32_VideoController).VideoModeDescription 4> $null - if($CurrentRes.GetType().IsArray) { - $CurrentRes = [String] $CurrentRes - } - $CurrentRes_split = $CurrentRes.Split("x") - $rwidth=$CurrentRes_split[0] - $rwidth=$rwidth.trim() - $rheight=$CurrentRes_split[1] - $rheight=$rheight.trim() - - Write-Verbose "Resize image on init." - $srcOutImg = resizeimg $rwidth $rheight $srcImg - if($srcImg.Wdith -ne $srcOutImg.Wdith -or $srcImg.Height -ne $srcOutImg.Height) { - $srcImg.Dispose() - Write-Verbose "Create a bitmap object on init." - $bmpFile = New-Object System.Drawing.Bitmap(([int]($srcOutImg.width)),([int]($srcOutImg.height))) - Write-Verbose "Intialize graphics object on init." - $Image = [System.Drawing.Graphics]::FromImage($bmpFile) - $Image.SmoothingMode = "AntiAlias" - $Rectangle = New-Object Drawing.Rectangle 0, 0, $srcOutImg.Width, $srcOutImg.Height - $Image.DrawImage($srcOutImg, $Rectangle, 0, 0, $srcOutImg.Width, $srcOutImg.Height, ([Drawing.GraphicsUnit]::Pixel)) - $bmpFile.save($path, [System.Drawing.Imaging.ImageFormat]::Bmp) - $bmpFile.Dispose() - } - $srcImg.Dispose() - $srcOutImg.Dispose() - - Write-Verbose "stretch and refresh" - $nm = "WallpaperStyle" - $value = "0" - $null = New-ItemProperty -Path $registryPath -Name $nm -Value $value -PropertyType STRING -Force - $nm = "TileWallpaper" - $value = "0" - $null = New-ItemProperty -Path $registryPath -Name $nm -Value $value -PropertyType STRING -Force - - Write-Verbose "Refresh explorer." - [Wallpaper.Setter]::SetWallpaper($path) - Write-Verbose "Done with stretch and refresh" - } -} - -function loadandset { - if (Test-Path ".\bang.ini") { - $ini = Parse-IniFile ".\bang.ini" - $hostinfo = $ini["defaults"]["hostinfo"] - $dwnldsrc = $ini["defaults"]["source"] - } - - if ($dwnldsrc -eq "heise") { - $contents = goget "http://www.heise.de/foto/galerie/" - } else { - $contents = goget "http://www.bing.com/" - } - - Write-Verbose "Parse target website" - if ($dwnldsrc -eq "heise") { - $contents = cutidx $contents "figure class=""main_stage""" - $contents = cutidx $contents "") - $imgnxt = $contents.substring(9,$dh-8) - $imgnxt = procstr $imgnxt - $imgnxt = "http://www.heise.de" + $imgnxt - $contents = goget($imgnxt) - $contents = cutidx $contents "
" - $contents = cutidx $contents "
 $null - if($CurrentRes.GetType().IsArray) { - $CurrentRes = [String] $CurrentRes - } - $CurrentRes_split = $CurrentRes.Split("x") - $rwidth=$CurrentRes_split[0] - $rwidth=$rwidth.trim() - $rheight=$CurrentRes_split[1] - $rheight=$rheight.trim() - - Write-Verbose "Resize image." - $srcImg = resizeimg $rwidth $rheight $srcImg - - # rotate the image - $srcImg.rotateflip("Rotate270FlipNone") - - Write-Verbose "Create a bitmap object." - $bmpFile = New-Object System.Drawing.Bitmap(([int]($srcImg.width)),([int]($srcImg.height))) - - Write-Verbose "Intialize graphics object." - $Image = [System.Drawing.Graphics]::FromImage($bmpFile) - $Image.SmoothingMode = "AntiAlias" - - $Rectangle = New-Object Drawing.Rectangle 0, 0, $srcImg.Width, $srcImg.Height - $Image.DrawImage($srcImg, $Rectangle, 0, 0, $srcImg.Width, $srcImg.Height, ([Drawing.GraphicsUnit]::Pixel)) - - $Font = New-Object System.Drawing.Font("Arial", 11) - $Brush = New-Object Drawing.SolidBrush ([System.Drawing.Color]::FromArgb(255, 255, 255, 255)) - $sFormat = New-Object System.Drawing.Stringformat - $sFormat.Alignment = [System.Drawing.StringAlignment]::Center - $ts = $Image.MeasureString($Title,$Font) - $dist = 7 - if ($ts.Width -ge $srcImg.Width) { - $Font = New-Object System.Drawing.Font("Arial", 8) - $dist = 5 - } - - # draw opaque rectangle - $ts = $Image.MeasureString($Title, $Font) - $Brush = new-object Drawing.SolidBrush ([System.Drawing.Color]::FromArgb(128, 0, 0, 0)) - $Image.FillRectangle($Brush,[System.Math]::Round($srcImg.Width/2-$ts.Width*1.1/2), $dist, [System.Math]::Round($ts.Width*1.1), [System.Math]::Round($ts.Height)) - $offset = [System.Math]::Round($srcImg.Width/2+$ts.Width*1.1/2) - - # draw string - $Brush = New-Object Drawing.SolidBrush ([System.Drawing.Color]::FromArgb(255, 255, 255, 255)) - $Image.DrawString($Title, $Font, $Brush, $srcImg.Width/2, $dist,$sFormat) - - # begin display host info - if ($hostinfo -ne "no") { - $bmpFile.rotateflip("Rotate180FlipNone") - $sFormatNew=New-Object System.Drawing.Stringformat("DirectionVertical") - - $hostname = $env:COMPUTERNAME - $ipaddress = (Get-CimInstance Win32_NetworkAdapterConfiguration | ? { $_.IPAddress -ne $null }).ipaddress 4> $null - if(!$ipaddress) { - $ipaddress = (Get-CimInstance Win32_NetworkAdapterConfiguration | ? { $_.IPAddress -ne $null })[0].ipaddress 4> $null - } - if(-not ($ipaddress.GetType().IsArray)) { - $addresses=[Object[]]::new(1) - $addresses[0]=$ipaddress - $ipaddress = $addresses - } - $ipaddress=$ipaddress | sort-object - $username = $env:USERNAME - - $ts = $Image.MeasureString($hostname,$Font) - $sw = [System.Math]::Round($ts.Width) - $voffset = [System.Math]::Round($offset-$dist-$ts.Height) - if($srcImg.Height -ge 966) { - $hoffset = [System.Math]::Round(5/6*$srcImg.Height) - } else { - $hoffset = [System.Math]::Round($srcImg.Height) - 161 - } - - $ivoffset=[Object[]]::new($ipaddress.count) - for($i=0; $i -lt $ipaddress.count; $i++) { - $ts = $Image.MeasureString($ipaddress[$i],$Font) - if($ts.Width -ge $sw) { - $sw = $ts.Width - } - $ivoffset[$i] = [System.Math]::Round($voffset-($i+1)*$dist-($i+1)*$ts.Height) - } - - $ts= $Image.MeasureString($username, $Font) - if($ts.Width -ge $sw) { - $sw = $ts.Width - } - $uvoffset = [System.Math]::Round($voffset-($ipaddress.count+1)*$dist-($ipaddress.count+1)*$ts.Height) - - # upper left corner of image = max - if([System.Math]::Round($uvoffset+3*$dist+3*$ts.Height) -ge $srcImg.Width) { - $uvoffset = [System.Math]::Round($srcImg.Width-($ipaddress.count+2)*$dist-($ipaddress.count+2)*$ts.Height) - for($i=0; $i -lt $ipaddress.count;$i++) { - $ivoffset = [System.Math]::Round($uvoffset+($i+1)*$dist+($i+1)*$ts.Height) - } - $voffset = [System.Math]::Round($ivoffset[$ipaddress.count-1]+$dist+$ts.Height) - } - - # fill rectangle - $Brush = New-Object Drawing.SolidBrush ([System.Drawing.Color]::FromArgb(128, 0, 0, 0)) - $Image.FillRectangle($Brush,$uvoffset, $hoffset-$dist, [System.Math]::Round(($ipaddress.count+2)*$dist+($ipaddress.count+2)*$ts.Height), [System.Math]::Round($sw+($ipaddress.count+2)*$dist)) - # draw strings - $Brush = new-Object Drawing.SolidBrush ([System.Drawing.Color]::FromArgb(255, 255, 255, 255)) - $Image.DrawString($hostname, $Font, $Brush, $voffset, $hoffset, $sFormatNew) - $i=0 - foreach($addr in $ipaddress) { - $Image.DrawString($addr, $Font, $Brush, $ivoffset[$i], $hoffset, $sFormatNew) - $i = $i + 1 - } - $Image.DrawString($username, $Font, $Brush, $uvoffset, $hoffset, $sFormatNew) - $bmpFile.rotateflip("Rotate270FlipNone") - } else { - # turn image back - $bmpFile.rotateflip("Rotate90FlipNone") - } - - # write image - Write-Verbose "Save and close files." - $path = [IO.Path]::GetFullPath("bingimagean.bmp") - $bmpFile.save($path, [System.Drawing.Imaging.ImageFormat]::Bmp) - $Image.Dispose() - $bmpFile.Dispose() - $srcImg.Dispose() - - # begin setwallpaper - Write-Verbose "Write registry." - $registryPath = "HKCU:\Control Panel\Desktop" - - if(!(Test-Path $registryPath)) { - $null = New-Item -Path $registryPath -Force - } - - $nm = "WallpaperStyle" - $value = "0" - $null = New-ItemProperty -Path $registryPath -Name $nm -Value $value -PropertyType STRING -Force - $nm = "TileWallpaper" - $value = "0" - $null = New-ItemProperty -Path $registryPath -Name $nm -Value $value -PropertyType STRING -Force - - Write-Verbose "Refresh explorer." - [Wallpaper.Setter]::SetWallpaper($path) -} - -initbang -loadandset -$time_last_run = Get-Date -Do { - $time_now = Get-Date - $time_diff = $time_now - $time_last_run - if($time_diff.hours -gt 12) { - loadandset - $time_last_run = Get-Date - } - start-sleep -s 60 -} while($true) - -Exit 0