投稿者: mabo52

投稿日:

Messaging API でグローバルIPの通知　ラズベリーパイ

ハードルが高いと思っていたMessaging APIで，メッセージを送ることがやっとできました。といっても，諸
兄の丸パクリ寄せ集めです。ただ，その過程で，今までよりも少し，Linux　関連の知識が増えたように思い
ます。
今回使ったのは，シェルスクリプトと呼ばれる一種のプログラムで，MS-DOS時代のバッチファイルのような
感じのものです。前から，存在は分かっていたのですが，今回の作業過程で，理解がふかまりました。これも
貴重な情報を掲載してくれている様々な諸兄のおかげです。
シェルスクリプ私なりに作成しましたが，大きく分けて，お二人の方の合体です。一人はグローバルIPを取
得する部分，お一人はメーッセージを送る部分，をかいていたので，それを自分なりにアレンジして合体し
て動かしました。

#!/bin/sh

#IPアドレスの取得
newip=`curl -s inet-ip.info`
for i in `seq 5`
do
	if [ "$newip" = '' ]; then
		newip=`curl -s inet-ip.info`
	fi
done
if [ "$newip" = '' ]; then
	exit 1
fi

#IPアドレスが変化したら，メッセージを送る。
oldip=`cat /home/mabo52/pgip`
if [ $oldip != $newip ]; then
　　echo "$newip" > /home/mabo52/pgip
　　curl -X POST \
　　-H 'Content-Type:application/json' \
　　-H 'Authorization: Bearer {#公式アカウントで取得したTOKEN}' \
　　-d '{
    "to": "#公式アカウントで取得したID",
    "messages":[
        {
        "type": "text",
        "text": "IPアドレスが変わりました。IP='$newip'"
    }
    ]
}' https://api.line.me/v2/bot/message/push

fi

これを実行してみると見事メッセージが送れましたので，久しぶりに，「やったー」になりました。
このスクリプトでは，pgip　というグローバルＩＰを保存するファイルをあらかじめ同じ階層に作成
しておく必要があります。元のスクリプトでは，この保存ようのファイルがあるかないかのチェック
をいれてありますが，私のでは省いてあります。このファイルに実行権を与えて，あとは，crontab
にスケジュールを記載して，定期的に実行すればOKになります。
グローバルＩＰの取得に関しては，

　　https://blog.n-hassy.info/2022/03/line-notify-from-raspi/

を，メッセージの送信かんしては，

　　https://news.mynavi.jp/techplus/article/linebot-2/

をほぼ，丸パクリさせてもらいました。公式アカウントの取得では，

　　https://zenn.dev/kou_pg_0131/articles/line-push-text-message

参考にさせていただきました。
ただ公式アカウントの作成では，

　　　ログイン
　　　　↓
　　　プロバイダーを作成する

までは，うまくいったのですが，この段階では，ビジネスアカウントの設定が不完全だったので，次の段階の

　　チャンネルの作成

に手間取ってしまいました。作成の手順が参考にしたＨＰとは若干違っていたのか，何とかできました。

以前は，ＬＩＮＥ　Ｎｏｔｉｆｙ　のＩＤとトウクンで，ＬＩＮＥ　Ｎｏｔｉｆｙにメッセージを送る感じ
でしｒたが，今回は，

　　　ビジネスアカウントを作成
　　　　　　↓
　　　作成したアカウントと友達になる。
　　　　　　↓
　　　作成の過程で取得したトウクンとＩＰを保存Ｄでビジネスアカウントにメッセージを送る

一手間かかったように思います。ただ，ビジネスアカウントの無料のコースでは，一月にメッｓ－ジ
を２００通しか送れません。まあ，グローバルＩＰの通知に使うのには，十分でしょうね。

まだ，スケジュールは組んでないのですが，この後，スケジュールを組んで，動作確認して，運用ですね。

投稿日:

ラズベリーパイ（３Ｂ）　ＭＪＰＧ－ＳＴＲＥＡＭＥＲ再構築

何日前からか，居間のの監視カメラ代わりに使っていたラズベリーパイの調子がおかしくなりました。このラ
ズベリーパイの設定をしたのが２０１６年７月ですから，８年近く，休みなく動いていてくれました。何のメ
インテナンスもしなかったので，当然かなと思います。MJPG-STREAMERのソフトの動きがカクカクになった
り，そもそも，動かなくなったりで，何度も再起動を繰り返して，だましだましつかってましたが，２，３，
日前に起動しなくなりました。
という訳で，ラズベリーパイのＯＳからの再構築いたしました。丸二日ほどかかりました。再構築に時間がか
かたのは，基幹のＯＳがアップデートされていて，以前参考にしていた諸兄の方法では，エラーがでてしまっ
てうまくいかなかったのが原因です。幸い，新しいＯＳに対応したやり方を掲載してくれた諸兄がいましたの
で，そこを丸パクリで，なんとか構築いたしました。

