テックメモ – 自分用のメモです。内容が間違っていたり、作りかけで動作しないコードなどあるのでご注意ください。

2024-11-172024-11-17

C# デバウンス(検索用)

System.Threading.Timer _timer = new System.Threading.Timer(x => {
    Invoke(new Action(() => { xxx(); })); 
});
textBox1.TextChanged += (s, e) => {
    _timer.Change(500, Timeout.Infinite);
};

System.Threading.Timer _timer = new System.Threading.Timer(x => {

Invoke(new Action(() => { xxx(); }));

});

textBox1.TextChanged += (s, e) => {

_timer.Change(500, Timeout.Infinite);

};

2024-11-012024-11-19

共有フォルダにアクセスできない

組織のセキュリティポリシーによって非認証のゲストアクセスがブロックされているため､というメッセージが表示される｡

>gpedit.msc
コンピューターの構成
管理用テンプレート
ネットワーク
Lanman ワークステーション
安全でないゲストログオンを有効にする

>gpupdate

2024-10-24

勝手に再起動してしまう

時々勝手に再起動してしまう症状が発生。

イベントビューワーをみると、メタデータステージングが失敗しましたと､DeviceSetupManagerがエラーを出している(イベントID131)

そのほか特にエラーもないので、
sysdm.cpl>ハードウェア>デバイスのインストール設定>いいえ
とだけ設定してみたら症状がおさまった。

2024-10-172024-10-17

マウスポインタが崩れる(二重や輪が付いたりなど)

ノートPC+ディスプレイ×2の環境のPCで数時間作業しているとマウスポインタが崩れる(二重や輪が付いたりなど)とのこと｡崩れるのはHDMIポートではなくUSBtoHDMIアダプタ側のみ｡

調べてみると､
“C:\Program Files\MS USB Display\WinUsbDisplay.exe”
というソフトがドライバとして動いており､これを再起動すると直った｡

taskkill /f /im WinUsbDisplay.exe
timeout 5 /nobreak
start "" "C:\Program Files\MS USB Display\WinUsbDisplay.exe"

taskkill /f /im WinUsbDisplay.exe

timeout 5 /nobreak

start "" "C:\Program Files\MS USB Display\WinUsbDisplay.exe"

検索してもほとんど情報はなく､おそらくアダプタ付属のソフトだったのだろうが､使わないほうがいいかなという感じ｡

2024-10-102024-10-10

Outlookの送信が異常に遅い症状が発生

ESETの設定にある､Outlookとの統合をオンオフで直った｡

2024-10-082024-10-12

Windows検索が反応しない

追記

どうやらGoogle日本語入力が原因の模様｡
再インストールしたら直った｡
(2.30.5590.0→2.29.5370.0)

https://answers.microsoft.com/ja-jp/windows/forum/all/windowssearchhost%E3%81%8C%E4%B8%AD%E6%96%AD/03d7f11c-f73d-4b0f-b161-e4b90dd371c4

——————————————————–

スタートメニューの検索(タスクバーの検索ボックス)が反応しなくなった｡どのタイミングだったか定かではないけど､どうもKB5043145が原因っぽい｡

https://learn.microsoft.com/ja-jp/troubleshoot/windows-client/shell-experience/fix-problems-in-windows-search
を一通りやったけど､ダメ｡

現状､SearchHostを2回落とすと動くが､なぜか1回だとダメ｡

taskkill /f /im SearchHost.exe
timeout 5 /nobreak
taskkill /f /im SearchHost.exe
pause

taskkill /f /im SearchHost.exe

timeout 5 /nobreak

taskkill /f /im SearchHost.exe

pause

2024-10-042024-10-04

AutoHotkey MButton↔RButton/Chrome

#HotIf WinActive("ahk_exe chrome.exe") or WinActive("ahk_exe msedge.exe")
RButton::MButton
MButton::RButton

#HotIf WinActive("ahk_exe chrome.exe") or WinActive("ahk_exe msedge.exe")

RButton::MButton

MButton::RButton

