マウスのホイールのスクロール量

4Kのディスプレイを使って，縦長のページをブラウジングしているとホイールの一度にスクロールする量が1行ではかなり遅く感じる．が，これを大きくしているとgoogle mapとかでホイールを回すと一気に拡大縮小されてウグッってなるのでトルグで変更できるプログラムをpowershellで書いてみた．

トースト表示で音が出るのと，うまく設定が反映されないことがある．Firefoxで設定がうまくいかない．とうまだまだ問題あるが．とりあえず．設定ロジクールのMX MASTERの袖部分のスイッチに関連付け．

 powershellの.ps1ファイルを直接紐付けできないのでバッチファイルで紐付け

プログラムは以下


------------------------------

#Requires -Version 3.0
#マウスのスクロール量をトルグで変更するプログラム

# レジストリ読み取り
function RegGet( $RegPath, $RegKey ){
    # レジストリそのものの有無確認
    if( -not (Test-Path $RegPath )){
        Echo "[INFO] $RegPath not found."
        return $null
    }

    # Key有無確認
    $Result = Get-ItemProperty $RegPath -name $RegKey -ErrorAction SilentlyContinue
    # キーがあった時
    if( $Result -ne $null ){
        return $Result.$RegKey
    }
    # キーが無かった時
    else{
        return $null
    }
}



$RegPath = "HKCU:\Control Panel\Desktop"
$RegKey =  "WheelScrollLines"

$t=RegGet $RegPath $RegKey

#Write-Output $PSScriptRoot
$t= [int]$t + 5

if($t -gt 8){
    $t=1
}


Set-ItemProperty $RegPath -name $RegKey -value $t

#一回でうまく設定が反映されないので
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters
rundll32.exe user32.dll,UpdatePerUserSystemParameters




#トースト表示
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$objNotifyIcon = New-Object System.Windows.Forms.NotifyIcon
$objNotifyIcon.Icon = $PSScriptRoot + "\camill_mouse.ico"
$objNotifyIcon.BalloonTipText = "スクロール数を" + $t + "に変更"
$objNotifyIcon.BalloonTipTitle = "ホイールスクロール行数変更"
$objNotifyIcon.Visible = $True
$objNotifyIcon.ShowBalloonTip(1000)

------------------