ただ，諸兄のページでも，二カ所修正が必要で，ここで，ちょっと躓きました。

　　　〇DEV=”/dev/video1″→→→→DEV=”/dev/video0“
　　　〇WIDTH=1920→→→WIDTH=320　　HEIGHT=1080→→→HEIGHT=240

ここを変更して，うまく動くようになりました。また，ベーシック認証がなかったので，

　　　#ベーシック認証の設定
　　　ID=”******” #ベーシック認証用のID
　　　PW=”******” #ベーシック認証用のパスワード

を加筆して，下記のように設定を変更しました。

/mjpg_streamer -i “./input_uvc.so -d $DEV -r $RES -f $FPS” -o “./output_http.so -w ./www -p $PORT”

/mjpg_streamer -i “./input_uvc.so -d $DEV -r $RES -f $FPS” -o “./output_http.so -w ./www -p $PORT -c $ID:$PW“

これで，写真のように，居間の様子が，見れるようになりました。



それと，今までは，外出先からも確認できるようにと，グローバルＩＰの変化を，ＬＩＮＥ　Ｎｏｔｉｆｙ
で，携帯に送ってましたが，ＬＩＮＥ　Ｎｏｔｉｆｙも３月でサービス終了の連絡がきましたので，変更せざ
るをえなくなりました。
代替え案とし，ＭｅｓｓａｇｉｎｇＡＰＩ　が紹介されていましたが，自力で変更するのはちょっとハードル
が高いので，自宅サーバーでも使っていた，ＤＤＮＳ　のサービスを使うことにしました。以前は，イエサー
バーを使っていましたが，今回は，無料で使える　DDNS Now　を使うことにしました。幸い更新の方法もい
くつかあり，crontab　を使う方法がありましたので，下記のものをcrontab　に登録しました。

0-59 * * * * wget -O DDNSNow_update.log “https://f5.si/update.php?domain=****&password=****”

ログを見てみますと，１分おきにグローバルアドレスをチェックしているようで，うまくいきましたが，
この　crontab　の設定にも時間がかかり，一度は，OS　を入れ替えました。

紆余曲折しましたが，防犯カメラよろしく，外部からも居間の様子を確認できるようになりました。
ただ，安価に確認するのであれば，市販のものを使った方が，はるかにいいと思います。

投稿日:

VBA プロシージャ名の取得　ハッシュテーブルの利用

ＶＢＡで，プロシャージャ名を取得する方法をあれこれあさっていましたが，あるサイトに，ＶＢＳでプロ
シージャ名を取得するＶＢＳがのっていました。ＶＢＳとＶＢＡの区別がつかなかったのですが，別物という
ことに気づき，あるサイトでＶＢＳをＶＢＡに変換するサイトがありましたので，そこでＶＢＡに変換してみ
ました。下記のＶＢＳを変換すると，

Set HashTbl = CreateObject("System.Collections.Hashtable")
Set CPobj = WBobj.VBProject.VBComponents("Module1")
Set CMod = CPobj.CodeModule
For i = 1 To CMod.CountOfLines
    ProcName = CMod.ProcOfLine(i,0)  ' プロシージャ名を取得
    If ProcName <> "" And HashTbl.ContainsKey(ProcName) = False Then
        HashTbl.Add ProcName, i
        EXLapp.MacroOptions CPobj.Name & "." & ProcName,,,,True,""
    End If
Next

下記のように変換してくれました。

' This code is translated from VBScript to VBA.
Dim HashTable As Object
Dim ComponentObject As Object
Dim CodeModule As Object
Dim ProcedureName As String
Dim LineIndex As Long

Set HashTable = CreateObject("Scripting.Dictionary") ' Using Scripting.Dictionary for better compatibility in VBA
Set ComponentObject = WBobj.VBProject.VBComponents("Module1")
Set CodeModule = ComponentObject.CodeModule

For LineIndex = 1 To CodeModule.CountOfLines
    ProcedureName = CodeModule.ProcOfLine(LineIndex, 0)  ' Retrieve the procedure name
    If ProcedureName <> "" And Not HashTable.Exists(ProcedureName) Then
        HashTable.Add ProcedureName, LineIndex
        EXLapp.MacroOptions ComponentObject.Name & "." & ProcedureName, , , , True, ""
    End If
Next LineIndex

