子供の健康を守るため、ネットゲーム[デジタルアヘン]をブロックしたい研究(ドラフト)
【デジタルアヘン】
「『精神的アヘン』がこともあろうか数千億元(1元は約17円)規模の産業に成長」。「精神的アヘン」とは、ネットゲームのこと。
戦う相手は強大だ。優秀な人材が寄って集って、大量の予算で危害を及ぼしてくる。
心が折れそうになるが、相手にとって不足なし。
【動機】
子供がネットゲームにはまっているが、なんとかネトゲだけをブロックしたい。
深夜帯に寝ないのが身体的に大問題。
【前提条件】
対象機器は自宅PCでWindows10、子供は管理者権限で使う。
もろもろインストールは自由とする。学業案件があるので防げない
インストール済みのネトゲはこっそり確認できる
ペアレンタル・コントロールは使えない
ルーターはショボいのでIPフィルターしか使えない
ルーターのログは隠しLINUXに集約しているので、子供は閲覧できない
定額制のセキュリティフィルターは予算の関係で使えない
「子供と話し合え?」はぁ? ネトゲ中毒に話が通じるワケねーじゃん
【対策1】
IP制限をかけてみる。
ネトゲ起動中の通信先を記録して、それっぽいIPをブロックする
一定の効果はあるが、ゲーム会社のロードバランサやリバプロで透過してしまう
そもそも、後手でイタチごっこなのが課題
【対策2】
深夜帯に限り、ルーターのエコモードに切り替えてネットワークを遮断する
効果はあるが、ルーターの電源OFF・ONで通常モードに戻されてしまう。
よって、30分単位でエコ設定をしておくと、リセットされても30分後には切れるのでネトゲには致命的だろう。
ルーターのエコ設定が10分単位かつ子供PCのローカルIP単位ならば良いのだが
ルーターOFF状態では他のユーザー(自分や奥様)に影響が発生するのも課題
※WindowsOSのペアレンタル・コントロールやキャリアの見守りサービスは操作が複雑で費用もかかり、家庭内不和も誘発してしまう。つまり副作用が大きい。
「ターミネーター:ニュー・フェイト」(妄想)
面白かったけどコレは前作と何が違うのだろうと思った。
コケると思ったら案の定だったワケ・・・で、ちょっと妄想してみた。
【未来】 過去に次々と機械を送り込むが、一向にジョンが消えないので、スカイネットは新兵器を作る為に人間の技術者や兵士を拉致し始める。
【現代】 サラとジョンは米軍の研究機関と組んで、送り込まれてくる機械を狩っていた。以前捕らえた機械(頭部のみ)を再プログラムして出現場所を予測し効果的な罠を仕掛けていたのだ。米軍には「歳をとらない優秀な参謀AI」としてT800が参加していたのだ。
そしてある日、T800が破壊した機械のパーツを使い、自身のボディの修復を命じる。
危機が迫っているのだ。
【未来】 スカイネットは新兵器を作り上げる。それは羽を持った機械達だった。
ヒトの一部を生体部品とし疫病をまき散らす生物兵器も搭載している。
タイムマシンも同じ時刻に大量の機械を送り込める様に改良した。
【現代】 天空に多数のゲートが開き、数千を超える機械が天空より舞い降りる。
それこそが最終戦争。
これを予測していたT800は自身のコピーを12台作り、それぞれ異なった力を与え、最終戦争に挑む。勝つのはヒトか天使かそれとも悪魔か・・・
ターミネーター(T1)が処女懐胎を暗示し、救世主が生まれるという宗教色が強かったのでこんなのもアリかなと。
T800という知恵の実を食べてしまった人類は、楽園から追い出されるのカモしれない。
という事で次回作は宇宙へww
エクセルブックのパスワードを忘れたので解除してみる
エクセルブックにパスワードを掛けて忘れた
1000~3000の4ケタの数字なので思い出せば良いのだけれど面倒なので解除VBAを書く
ターゲットは「xxxxx.xlsx」という名前のエクセルブック
For i = 1000 To 3000
On Error Resume Next
Workbooks.Open Filename:="D:\temp\xxxxx.xlsx", Password:=CStr(i)
If ActiveWorkbook.Name = "xxxxx.xlsx" Then
MsgBox "パスワードは" & CStr(i)
Exit For
End If
Range("a1") = CStr(i)
Next
色々工夫すれば複雑なパスワードも解除できる
Office365のアプリ認証でエラー
Office365を使っていると「申し訳ありませんが、サインイン中に問題が発生しました。」となりアプリが起動しない時がある。
エラーコードは「AADSTS90002」である。
ブラウザのキャッシュでクッキーやパスワードを削除しても改善しなかったので、IEを「InPrivate ブラウズ」(Ctrl + Shift + p)で開き、 https://login.microsoftonline.com/ ココからOffice365にサインインする。
エラーになるアプリが起動できるのを確認して、ブラウザを再起動すれば、通常モードでもエラーは解消されている。