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

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)).*$/

2024-08-102024-08-28

HP Elitebook 起動できない(再起動ループ)

HP Elitebook 630 G9が再起動を繰り返してしまう。

起動時、HPのロゴから一瞬ウィンドウのようなものが見えて勝手に再起動するという症状。

●ハードリセット

周辺機器外し、電源長押し。
症状変わらず。

●F10を押してUEFIメニュー

ストレージはただしく認識されているよう。
高速起動を停止。
症状変わらず。

●F11を押して回復環境を起動。

・スタートアップ修復
トラブルシューティング＞詳細オプション＞スタートアップ修復
実行するが症状変わらず。

・セーフモード＋修復コマンド
トラブルシューティング＞詳細オプション＞スタートアップ設定＞再起動＞F4
セーフモードで起動できた。

fsutil resource setautoreset true c:\
dism /online /cleanup-image /restorehealth
sfc /scannow
あたりを実行して再起動してみるが症状変わらず。

・セーフモード＋イベントビューワー
イベントビューワーを確認し、エラー番号ごとに検索して、
関連ありそうなサービスを停止してみるが症状変わらず。

・ブートログ起動＋ネットワークデバイス無効化
トラブルシューティング＞詳細オプション＞スタートアップ設定＞再起動＞F2

windowsフォルダのntbtlog.txtを確認すると、ネットワークデバイスの読み込み前で落ちているので、ネットワークデバイスを無効にしてみる。
症状は変わらず。

・ブートログ起動＋高速スタートアップ停止
高速スタートアップを停止してみる。
症状は変わらず。

●原因

再度ブートログ有効で起動してみると､この起動がWindowsUpdateの再起動になり起動できるようになった。

イベントビューワーでエラーが出ていたりしたが直接の原因ではなかった。WindowsUpdateの再起動が失敗して繰り返しているような状態だった｡

2024-08-102024-08-21

Chrome アドレスバー検索追加

chrome://settings/searchEngines
を開き、追加をクリック

1年以内

・名前：google.co.jp
・ショートカット：1
・URL：https://www.google.co.jp/search?q=%s&tbs=qdr:y

ニュース＋1週間+日付順

・ショートカット：n
・URL：https://www.google.co.jp/search?q=%s&tbm=nws&tbs=sbd:1,qdr:w

2024-08-012024-08-01

Chrome拡張タブのタイトル、URL取得をalert表示

chrome.action.onClicked.addListener((tab) => {

  if (tab.url.startsWith("chrome")) return;
  //chrome.scripting.executeScriptを使用時、
  //これがないと"Cannot access a chrome:// URL"になる場合あり

  let tabTitles = "";

  chrome.tabs.query({currentWindow: true }, (tabs) => {

    for (let i = 0; i < tabs.length; i++) {
      tabTitles += tabs[i].title + "," + tabs[i].url;
    }
　　//chrome.tabs.queryは非同期なので、chrome.tabs.query
　　//のコールバック外だとtabTitlesが空のまま
   //alertはchrome.scripting.executeScriptが必要
    chrome.scripting.executeScript({
      target: { tabId: tab.id },
      func: (titles) => {
        alert(titles);
      },
      args: [tabTitles]
    });
  }); 
});