ただ，このままではだめで，一部修正が必要でした。まず，

 EXLapp.MacroOptions ComponentObject.Name &amp; "." &amp; ProcedureName, , , , True, ""

の部分は，多分，ショートカットの設定の部分？なので，削除しました。また，「WBobj」の設定がしてない
ことでエラーになるので，ここを，とりあえず「Thisworkbook」に，そして，表示の部分を加えて下記のよ
うにしました。

Dim HashTable As Object
Dim ComponentObject As Object
Dim CodeModule As Object
Dim ProcedureName As String
Dim i As Integer
Dim keys() As Variant
Dim values() As Variant

Set HashTable = CreateObject("Scripting.Dictionary") ' Using Scripting.Dictionary for better compatibility
Set ComponentObject = ThisWorkbook.VBProject.VBComponents("Module1")
Set CodeModule = ComponentObject.CodeModule

For i = 1 To CodeModule.CountOfLines
    ProcedureName = CodeModule.ProcOfLine(i, 0)  ' プロシージャ名を取得
    If ProcedureName <> "" And Not HashTable.Exists(ProcedureName) Then
        HashTable.Add ProcedureName, i '要素にプロシャージャの開始行番号を追加
    End If
Next i

keys = HashTable.keys
values = HashTable.Items

For i = 0 To UBound(keys)
    Debug.Print keys(i) & " " & values(i)
Next i

これで，自身のModule１に記載された，プロシャージャとその開始行番号が表示されるようになりました。

今回，参考にしたＨＰにハッシュテーブルを使った例がでていましたので，ハッシュテーブルを使ってみまし
た。ハッシュテーブル（連想配列）は，以前から知っていましたが，使ったことはありませんでした。通常の
配列と違って，設定した　ｋｅｙ　によって，それに応じた　ｉｔｅｍ　にアクセスできるところが便利な所
のようです。

投稿日:

VBA　他シートへ関数の書き込み

開いているBook　間では，ＶＢＡ　の　プロシャージャの書き込みもできるようです。

下記のプロシャージャでは，新しく開いたエクセルのファイルに，macro.txt　に書かれた関数を書き込みます。

Private Sub CommandButton3_Click()
    'OPENしたBOOKのSHEET1に　”macro.txt”　のプロしィージャを書き込む
    Dim wb As Workbook
    
    fTyp = "Excelファイル(*.xlsm),*.xlsm,Excelファイル(*.xlsx),*.xlsx,Excelファイル(*.xls),*.xls"
    prompt = "Excelファイルを選択してください"
    fPath = Application.GetOpenFilename(fTyp, , prompt)
    
    Set wb = Workbooks.Open(fPath, UpdateLinks:=Ture, ReadOnly:=Ture)
    
    With wb.VBProject.VBComponents("Sheet1").CodeModule
        .AddFromFile "C:\Users\mabo-2021\Desktop\****\*****\*****\*****\macro.txt"
    End With
    
End Sub

macro.txtという下記の内容のファイルを同じフォルダーにおいてきます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Application.ScreenUpdating = True
End Sub
投稿日:

VBA　他シートへの条件付き書式の書き込み

他シートに記載してあるデータを転記する必要がありました。特定の列を転記するので，転記す
る列を強調するにはどうしようかと考えていました。
メインとなっているBookから，転記するシートを開く，転記する列を選ぶ，転記する，との一連
の動作は，一通りできるようになってますが，よりわかりやすくするのに，転記する列を強調し
たくなり，その方法をいろいろかんがえていました。転記するBookに条件付き書式を手動で設定
すれば，事足りるのですが，手動では，あまりにも芸がないので，VBAから，できないか，思案し
ていました。
VBAからVBAに書き込むようかなとあれこれあさっていましたが，条件付き書式は，ブックを開いて
さえいれば，メインのBookから，他のBookに条件付き書式の書き込みができるようなので，実際に
実行してみました。
メインのVBAに

 '読み込んだファイル名でブックを開く
    Set wb = Workbooks.Open(fPath, UpdateLinks:=Ture, ReadOnly:=Ture)
    Set Taisyou_Sheet = wb.Worksheets("受付名簿")
    
    '対象シートに条件付き書式を設定
    Taisyou_Sheet.Cells.FormatConditions.Delete
    Range(Taisyou_Sheet.Cells(4, 2), Taisyou_Sheet.Cells(101, 14)).FormatConditions.Add(Type:=xlExpression, Formula1:="=CELL(""COL"")=COLUMN()").Interior.Color = rgbPowderBlue

のように書き込むことで，条件付き書式の設定ができたようです。
ただ，これだけでは，だめで，

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Application.ScreenUpdating = True
End Sub