このような感じで､ChromeだけMButtonとRButtonを入れ替えていたけど､
Chromeがアクティブな状態から､デスクトップなどを直接右クリックすると､マウスの左クリックが反応しなくなってしまう｡(中央ボタンが押された状態?)一度､中央ボタンを押せば直るが､時々発生するので､以下のように変更

MButton::
{
  MouseGetPos(,,&id)
  if InStr(WinGetClass(id), "Chrome")
  {
    MouseClick "R"
  }
  else
  {
    MouseClick "M"
  }
}
RButton::
{
  MouseGetPos(,,&id)
  if InStr(WinGetClass(id), "Chrome")
  {
    MouseClick "M"
  }
  else
  {
    MouseClick "R"
  }
}

MButton::

{

MouseGetPos(,,&id)

if InStr(WinGetClass(id), "Chrome")

{

MouseClick "R"

}

else

{

MouseClick "M"

}

RButton::

{

MouseGetPos(,,&id)

if InStr(WinGetClass(id), "Chrome")

{

MouseClick "M"

}

else

{

MouseClick "R"

}

2024-10-032024-10-03

VBA 文字列分割ForEach,RCからA1アドレス取得,条件付書式

Sub SetColor()

Set w = Sheets("Sheet1")

For Each c In Split("2,3,17,23,24,38,39", ",")

  alphabet = Split(w.Cells(1, CInt(c)).Address, "$")(1)
 
  For r = 2 To 300
 
    Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""未""")
    f.Font.Color = RGB(255, 0, 0)
    f.Interior.Color = RGB(255, 255, 0)
    f.StopIfTrue = False
   
    Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""済み""")
    f.Font.Color = RGB(0, 0, 0)
    f.Interior.Color = RGB(150, 150, 150)
    f.StopIfTrue = False
 
  Next

Next

End Sub

Sub SetColor()

Set w = Sheets("Sheet1")

For Each c In Split("2,3,17,23,24,38,39", ",")

alphabet = Split(w.Cells(1, CInt(c)).Address, "$")(1)

For r = 2 To 300

Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""未""")

f.Font.Color = RGB(255, 0, 0)

f.Interior.Color = RGB(255, 255, 0)

f.StopIfTrue = False

Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""済み""")

f.Font.Color = RGB(0, 0, 0)

f.Interior.Color = RGB(150, 150, 150)

f.StopIfTrue = False

End Sub

2024-09-23

PowerShell リモート許可設定

