okamura – ページ 6 – テックメモ

2023-09-23

Chrome拡張特定の文字が含まれるタブを自動で閉じる

script.jp

chrome.tabs.onUpdated.addListener((tabId, changeInfo, tab) => {
  if (changeInfo.status === 'complete') {
    if (tab.title.includes("アラート!")) {
        chrome.tabs.remove(tabId);
    }
  }
});

chrome.tabs.onUpdated.addListener((tabId, changeInfo, tab) => {

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

if (tab.title.includes("アラート!")) {

chrome.tabs.remove(tabId);

}

});

manifest.json

{
  "manifest_version": 3,
  "name": "AutoCloseTab",
  "version": "1.0",
  "permissions": ["tabs"],
  "background": {
    "service_worker": "script.js"
  }
}

{

"manifest_version": 3,

"name": "AutoCloseTab",

"version": "1.0",

"permissions": ["tabs"],

"background": {

"service_worker": "script.js"

}

2023-09-212023-09-21

Microsoft365 Apps for business 契約

https://www.microsoft.com/ja-jp/microsoft-365/business/compare-all-microsoft-365-business-products
から、今すぐ購入をクリック。

・サブスクリプションを設定する
ユーザー数は1人、請求頻度は期間は1ヶ月とした。

・メールアドレスの入力
現在使っているメインのアドレスはMicrosoftの個人アカウントなので、新しく作成したアドレスを入力し、アカウントのセットアップをクリック。

・氏名など入力、会社名は適当に個人事業主、会社の規模は1人。

・電話番号の認証。

・サインインする方法
ユーザー名、ドメイン名(Microsoft指定のドメインに対して、サブドメインを指定する)、パスワードを決定する。

※どうやらこの画面では、既に所有しているドメイン名を使うを選択できないらしい。

・お支払い方法の追加、PayPalは指定できずクレジットカードのみ、必要な情報を入力。

・最後に契約に同意して発注をクリック。

＊＊＊

最初に入力した、新しく作成したアドレスは
Microsoft Entra 管理センター(https://aad.portal.azure.com/)
ユーザー＞すべてのユーザー＞プロパティのサブアドレスに登録されている

・ドメインを追加する場合
Microsoft Entra 管理センター(https://aad.portal.azure.com/)
ID＞設定＞ドメイン名＞ドメイン追加
表示されたレコードを設定。

・サブスクリプションを変更する場合
Microsoft 365 管理センター(https://admin.microsoft.com/)
のユーザーから

2023-09-062023-09-06

大量のReturned mailを受信

さくらのレンタルサーバーのメールで、
Returned mail: see transcript for details
を大量に受信しているPCがあった。

急いで、サーバーのコントロールパネルからメールのパスワードを変更する。
次にWebメールのフィルタで、
MAILER-DAEMON
を拒否リストへ追加する。
(大量なのでローカルのOUTLOOKが受信しないように)

しばらくして、
The original message was received at
の部分をみると、新規の送信は止まっているよう。

＊＊＊

The original message was received at メッセージの受信日時
from xxx.xxx.xxx.xxx(送信元/こちら側のアドレス)

—– The following addresses had permanent fatal errors —–
の中に、相手のメールアドレス、失敗の理由(reason)がある
<送信先アドレス>
(reason:エラーコード、ステータスコード、詳細)

<<< 421 4.7.0 Messages from xxx.xxx.xxx.xxx(送信先/エラーコードを返してきたアドレス)

・SMTPのエラーコード
xxx x.x.x
の形式で、先頭4は一般エラーで、先頭5は永続エラー

2023-09-05

VBA ATPVBAEN.XLA

古いエクセルファイルを動かしたら、
Application.Run(“ATPVBAEN.XLA!COMPLEX”, r, q)
の部分でエラーがでた。

XLAMに直せば動かくかと思ったら、駄目だったので、
Application.WorksheetFunction.Complex(r, q)
このように書き換えたら動いた。

2023-09-032024-05-07

AutoHotkey キー設定スクリプト

Change Key+AutoHotkeyで久しぶりに大きく変更した。

元々、文字入力用にIMEのON/OFF、BSをスペースの左右に配置していたが、Chrome操作などで左Altも多用しており、元の位置だと親指に負担だった。

ProcessSetPriority "High"
SetMouseDelay -1
SendMode "Input"
A_MaxHotkeysPerInterval := 200
InstallKeybdHook
#UseHook
CoordMode "Mouse", "Window"

;--------------------------------------------------------

; "C:\Program Files (x86)\Google\Google Japanese Input\GoogleIMEJaTool.exe" -mode=config_dialog

; Hiragana＞IMEを有効化
; Muhenkan＞IMEを無効化

; エントリーを削除
; Henkan
; Shift Henkan
; Shift Muhenkan

;--------------------------------------------------------

>+4::Send "{Enter}"
>+7::Send "{Home}"
>+8::Send "{End}"

>+q::Send "{&}"
>+w::Send "{'}"
>+e::Send "{``}"

>+a::Send "{^}"
>+s::Send "{$}"
>+d::Send "{~}"

>+u::Send "{|}"
>+i::Send "{\}"
>+o::Send "{@}"
>+p::Send "{`%}"

>+n::Send "{(}"
>+m::Send "{)}"

>+h::Send "{Left}"
>+j::Send "{Down}"
>+k::Send "{Up}"
>+l::Send "{Right}"

>+Backspace::Send "{Delete}"

;--------------------------------------------------------

~sc07B::
{
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    Send "{sc070}"
  }
}

sc07B & 1::Send "{F12}"
sc07B & 2::Send "{F2}"

sc07B & q::Send "{Esc}"
sc07B & w::Send "{LWin}"
sc07B & e::Run "explorer.exe"
sc07B & r::Send "#r"

;--------------------------------------------------------

~^c::
{
  If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)
  {
    Send "{End}+{Home}^c"
  }
}

;--------------------------------------------------------

sc079 & RShift::Send "#{Tab}"
sc079 & 1::Send "#^{Left}"
sc079 & 2::Send "#^{Right}"
sc079 & 3::Send "^{Home}"
sc079 & 4::Send "^{End}"

sc079 & q::Send "!{Left}" ; 戻る
sc079 & w::Send "!{Right}" ; 進む
sc079 & e::Send "^w" ; 閉じる
sc079 & r::AltTab

sc079 & a::Send "^+{Tab}" ; 前のタブ
sc079 & s::Send "^{Tab}" ; 次のタブ
sc079 & d::Send "^+t" ; 再び開く
sc079 & f::Send "^{F5}" ; 更新

sc079 & z::Send "!+z" ; Alt+Shift+Z / CloseRightTabs
sc079 & x::DispChange(-SysGet(16))
sc079 & c::DispChange(0)

DispChange(x)
{
  w := SysGet(16)
  h := SysGet(17)+15
  y := 5
  this_id := WinGetID("A")
  If (WinGetMinMax(this_id) = 1)
  {
    WinRestore(this_id)
  }
  WinMove(x,y,w,h,this_id)
}

sc079 & v::
{
  static keyDownCount

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

  this_id := WinGetID("A")

  If (keyDownCount = 0)
  {
    If (WinGetMinMax(this_id) = 1)
    {
      WinRestore(this_id)
      WinMove(,,1100,750,this_id)
    }
    WinGetPos(,,&w,&h,this_id)
    MouseMove(w//2, 9)
  }
  Else If (keyDownCount = 1)
  {
    WinGetPos(,,&w,&h,this_id)
    MouseMove(w-5, h-5)
  }
}

sc079 & Left::Send "#^{Left}"
sc079 & Right::Send "#^{Right}"

;--------------------------------------------------------

sc079 & WheelUp::Send "{PgUp}"
sc079 & WheelDown::Send "{PgDn}"
+WheelUp::WheelLeft
+WheelDown::WheelRight

;--------------------------------------------------------

#HotIf WinActive("ahk_exe excel.exe") 

sc079 & a::Send "^{PgUp}" ; 前のタブ
sc079 & s::Send "^{PgDn}" ; 次のタブ

sc079 & f::Send "^+{L}"

+sc079::Send "^e" ; オリジナルマクロ用

+Space::
{
  Send "{sc07B}"
  Send "+{Space}"
}

MButton::Send "{F4}"

#HotIf WinActive("ahk_exe mpc-be64.exe")

sc079 & a::Send "^{PgUp}" ; 前のタブ
sc079 & s::Send "^{PgDn}" ; 次のタブ

#HotIf

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

ProcessSetPriority "High"

SetMouseDelay -1

SendMode "Input"

A_MaxHotkeysPerInterval := 200

InstallKeybdHook

#UseHook

CoordMode "Mouse", "Window"

;--------------------------------------------------------

; "C:\Program Files (x86)\Google\Google Japanese Input\GoogleIMEJaTool.exe" -mode=config_dialog

; Hiragana＞IMEを有効化

; Muhenkan＞IMEを無効化

; エントリーを削除

; Henkan

; Shift Henkan

; Shift Muhenkan

;--------------------------------------------------------

>+4::Send "{Enter}"

>+7::Send "{Home}"

>+8::Send "{End}"

>+q::Send "{&}"

>+w::Send "{'}"

>+e::Send "{``}"

>+a::Send "{^}"

>+s::Send "{$}"

>+d::Send "{~}"

>+u::Send "{|}"

>+i::Send "{\}"

>+o::Send "{@}"

>+p::Send "{`%}"

>+n::Send "{(}"

>+m::Send "{)}"

>+h::Send "{Left}"

>+j::Send "{Down}"

>+k::Send "{Up}"

>+l::Send "{Right}"

>+Backspace::Send "{Delete}"

;--------------------------------------------------------

~sc07B::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send "{sc070}"

}

sc07B & 1::Send "{F12}"

sc07B & 2::Send "{F2}"

sc07B & q::Send "{Esc}"

sc07B & w::Send "{LWin}"

sc07B & e::Run "explorer.exe"

sc07B & r::Send "#r"

;--------------------------------------------------------

~^c::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send "{End}+{Home}^c"

}

;--------------------------------------------------------

sc079 & RShift::Send "#{Tab}"

sc079 & 1::Send "#^{Left}"

sc079 & 2::Send "#^{Right}"

sc079 & 3::Send "^{Home}"

sc079 & 4::Send "^{End}"

sc079 & q::Send "!{Left}" ; 戻る

sc079 & w::Send "!{Right}" ; 進む

sc079 & e::Send "^w" ; 閉じる

sc079 & r::AltTab

sc079 & a::Send "^+{Tab}" ; 前のタブ

sc079 & s::Send "^{Tab}" ; 次のタブ

sc079 & d::Send "^+t" ; 再び開く

sc079 & f::Send "^{F5}" ; 更新

sc079 & z::Send "!+z" ; Alt+Shift+Z / CloseRightTabs

sc079 & x::DispChange(-SysGet(16))

sc079 & c::DispChange(0)

DispChange(x)

{

w := SysGet(16)

h := SysGet(17)+15

y := 5

this_id := WinGetID("A")

If (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

}

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

}

sc079 & v::

{

static keyDownCount

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

keyDownCount += 1

If (keyDownCount > 1)

{

keyDownCount := 0

}

Else

{

keyDownCount := 0

}

this_id := WinGetID("A")

If (keyDownCount = 0)

{

If (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

WinMove(,,1100,750,this_id)

}

WinGetPos(,,&w,&h,this_id)

MouseMove(w//2, 9)

}

Else If (keyDownCount = 1)

{

WinGetPos(,,&w,&h,this_id)

MouseMove(w-5, h-5)

}

sc079 & Left::Send "#^{Left}"

sc079 & Right::Send "#^{Right}"

;--------------------------------------------------------

sc079 & WheelUp::Send "{PgUp}"

sc079 & WheelDown::Send "{PgDn}"

+WheelUp::WheelLeft

+WheelDown::WheelRight

;--------------------------------------------------------

#HotIf WinActive("ahk_exe excel.exe")

sc079 & a::Send "^{PgUp}" ; 前のタブ

sc079 & s::Send "^{PgDn}" ; 次のタブ

sc079 & f::Send "^+{L}"

+sc079::Send "^e" ; オリジナルマクロ用

+Space::

{

Send "{sc07B}"

Send "+{Space}"

}

MButton::Send "{F4}"

#HotIf WinActive("ahk_exe mpc-be64.exe")

sc079 & a::Send "^{PgUp}" ; 前のタブ

sc079 & s::Send "^{PgDn}" ; 次のタブ

#HotIf

2023-08-302024-04-09

リモート接続バッチ

●通常ログイン

@echo off

set srv=192.168.1.2
set usr=user
set pwd=1234

cmdkey /delete:termsrv/%srv%

cmdkey /generic:termsrv/%srv% /user:%usr% /pass:%pwd%
start mstsc /v:%srv% /w:1600 /h:900
timeout 2

cmdkey /delete:termsrv/%srv%

@echo off

set srv=192.168.1.2

set usr=user

set pwd=1234

cmdkey /delete:termsrv/%srv%

cmdkey /generic:termsrv/%srv% /user:%usr% /pass:%pwd%

start mstsc /v:%srv% /w:1600 /h:900

timeout 2

cmdkey /delete:termsrv/%srv%

●EntraIDログイン

EntraIDでログインしているPCは上記バッチだと接続できない｡
mstscを起動し､設定後､名前を付けて保存でrdpファイルを作成する｡
作成したrdpファイルをエディタで開き以下を追加

enablecredsspsupport:i:0
username:s:\AzureAD\[xxx@xxx.com]
password 1:b:[xxx]

パスワードは端末ごとに生成する｡

Add-Type -AssemblyName System.Security

# 平文のパスワード
$plaintextPassword = "123"  

# パスワードをバイト配列に変換
$passwordBytes = [System.Text.Encoding]::Unicode.GetBytes($plaintextPassword)  

# 暗号化のスコープ
$scope = [System.Security.Cryptography.DataProtectionScope]::CurrentUser  

# パスワードの暗号化
$encryptedData = [System.Security.Cryptography.ProtectedData]::Protect($passwordBytes, $null, $scope)  

# 暗号化されたデータを16進数文字列に変換
$hexString = [System.BitConverter]::ToString($encryptedData) -replace '-', ''  

# 16進数文字列をクリップボードにコピー
"password 51:b:" + $hexString | clip

Add-Type -AssemblyName System.Security

# 平文のパスワード

$plaintextPassword = "123"

# パスワードをバイト配列に変換

$passwordBytes = [System.Text.Encoding]::Unicode.GetBytes($plaintextPassword)

# 暗号化のスコープ

$scope = [System.Security.Cryptography.DataProtectionScope]::CurrentUser

# パスワードの暗号化

$encryptedData = [System.Security.Cryptography.ProtectedData]::Protect($passwordBytes, $null, $scope)

# 暗号化されたデータを16進数文字列に変換

$hexString = [System.BitConverter]::ToString($encryptedData) -replace '-', ''

# 16進数文字列をクリップボードにコピー

"password 51:b:" + $hexString | clip

2023-08-302023-09-12

ESETを利用しているPCへVPN経由リモート接続

ESETを利用しているPCへ別の拠点からVPN経由でリモート接続できなかった。
接続する側のPCの仮想NIC(VPN用)のIPアドレスをESETの信頼ゾーンに追加することで接続できた。

ESET/詳細設定＞ネットワーク保護＞ゾーン＞編集
信頼ゾーン：192.168.113.1/255.255.255.0
追加するIPアドレスは
192.168.0.0/16
のようにも書ける。

ちょうど最近、同じく繋がらなかった端末は、
Windows Updateの影響でFirewallが別セグメントを弾いていた。

Windows 端末的利用

2023-08-232023-11-29

Chrome拡張機能 Youtube LiveにCSS

コメントが見づらかったので。CSS当てている場所は適当｡

manifest.json

{
  "manifest_version": 3,
  "name": "MyCSS",
  "version": "0.0.1",
  "content_scripts":[
    {
      "matches": ["https://www.youtube.com/watch?v=*"],
      "css": ["style.css"]
    }
  ]
}

{

"manifest_version": 3,

"name": "MyCSS",

"version": "0.0.1",

"content_scripts":[

{

"matches": ["https://www.youtube.com/watch?v=*"],

"css": ["style.css"]

}

]

}

style.css

* {
--ytd-watch-flexy-chat-max-height:830px;
}

* {

--ytd-watch-flexy-chat-max-height:830px;

}

この書き方の問題は一度リロードが必要になってしまうこと｡リロードしなくてもCSSが当たるようする｡

{
  "manifest_version": 3,
  "name": "BackgroundCSS",
  "version": "1",
  "background": {"service_worker": "style.js"},
  "permissions": ["tabs","scripting"],
  "host_permissions": ["https://www.youtube.com/"]
}

{

"manifest_version": 3,

"name": "BackgroundCSS",

"version": "1",

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

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

"host_permissions": ["https://www.youtube.com/"]

}

chrome.tabs.onUpdated.addListener(function(tabId, info, tab){
  if (info.status === 'complete' && tab.url.indexOf('youtube.com/watch') !== -1) {
    chrome.scripting.executeScript({
      target: {tabId: tab.id},
      func: () => {
        var e = document.createElement('style');
        e.textContent = "*{--ytd-watch-flexy-chat-max-height:830px;}";
        document.head.insertAdjacentElement('afterbegin', e);
      }
    });
  }
});

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

if (info.status === 'complete' && tab.url.indexOf('youtube.com/watch') !== -1) {

chrome.scripting.executeScript({

target: {tabId: tab.id},

func: () => {

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

e.textContent = "*{--ytd-watch-flexy-chat-max-height:830px;}";

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

}

});

}

});

サイトによっては以下のような書き方でも当たる｡

{
  "manifest_version": 3,
  "name": "MyCSS",
  "version": "1",
  "content_scripts":[
    {
      "matches": ["https://www.notion.so/*"],
      "js": ["style.js"]
    }
  ]
}

{

"manifest_version": 3,

"name": "MyCSS",

"version": "1",

"content_scripts":[

{

"matches": ["https://www.notion.so/*"],

"js": ["style.js"]

}

]

}

window.addEventListener('load', function() {
var e = document.createElement('style');
e.textContent = "*{font-family:'Roboto','Meiryo' !important;}";
document.head.insertAdjacentElement('afterbegin', e);
}, false);

window.addEventListener('load', function() {

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

e.textContent = "*{font-family:'Roboto','Meiryo' !important;}";

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

}, false);

2023-07-27

PowerShell バックアップ(曜日ごとフォルダ分け)

$sourceFolders = @(
"C:\Users\xxx\Desktop\a",
"C:\Users\xxx\Desktop\aaa"
 )

$targetFolder = Join-Path "C:\Users\xxx\Desktop\x" (Get-Date).DayOfWeek.value__
if (Test-Path $targetFolder) { Remove-Item $targetFolder -Recurse -Force }
New-Item -ItemType Directory -Path $targetFolder | Out-Null

foreach ($sourceFolder in $sourceFolders) {
  if (!(Test-Path $sourceFolder)) { continue }
  $backupFolder = Join-Path $targetFolder (Split-Path $sourceFolder -Leaf)
  New-Item -ItemType Directory -Path $backupFolder | Out-Null
  Copy-Item $sourceFolder\* $backupFolder -Recurse -Force
}

$sourceFolders = @(

"C:\Users\xxx\Desktop\a",

"C:\Users\xxx\Desktop\aaa"

)

$targetFolder = Join-Path "C:\Users\xxx\Desktop\x" (Get-Date).DayOfWeek.value__

if (Test-Path $targetFolder) { Remove-Item $targetFolder -Recurse -Force }

New-Item -ItemType Directory -Path $targetFolder | Out-Null

foreach ($sourceFolder in $sourceFolders) {

if (!(Test-Path $sourceFolder)) { continue }

$backupFolder = Join-Path $targetFolder (Split-Path $sourceFolder -Leaf)

New-Item -ItemType Directory -Path $backupFolder | Out-Null

Copy-Item $sourceFolder\* $backupFolder -Recurse -Force

}

2023-07-10

AutoHotkey アクティブなChromeでショートカット＋最大化以外のChromeを閉じる

<!x::
{
  if (WinActive("ahk_exe chrome.exe") != 0)
  {
    Send "!+e" ; Chrome拡張
  }

  for this_id in WinGetList("ahk_exe chrome.exe")
  {
    If (WinExist(this_id) != 0 && WinGetMinMax(this_id) = 0)
    {
      WinClose(this_id)
    }
  }
}

<!x::

{

if (WinActive("ahk_exe chrome.exe") != 0)

{

Send "!+e" ; Chrome拡張

}

for this_id in WinGetList("ahk_exe chrome.exe")

{

If (WinExist(this_id) != 0 && WinGetMinMax(this_id) = 0)

{

WinClose(this_id)

}