okamura – テックメモ

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

2024-09-16

ONLYOFFICEを起動してみる

最初､DocumentServer､CommunityServer?という感じになった｡

シンプルに起動したいだけなので､

docker run -i -t -d -p 88:80 onlyoffice/documentserver
docker exec [コンテナID] sudo supervisorctl start ds:example

のような感じでテストできる｡

http://x.x.x.x:88

2024-09-082024-09-16

ConoHaVPS Mattermostイメージ

ConoHaログイン､Ubuntu+Mattermostでサーバー構築｡

セキュリティグループを変更しないと､そのままではアクセスできない｡
サーバー>ネットワーク情報
から変更｡

ユーザー招待はSSLを有効にしないと利用できない｡
SSLのためにはドメインでアクセスする必要がある｡

MuuMuuでドメインを取得する｡

ネームサーバーはAzureを利用する｡
Azure＞DNSゾーン＞作成
名前はドメイン名を入力しておく。

デプロイするとネームサーバーが表示されるので、
MuuMuuでネームサーバーを入力する。

Azureで､AレコードにIPアドレスを入力する。
しばらくするとドメイン名でアクセスできるようになる。

/etc/nginx/sites-enabled/mattermost.conf
の､server_nameをドメインに変更する｡

sudo apt-get remove certbot
sudo snap install --classic certbot
sudo ln -s /snap/bin/certbot /usr/bin/certbot
sudo certbot --nginx
(agreeのときはyでshare emailのときはn)

更新プロセスの確認
sudo certbot renew --dry-run

/etc/nginx/sites-enabled/mattermost.conf

の､server_nameをドメインに変更する｡

sudo apt-get remove certbot

sudo snap install --classic certbot

sudo ln -s /snap/bin/certbot /usr/bin/certbot

sudo certbot --nginx

(agreeのときはyでshare emailのときはn)

更新プロセスの確認

sudo certbot renew --dry-run

これでSSL+ドメインでアクセスできる｡

iOSのクライアントでアクセスすると最新のバーションにしろといわれるので､
手動でアップデートする｡

sudo systemctl stop mattermost
cd /opt/
mv mattermost old_mattermost
wget https://releases.mattermost.com/9.11.1/mattermost-team-9.11.1-linux-amd64.tar.gz
tar -xvzf mattermost*.gz
cp /opt/old_mattermost/config/config.json /opt/mattermost/config/config.json
sudo chown -R mattermost:mattermost mattermost
sudo systemctl start mattermost

今回は特に変更しない(サービス設定)
sudo vim /etc/systemd/system/mattermost.service

sudo systemctl stop mattermost

cd /opt/

mv mattermost old_mattermost

wget https://releases.mattermost.com/9.11.1/mattermost-team-9.11.1-linux-amd64.tar.gz

tar -xvzf mattermost*.gz

cp /opt/old_mattermost/config/config.json /opt/mattermost/config/config.json

sudo chown -R mattermost:mattermost mattermost

sudo systemctl start mattermost

今回は特に変更しない(サービス設定)

sudo vim /etc/systemd/system/mattermost.service

ファイルのアップロード容量

/etc/nginx/sites-available/mattermost.conf
client_max_body_size
を変更する(2個所)
システムコンソール>ファイルストレージ
も変更する｡

2024-09-062024-09-06

iPhone(SoftBank)にmineo(eSIM)を追加してみる｡

設定>一般>情報
SIM ロック：SIMロックなし
を確認｡

設定>一般>情報
EIDを確認｡

mineoで申し込み
Dプラン(ドコモ)＋スーパーライトプランで申し込み
eKYCで本人確認実施｡

キャリアアクティベーション対応なので､数日後に､iPhoneにeSIMが使用可能になったと通知がくる｡各機能でどちらを主にするかなどの設定を行う｡

指定されたURLにアクセスし､プロファイルをダウンロードする｡

設定>一般>VPNとデバイス管理
からプロファイルをインストール｡

iPhoneでは複数のプロファイルを登録できないため､mineoのプロファイルを登録するとSoftBankの回線が切れてしまい､音声もデータ通信もできなくなる｡(同じキャリアだと大丈夫らしい)

今回はmineoのプロファイルを削除し音声のみの利用とする｡