を該当シートに書き込む必要があるので，やはり，VBAからVBAを操作する必要がありますね。

投稿日:

MG6230　ヘッド　故障 （２）

ヤフオクでプリンターヘッドを購入。印刷枚数が１－５０枚というもので，QY6-0078　という型番のもので
す。本日とどいたので，早速交換してみました。


結果，見事復活です。


ノズルパターン印刷では，7701-7750　とでます。ノズルパターン印刷での印刷ページは，本体の枚数みたい
ですね。ヘッドの印刷枚数だと思ってましたが，違いました。
購入した，ヘッドも，実際の印刷枚数は　？　かもですね。

見事復活はしたものの，印刷枚数を見て。また別の心配ごとが。もしかして，そろそろ，廃インクタンクが
満杯になって　E008　のエラーが出てきそうなきまします。こうなると，ちょっとやっかいで，分解，ソフト
リセットと，いろいろやらないと使えるようにはならないようです。こうなると，複合機のMG6230は，ちょ
と面倒なようです。その時は，どうするか，考えますが，しばらくは，使えそうです。

投稿日:

MG6230　ヘッド　故障

愛用していたプリンターのヘッドがだめになったようです。
インク詰まりかなと思い強力クリーニングをなんかもやりましたが一行に改善しません。以前にやった，
ヘッドの温水洗浄もやってみました。互換インクと使ってましたので，そのせいかなとも思い，純正品に
交換もしてみました。
それで，何度も強制クリーニング。おかげで買ったばかりのインクほぼからに。しかし，PGBK　が全く印
刷されないことを冷静に考えると，物理的不具合というより，電気的な不具合のような気がしてきました。

となると，部品交換しかないですね。まあ，中古品ということで，ヤフオク物色です。

投稿日:

ブラウン　シェーバー　350CC　不具合

長年使っていたシェーバーが動かなくなりました。スイッチを入れても，

のように，赤のLEDが点滅して動きません。充電しても，いつまでも，終わりません。ということで，多分電
池だろうということで新年そうそう電池の交換をすることが，今年の最初のDIYになりそうです。
このシェーバーは，３５０CCというもので，メーカーではすでに販売終了，電池交換も対象外
ということなので，DIYしかないみたいです。



ネットで電池を検索してみると，〇zoneやアリエクで販売があるようですが，アリエクの方が安かったのでア
リエクに注文しました。安いのはいいのですが，到着予定が，３月２日です。少しは，早めに届くようです
が。それまで，諸兄のHPにて，分解の方法の研究です。

https://komoriss.com/braun_shaver_battery_replacement/

等に，参考になる記事があります。

投稿日:

謹賀新年

明けましておめでとうございます。

新しい年の始まりです。

昨年中は，HPへの訪問，ありがとうございます。

たいした中身はありませんが，時々，訪問してくださるとうれしいです。

今年もよろしくお願いいたします。

投稿日:

Perl プログラミング

仕事がらみのお手伝いの関係で，ＨＰをあれこれいじってます。その関係で，perl　のプログラムをいじりは
じめました。が，これが一筋縄ではいきません。

プログラムを書く。
　　　↓
サーバーにアップロードする。
　　　↓
ブラウザからアップロードファイルにアクセスして確認
　　　
を繰り返して，動作の確認をしてますが，結構時間がかかります。
一番こまるのは，同じプログラムを書いたを別名のファイルでアップロードしても，片方は動くが，片方は動
かないというようなことが起こります。下記のスクリプトは，htmlファイルを開いて，表示するという簡単な
なものです。

#!/usr/bin/perl

#文字/画像の表示
print "Content-type: text/html\n\n";

open (IN,"test2.html");
my @tmp=<IN>;
close (IN); #ファイルハンドルを閉じる

print @tmp;


exit;

このスクリプトを書き込んだ，app3.cgi　は，


のように，うまく動きました。
しかし，同じスクリプトを書き込んだ　test.cgi　は


見事に，イターナルサーバーエラー５００になってしまいました。

うまくいかない原因は，改行コードが違う，書き込んだ文字コードが違う，というようなことがいわれている
ようですが，やり方が悪いのか，これらを変更してもうまくいきません。もしかして，何度かファイル名で
エラーを起こしてしまうとサーバー側，ロックをかっけてしまうのあかなあ，と思えるくらうごきませんでし
た。動かない原因は謎です。ただ，思い当たるのは，app3.cgi　のスクリプトは，動いていたスクリプトの中
身を削除して下記加えたもので，test.cgiは，テラパッドで新規にテキストファイルを作成して書き込み，
拡張子を変更したものです。もしかして，このあたりにも原因があるのかもしれませんね。