if (-not ([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator"))
{
  $scriptPath = $MyInvocation.MyCommand.Path
  Start-Process -FilePath "powershell.exe" -ArgumentList "-NoProfile -ExecutionPolicy Bypass -File `"$scriptPath`"" -Verb RunAs
  Exit
}

# ユーザーを追加する場合
# New-LocalUser -Name "TempUser" -Password (ConvertTo-SecureString "1234" -AsPlainText -Force) -AccountNeverExpires -PasswordNeverExpires
# Add-LocalGroupMember -Group "Administrators" -Member "TempUser"

# 空パスワードの許可
Set-ItemProperty -Path 'HKLM:\SYSTEM\CurrentControlSet\Control\Lsa' -Name 'LimitBlankPasswordUse' -Value 0

# リモート接続の許可 (sysdm.cpl＞リモートが有効になる) + ネットワークレベル認証の解除(PROのみ)
Set-ItemProperty -Path "HKLM:\SYSTEM\CurrentControlSet\Control\Terminal Server" -Name "fDenyTSConnections" -Value 0
Set-ItemProperty -Path "HKLM:\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp" -Name "UserAuthentication" -Value 0

# ファイルとプリンターの共有を有効にする
# netsh advfirewall firewall set rule group="ファイルとプリンターの共有" new enable=Yes
Enable-NetFirewallRule -DisplayGroup "ファイルとプリンターの共有"

# リモートデスクトップを有効にする
# netsh advfirewall firewall set rule group="リモート デスクトップ" new enable=yes
if (Get-NetFirewallRule | Where-Object { $_.DisplayGroup -eq "リモート デスクトップ" })
{
  Enable-NetFirewallRule -DisplayGroup "リモート デスクトップ"
}

# 別セグメント許可
# netsh advfirewall firewall add rule name="Allow Subnet RDP" dir=in action=allow protocol=tcp localport=3389 profile=private,public remoteip=192.168.0.0/16
New-NetFirewallRule -DisplayName "Allow Subnet RDP" -Name "Allow Subnet RDP" -Direction Inbound -Action Allow -Protocol TCP -LocalPort 3389 -Profile Private,Public -RemoteAddress 192.168.0.0/16

# AC電源使用時のスリープを無効にする
powercfg /change standby-timeout-ac 0

# AC電源使用時のディスプレイオフタイムアウトを無効にする
powercfg /change monitor-timeout-ac 0

# AC電源使用時のハードディスクの電源オフタイムアウトを無効にする
powercfg /change disk-timeout-ac 0

# アクティブなユーザー名(PROのみ)
$activeUser1 = (query user | Select-String "Active" | ForEach-Object {
  $_.ToString().Split(" ", [System.StringSplitOptions]::RemoveEmptyEntries)[0]
})

$activeUser2 = (Get-WMIObject -ClassName Win32_ComputerSystem).Username

# IPアドレス(192.168.が含まれている)
$ipAddress1 = (Get-NetIPAddress | Where-Object { $_.IPAddress -like "192.168.*" }).IPAddress

# IPアドレス(デフォルトゲートウェイが設定されている)
$ipAddress2 = (Get-NetIPConfiguration | Where-Object { $_.IPv4DefaultGateway -ne $null }).IPv4Address.IPAddress

# wmic useraccount get Caption
$wmic = (Get-WmiObject Win32_UserAccount | Select-Object -ExpandProperty Caption) -join "`r`n"

$whoami = whoami

$computer = Get-WmiObject Win32_ComputerSystem
$domain = $computer.Domain
$workgroup = $computer.Workgroup

$Body = "domain: " + $domain + "`r`n`r`n" + "workgroup: " + $workgroup + "`r`n`r`n" + "active user: " + $activeUser1 + "`r`n`r`n" + "active user: " + $activeUser2 + "`r`n`r`n" + "ip address(192.168.*): " + $ipAddress1 + "`r`n`r`n" + "ip address(default gateway): " + $ipAddress2 + "`r`n`r`n" + "wmic: " + $wmic + "`r`n`r`n" + "whoami: " + $whoami

Write-Output $Body

$encode = [System.Text.Encoding]::UTF8
$SMTPServer = "xxx"
$SMTPPort = "xxx"
$Username = "xxx"
[System.Security.SecureString]$Password = ConvertTo-SecureString "xxx" -AsPlainText -Force
$From = "xxx"
$To = "xxx" 
$Subject = "リモート接続情報"
[System.Collections.Hashtable]$SMTPMessage = @{
    To = $To
    From = $From
    Subject = $Subject
    Body = $Body
    SmtpServer = $SMTPServer
    Port = $SMTPPort
    Credential = New-Object System.Management.Automation.PSCredential ($Username, $Password)
    Encoding = $encode
}
Send-MailMessage @SMTPMessage

Pause

if (-not ([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator"))

{

$scriptPath = $MyInvocation.MyCommand.Path

Start-Process -FilePath "powershell.exe" -ArgumentList "-NoProfile -ExecutionPolicy Bypass -File `"$scriptPath`"" -Verb RunAs

Exit

}

# ユーザーを追加する場合

# New-LocalUser -Name "TempUser" -Password (ConvertTo-SecureString "1234" -AsPlainText -Force) -AccountNeverExpires -PasswordNeverExpires

# Add-LocalGroupMember -Group "Administrators" -Member "TempUser"

# 空パスワードの許可

Set-ItemProperty -Path 'HKLM:\SYSTEM\CurrentControlSet\Control\Lsa' -Name 'LimitBlankPasswordUse' -Value 0

# リモート接続の許可 (sysdm.cpl＞リモートが有効になる) + ネットワークレベル認証の解除(PROのみ)

Set-ItemProperty -Path "HKLM:\SYSTEM\CurrentControlSet\Control\Terminal Server" -Name "fDenyTSConnections" -Value 0

Set-ItemProperty -Path "HKLM:\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp" -Name "UserAuthentication" -Value 0

# ファイルとプリンターの共有を有効にする

# netsh advfirewall firewall set rule group="ファイルとプリンターの共有" new enable=Yes

Enable-NetFirewallRule -DisplayGroup "ファイルとプリンターの共有"

# リモートデスクトップを有効にする

# netsh advfirewall firewall set rule group="リモートデスクトップ" new enable=yes

if (Get-NetFirewallRule | Where-Object { $_.DisplayGroup -eq "リモートデスクトップ" })

{

Enable-NetFirewallRule -DisplayGroup "リモートデスクトップ"

}

# 別セグメント許可

# netsh advfirewall firewall add rule name="Allow Subnet RDP" dir=in action=allow protocol=tcp localport=3389 profile=private,public remoteip=192.168.0.0/16

New-NetFirewallRule -DisplayName "Allow Subnet RDP" -Name "Allow Subnet RDP" -Direction Inbound -Action Allow -Protocol TCP -LocalPort 3389 -Profile Private,Public -RemoteAddress 192.168.0.0/16

# AC電源使用時のスリープを無効にする

powercfg /change standby-timeout-ac 0

# AC電源使用時のディスプレイオフタイムアウトを無効にする

powercfg /change monitor-timeout-ac 0

# AC電源使用時のハードディスクの電源オフタイムアウトを無効にする

powercfg /change disk-timeout-ac 0

# アクティブなユーザー名(PROのみ)

$activeUser1 = (query user | Select-String "Active" | ForEach-Object {

$_.ToString().Split(" ", [System.StringSplitOptions]::RemoveEmptyEntries)[0]

})

$activeUser2 = (Get-WMIObject -ClassName Win32_ComputerSystem).Username

# IPアドレス(192.168.が含まれている)

$ipAddress1 = (Get-NetIPAddress | Where-Object { $_.IPAddress -like "192.168.*" }).IPAddress

# IPアドレス(デフォルトゲートウェイが設定されている)

$ipAddress2 = (Get-NetIPConfiguration | Where-Object { $_.IPv4DefaultGateway -ne $null }).IPv4Address.IPAddress

# wmic useraccount get Caption

$wmic = (Get-WmiObject Win32_UserAccount | Select-Object -ExpandProperty Caption) -join "`r`n"

$whoami = whoami

$computer = Get-WmiObject Win32_ComputerSystem

$domain = $computer.Domain

$workgroup = $computer.Workgroup

$Body = "domain: " + $domain + "`r`n`r`n" + "workgroup: " + $workgroup + "`r`n`r`n" + "active user: " + $activeUser1 + "`r`n`r`n" + "active user: " + $activeUser2 + "`r`n`r`n" + "ip address(192.168.*): " + $ipAddress1 + "`r`n`r`n" + "ip address(default gateway): " + $ipAddress2 + "`r`n`r`n" + "wmic: " + $wmic + "`r`n`r`n" + "whoami: " + $whoami

Write-Output $Body

$encode = [System.Text.Encoding]::UTF8

$SMTPServer = "xxx"

$SMTPPort = "xxx"

$Username = "xxx"

[System.Security.SecureString]$Password = ConvertTo-SecureString "xxx" -AsPlainText -Force

$From = "xxx"

$To = "xxx"

$Subject = "リモート接続情報"

[System.Collections.Hashtable]$SMTPMessage = @{

To = $To

From = $From

Subject = $Subject

Body = $Body

SmtpServer = $SMTPServer

Port = $SMTPPort

Credential = New-Object System.Management.Automation.PSCredential ($Username, $Password)

Encoding = $encode

}

Send-MailMessage @SMTPMessage

Pause

実行前に管理者権限で以下のバッチを実行
PowerShell Set-ExecutionPolicy Unrestricted