2024-08-242024-08-24

AutoHotkey ディスプレイにあわせてウィンドウ移動

左右に並んでいただけなので､以下のようにしていた｡

sc079 & c::
{
  x := -SysGet(16)
  y := 5
  w := SysGet(16)
  h := SysGet(17)+15
  this_id := WinGetID("A")

  If (WinGetMinMax(this_id) = 1)
  {
    WinRestore(this_id)
  }

  WinMove(x,y,w,h,this_id)

  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    WinMove(0,y,w,h,this_id)
  }
}

sc079 & c::

{

x := -SysGet(16)

y := 5

w := SysGet(16)

h := SysGet(17)+15

this_id := WinGetID("A")

If (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

}

WinMove(x,y,w,h,this_id)

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

WinMove(0,y,w,h,this_id)

}

他の環境でも使うので､都度取得に変更｡

mm := []
Loop MonitorGetCount()
{
  if MonitorGet(A_Index,&L,&T,&R,&B)
  {
    mm.Push({L:L,T:T,R:R,B:B})
  }
}

sc079 & c::
{
  global mm
  static keyDownCount1

  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    keyDownCount1 += 1
    If (keyDownCount1 > MonitorGetCount() - 1)
    {
      keyDownCount1 := 0
    }
  }
  Else
  {
    keyDownCount1 := 0
  }

  x := keyDownCount1 + 1
  this_id := WinGetID("A")
  WinMove(mm[x].L, (mm[x].T + 10), mm[x].R - mm[x].L, (mm[x].B - mm[x].T-55), this_id)
}

mm := []

Loop MonitorGetCount()

{

if MonitorGet(A_Index,&L,&T,&R,&B)

{

mm.Push({L:L,T:T,R:R,B:B})

}

sc079 & c::

{

global mm

static keyDownCount1

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

keyDownCount1 += 1

If (keyDownCount1 > MonitorGetCount() - 1)

{

keyDownCount1 := 0

}

Else

{

keyDownCount1 := 0

}

x := keyDownCount1 + 1

this_id := WinGetID("A")

WinMove(mm[x].L, (mm[x].T + 10), mm[x].R - mm[x].L, (mm[x].B - mm[x].T-55), this_id)

}

2024-08-212024-08-28

Chrome拡張機能 uAutoPagerizeのセパレータをカスタマイズ

セパレータは有効にしたいけど､もう少しシンプルにしたかったので｡

{
  "manifest_version": 3,
  "name": "BackgroundCSS",
  "version": "1",
  "background": {"service_worker": "style.js"},
  "permissions": ["tabs","scripting"],
  "host_permissions": ["<all_urls>"]
}

{

"manifest_version": 3,

"name": "BackgroundCSS",

"version": "1",

"background": {"service_worker": "style.js"},

"permissions": ["tabs","scripting"],

"host_permissions": ["<all_urls>"]

}

chrome.tabs.onUpdated.addListener(function(tabId, info, tab) { 
  if (tab.url.startsWith("chrome") || tab.url.startsWith("edge")) return;
  if (info.status === 'complete') {
    chrome.scripting.executeScript({
      target: {tabId: tab.id},
      func: () => {
        if (document.head) {
          var e = document.createElement('style');
          e.textContent = [
          ".autopagerize_page_info_inner{display:none;}",
          ".autopagerize_page_info{border-color:#ccc !important;}"
          ].join("\n");
          document.head.insertAdjacentElement('afterbegin', e);
        }
      }
    });
  }
});

chrome.tabs.onUpdated.addListener(function(tabId, info, tab) {

if (tab.url.startsWith("chrome") || tab.url.startsWith("edge")) return;

if (info.status === 'complete') {

chrome.scripting.executeScript({

target: {tabId: tab.id},

func: () => {

if (document.head) {

var e = document.createElement('style');

e.textContent = [

".autopagerize_page_info_inner{display:none;}",

".autopagerize_page_info{border-color:#ccc !important;}"

].join("\n");

document.head.insertAdjacentElement('afterbegin', e);

}

});

}

});

2024-08-15

uAutoPagerize 特定のサイトのみ実行

/^(?!.*(aaa|bbb)).*$/

投稿者: okamura