マウスカーソルの座標を表示するスクリプト

コンピュータ

前回画像をトリミングするスクリプトを作りましたが、私はWindows10のスクリーンショット([Win]+[PrintScreen])で保存した画像ファイルをトリミングしています。
スクリーンショットはデスクトップ全体が画像ファイルとして保存されますので、そこから必要な部分のみを切り出します。切り出す位置は適当な値でトリミングを実行し位置の当たりをつけながら何度かトリミングを繰り返し調整しています。

事前に座標が調べられると仕事がはかどります。

座標を調べるアプリケーションは良くあるのでそれを使っても良いですがPowersehllで作ってみました。

スクリプト

#
# マウスカーソルの位置表示する
#

Add-Type -AssemblyName System.Windows.Forms

$Timer = New-Object System.Windows.Forms.Timer

$TimerTick= {
    $Position = [System.Windows.Forms.Cursor]::Position
    $Label.Text = "X:" + $Position.X + " Y:" + $Position.Y
}

$Timer.Add_Tick($TimerTick)
$Timer.Interval = 200
$Timer.Enabled = $TRUE
$Timer.Start()

$Form = New-Object System.Windows.Forms.Form 
$Form.Text = "座標"
$Form.Size = New-Object System.Drawing.Size(180,120) 

$Label = New-Object System.Windows.Forms.Label
$Label.Location = New-Object System.Drawing.Point(10,30) 
$Label.Size = New-Object System.Drawing.Size(160,20) 
$Label.Font = New-Object System.Drawing.Font("MS ゴシック", 16)

$Form.Controls.Add($Label)

$Form.ShowDialog()

結果


終了は×で閉じてください。

コメント