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

2023-10-302023-10-31

VBA Access SQL一括処理

Excelのシート上に保存してあるデータを関数などでSQL化し、一括でAccessに流し込む必要があったので。

Sub test()

With ActiveSheet

Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\x.mdb"

For r = 1 To 138
  q = ActiveSheet.Cells(r, 1).Value
  cn.Execute q
Next r

cn.Close
Set cn = Nothing

MsgBox "done"

End With

End Sub

Sub test()

With ActiveSheet

Set cn = CreateObject("adodb.connection")

cn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\x.mdb"

For r = 1 To 138

q = ActiveSheet.Cells(r, 1).Value

cn.Execute q

Next r

cn.Close

Set cn = Nothing

MsgBox "done"

End With

End Sub

2023-10-092023-10-10

SoftBank(iPhone) 機種変更

13ProMax→15Pro+XS→13ProMaxへ機種変。

処理の途中でAppleIDの2ファクタ認証のコードが届くので、
旧端末は起動しSIMカードもそのまま。

OSのバージョンが古いと問題が発生することもあるので、とりあえず新旧ともに最新にする。新端末は起動後、クイックスタート等せずセットアップしOSをアップデートしておく。

・Suica/PASMO

旧端末＞ウォレット＞ミートボールメニュー＞カードの詳細＞カードを削除

・PC

Cドライブの容量が少ない場合、シンボリックでバックアップ場所を移動。

C:\Users\mail\AppData\Roaming\Apple Computer\MobileSync
のBackupを削除し、
cmd＞mklink /d “C:\Users\mail\AppData\Roaming\Apple Computer\MobileSync\Backup” “I:\Backup”
を実行。

・iTunesの設定

※データ移行するためにAppleIDでログインする必要はない。

iTunesの同期を停止しておく(バックアップは同期とは別)
編集＞環境設定＞デバイス＞iPod、iPhone、およびiPadを自動的に同期しない
にチェック。

・iTunesでバックアップの実行

※バックアップ用パスワードを覚えてなければ変更しておく

旧端末をiTunesに接続する。

携帯マーク＞概要＞バックアップ＞このコンピュータ(暗号化)＞ローカルバックアップ
にチェックしてあるか確認し、今すぐバックアップを実行する。

バックアップが完了したらケーブルを外す。

・復元

新端末をiTunesに接続する。新しいiPhoneへようこそと表示されるので、このバックアップから復元を実行する。もし復元のダイアログがでてこない場合は、
携帯マーク＞概要＞バックアップ＞バックアップを復元
を実行する。

一通りアプリを起動し、データが引き継がれているか確認する。
ログインが切れたり、VLCなどはファイルが移行されない。

電源を切りSIMカードを移動する。もし機種変で届いた端末にSIMカードが付属していたら、指定のサイトから切替の手続きを実施する。

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-032023-10-29

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

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

>+h::Send "{Left}"
>+j::Send "{Down}"
>+k::Send "{Up}"
>+l::Send "{Right}"
>+4::Send "{Enter}"
>+7::Send "{Home}"
>+8::Send "{End}"
>+9::Send "{End}+{Home}"
>+q::Send "{&}"
>+w::Send "{'}"
>+e::Send "{``}"
>+a::Send "{^}"
>+s::Send "{$}"
>+d::Send "{~}"
>+u::Send "{|}"
>+i::Send "{\}"
>+o::Send "{@}"
>+p::Send "{`%}"
>+n::Send "{(}"
>+m::Send "{)}"
>+Enter::Send "{Tab}"
>+Backspace::Send "{Delete}"
>+WheelUp::WheelLeft
>+WheelDown::WheelRight

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

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

sc07B & j::Send "+{Down}"
sc07B & k::Send "+{Up}"
sc07B & Enter::Send "+{Tab}"
sc07B & 1::Send "{F12}"
sc07B & 2::Send "{F2}"
sc07B & q::Send "{Esc}"
sc07B & w::Send "{LWin}"
sc07B & e::Send "#e"
sc07B & r::Send "#r"

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

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

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

sc079 & 1::Send "^{Home}"
sc079 & 2::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 & c::
{
  this_id := WinGetID("A")
  If (WinGetMinMax(this_id) = 1)
  {
    WinRestore(this_id)
  }
  WinGetPos(&x,,,,this_id)
  If (x = -5)
  {
    WinMove(954,2,972,1037,this_id)
    MouseMove(954//2, 9)
  }
  Else
  {
    WinMove(-5,2,972,1037,this_id)  
    MouseMove(954//2, 9)
  }
}
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 (WinGetMinMax(this_id) = 1)
  {
    WinRestore(this_id)
  }
  WinGetPos(,,&w,&h,this_id)
  If (keyDownCount = 0)
  {
    WinMove(,,1100,750,this_id)
    MouseMove(w//2, 9)
  }
  Else If (keyDownCount = 1)
  {
    MouseMove(w-5, h-5)
  }
}
sc079 & WheelUp::Send "{PgUp}"
sc079 & WheelDown::Send "{PgDn}"

#HotIf WinActive("ahk_exe excel.exe")
{
  sc079 & a::Send "^{PgUp}" ; 前のタブ
  sc079 & s::Send "^{PgDn}" ; 次のタブ
}

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

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

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

>+h::Send "{Left}"

>+j::Send "{Down}"

>+k::Send "{Up}"

>+l::Send "{Right}"

>+4::Send "{Enter}"

>+7::Send "{Home}"

>+8::Send "{End}"

>+9::Send "{End}+{Home}"

>+q::Send "{&}"

>+w::Send "{'}"

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

>+a::Send "{^}"

>+s::Send "{$}"

>+d::Send "{~}"

>+u::Send "{|}"

>+i::Send "{\}"

>+o::Send "{@}"

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

>+n::Send "{(}"

>+m::Send "{)}"

>+Enter::Send "{Tab}"

>+Backspace::Send "{Delete}"

>+WheelUp::WheelLeft

>+WheelDown::WheelRight

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

~sc07B::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

Send "{sc070}"

}

sc07B & j::Send "+{Down}"

sc07B & k::Send "+{Up}"

sc07B & Enter::Send "+{Tab}"

sc07B & 1::Send "{F12}"

sc07B & 2::Send "{F2}"

sc07B & q::Send "{Esc}"

sc07B & w::Send "{LWin}"

sc07B & e::Send "#e"

sc07B & r::Send "#r"

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

~^c::

{

If (A_PriorHotkey = A_ThisHotkey && 500 > A_TimeSincePriorHotkey)

{

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

}

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

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

sc079 & 2::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 & c::

{

this_id := WinGetID("A")

If (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

}

WinGetPos(&x,,,,this_id)

If (x = -5)

{

WinMove(954,2,972,1037,this_id)

MouseMove(954//2, 9)

}

Else

{

WinMove(-5,2,972,1037,this_id)

MouseMove(954//2, 9)

}

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 (WinGetMinMax(this_id) = 1)

{

WinRestore(this_id)

}

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

If (keyDownCount = 0)

{

WinMove(,,1100,750,this_id)

MouseMove(w//2, 9)

}

Else If (keyDownCount = 1)

{

MouseMove(w-5, h-5)

}

sc079 & WheelUp::Send "{PgUp}"

sc079 & WheelDown::Send "{PgDn}"

#HotIf WinActive("ahk_exe excel.exe")

{

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

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

}

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);