chrome.action.onClicked.addListener((tab) => {

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

//chrome.scripting.executeScriptを使用時、

//これがないと"Cannot access a chrome:// URL"になる場合あり

let tabTitles = "";

chrome.tabs.query({currentWindow: true }, (tabs) => {

for (let i = 0; i < tabs.length; i++) {

tabTitles += tabs[i].title + "," + tabs[i].url;

}

　　//chrome.tabs.queryは非同期なので、chrome.tabs.query

　　//のコールバック外だとtabTitlesが空のまま

//alertはchrome.scripting.executeScriptが必要

chrome.scripting.executeScript({

target: { tabId: tab.id },

func: (titles) => {

alert(titles);

args: [tabTitles]

});

2024-07-25

Chrome拡張選択タブを新しいウィンドウへ

{
  "manifest_version": 3,
  "name": "TabsToWindow",
  "version": "1.0",
  "background": {
    "service_worker": "script.js"
  },
  "permissions": [
    "tabs",
    "windows"
  ],
  "commands": {
    "cmd": {
      "suggested_key": {
        "default": "Alt+Shift+G"
      },
      "description": "TabsToWindow"
    }
  }
}

{

"manifest_version": 3,

"name": "TabsToWindow",

"version": "1.0",

"background": {

"service_worker": "script.js"

"permissions": [

"tabs",

"windows"

"commands": {

"cmd": {

"suggested_key": {

"default": "Alt+Shift+G"

"description": "TabsToWindow"

}

chrome.commands.onCommand.addListener(function (command) {
  if (command === 'cmd') {
    chrome.tabs.query({highlighted: true, currentWindow: true}, tabs => {
      const tabIds = tabs.map(tab => tab.id);
      chrome.windows.create({tabId: tabIds[0], type: 'normal'}, newWindow => {
        if (tabIds.length > 1) {
          chrome.tabs.move(tabIds.slice(1), {windowId: newWindow.id, index: -1});
        }
      });
    });
  }
});

chrome.commands.onCommand.addListener(function (command) {

if (command === 'cmd') {

chrome.tabs.query({highlighted: true, currentWindow: true}, tabs => {

const tabIds = tabs.map(tab => tab.id);

chrome.windows.create({tabId: tabIds[0], type: 'normal'}, newWindow => {

if (tabIds.length > 1) {

chrome.tabs.move(tabIds.slice(1), {windowId: newWindow.id, index: -1});

}

});

}

});

2024-07-152024-07-15

VIGI C330I 導入

小規模な工場に安価なネットワークカメラを導入する｡

価格優先なのでカメラはTP-Link VIGI C330I､給電用にTP-Link TL-SG1005LPを採用｡

録画など不要で､リアルタイムで見れればいいので､設定用にVIGI Config Toolと､iPhone用にTP-Link VIGIだけ利用｡

iPhoneにTP-Link VIGIをインストールしてサインアップする｡

ローカルネットワーク内にVIGIを接続したら､VIGI Config ToolからInitializeでパスワードなどを設定する｡Settings>Go to bindから､TP-LinkIDとバインドする｡

これで､ブラウザから直接IPアドレスを開けば映像を確認でき､TP-Link VIGIからも映像が確認できる｡

2024-06-12

iPhoneからOpenVPN接続

iPhoneにOpenVPNアプリをインストール
(オレンジ色の丸のようなアイコン)

client.ovpnをファイル共有系(Dropboxなど)のアプリに入れて､
iPhone>Dropbox>デバイスに保存>OpenVPNを選択してインポートする｡

OpenVPN>Upload File>ADDを実行
ユーザーIDとパスワードを入力する｡

OpenVPNからVPN接続をオン・オフできる｡

2024-06-022024-06-02

VBA 条件付書式(番号比較)

他のシートに特定の値があった場合､両方に色を付ける

Sub auto_open()

Call CellsCondition

End Sub

Sub CellsCondition()

On Error GoTo ex

For Each ws In ThisWorkbook.Sheets

  If ws.Name <> "xxx" And ws.Name <> "xxx" Then
  
    ws.Columns("A").FormatConditions.Delete
    
    For r = 5 To 125
      For c = 1 To 1
        Set f = ws.Cells(r, c).FormatConditions.Add(xlExpression, xlEqual, CreateFormatConditionsString(r))
        f.Interior.Color = RGB(255, 0, 0)
        f.StopIfTrue = False
      Next c
    Next r
    
  End If
  
Next

Exit Sub

ex:

MsgBox "条件付書式の設定に失敗しました。"

End Sub

Function CreateFormatConditionsString(r)

For Each ws In Sheets
  If ws.Name <> "xxx" And ws.Name <> "xxx" Then
    tmp = tmp + "COUNTIF(" & ws.Name & "!C5:C125,C" & r & ")+"
  End If
Next

tmp = Left(tmp, Len(tmp) - 1) ' 最後の+を削除
CreateFormatConditionsString = "=AND((" & tmp & ")>1,C" & r & "<>""xxx"",C" & r & "<>""xxx"",C" & r & "<>""xxx"")"

End Function

Sub auto_open()

Call CellsCondition

End Sub

Sub CellsCondition()

On Error GoTo ex

For Each ws In ThisWorkbook.Sheets

If ws.Name <> "xxx" And ws.Name <> "xxx" Then

ws.Columns("A").FormatConditions.Delete

For r = 5 To 125

For c = 1 To 1

Set f = ws.Cells(r, c).FormatConditions.Add(xlExpression, xlEqual, CreateFormatConditionsString(r))

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

f.StopIfTrue = False

Next c

Next r

End If

Exit Sub

ex:

MsgBox "条件付書式の設定に失敗しました。"

End Sub

Function CreateFormatConditionsString(r)

For Each ws In Sheets

If ws.Name <> "xxx" And ws.Name <> "xxx" Then

tmp = tmp + "COUNTIF(" & ws.Name & "!C5:C125,C" & r & ")+"

End If

tmp = Left(tmp, Len(tmp) - 1) ' 最後の+を削除

CreateFormatConditionsString = "=AND((" & tmp & ")>1,C" & r & "<>""xxx"",C" & r & "<>""xxx"",C" & r & "<>""xxx"")"

End Function

条件だけ抜き出すと､
=AND((
COUNTIF(シート名!C5:C125,C20)+
COUNTIF(シート名!C5:C125,C20)
)>1,C20<>”比較除外”,C20<>”比較除外”,C20<>”比較除外”)
となっている｡