会社や研究室でサイト閲覧を誤魔化すWindowsアプリ（HTA）作成

2024年（社会人20年）

2024.07.18

トランプ前大統領、銃撃されるもガッツポーズで無事をアピール。

これで米大統領選挙はトランプ当選がほぼ確実。

そうなると米国株には大きくポジティブ……と思いたいけど、為替の動きも激しくて夜しか寝れない。

夜しか……ヨルシカ………

Windowsの「メモ帳」によく似た外観を持つWebブラウザ
Google風の画面でTwitterができる「BossKitter」「CustomTwitter」
ティッカーアプリを自作する
1. ティッカーアプリをWindows画面の前面に表示する
おわりに

そんな連想ゲームが頭に浮かび、仕事中でもブラウザを開いてネットサーフィンがしたくなる。

でも白昼堂々とネットサーフィンするわけにはいかないので、

●「Ctrl＋W」⇒いま開いているウインドウを閉じる

●「Alt＋F4」⇒いま開いているアプリケーションを終了する

を駆使してネットサーフィンを楽しむ事を誰しも考える。

これを使ってフリーセルを楽しんでる窓際族な人々はいるけど

逆に画面の動きで気づくわｗｗｗ

ということで、今では

SNSをあたかもGoogleの検索結果画面のように見せるもの
画像やロゴをワンクリックで隠すもの
Excel画面風に見せるもの

のような、ありとあらゆるツールがある。

ちなみに私の学生時代からのオススメは自作のティッカーアプリ。

でもテレワークが主流になっており記事がお蔵入りになっていた。

今回ChatGPT使ってスクリプトの改善したので載せておく。

Windowsの「メモ帳」によく似た外観を持つWebブラウザ

これはLinuxでいうw3m lynxのようなテキストブラウザ。

HTML3の詳細情報 : Vector ソフトを探す！

多言語翻訳機能付きテキストWebブラウザ

色々とあるけど、一番新しそうなHTML3をダウンロードしてみた。

色もそれなりに変えれるので、通常利用しているTeraPadのような形で画面上では見える。

だけど書かれている内容が目に入ると駄目じゃない？

Google風の画面でTwitterができる「BossKitter」「CustomTwitter」

知らないので調べた。

Twitter(X) をGoogle検索のように閲覧できるChromeプラグインのようだ。

既に2010年ぐらいで更新が止まっており、プラグイン自体が見つからなかった。

そもそも私はツイ廃ではないので、Twitter見れても意味がない。

ティッカーアプリを自作する

ティッカーとは、特定範囲内に文字列を流して表示させる表示方式のこと。

学生時代の2004年にはLinux上でx-Windowを用いて作成。

「ティッカー」アプリを作ってみました

東京、釣り無理一足先に東京へ行った釣り仲間の A 氏から電話・・・「東京、釣り無理！海が濁って、魚も見えん！」・・・・・・＿|￣|○やっぱ瀬戸内海は恵まれているようです・・・瀬戸...

2006年頃にもWindowsアプリとしてVisual Studioを使ってC++で作成していた記憶はある。

そして2016年にHTA ＆ JavaScript を使ったティッカーアプリを作った。

「HTA」（HTML Application）は、HTMLの技術を使って、Windows向けアプリケーションを作る方法

あれから8年、今はChatGPT様を使って改造できる。

ティッカーアプリをWindows画面の前面に表示する

これがHTA ＆ JavaScriptでは「前面固定表示」が上手く機能しなかったのでお蔵入りになっていた。

で、ChatGPT-4o様に御神託を賜る。

ほんとにありがてぇ……ありがたいこった！

Windows API を使って HTA ウィンドウを常に最前面にする方法が必要です。

これには、HTA 内で VBScript を使用して、ウィンドウを最前面に設定する方法を試してみることができます。

以下のコードでは、VBScript を使用して HTA ウィンドウを最前面に設定します。

PowerShell コマンド：

PowerShell コマンドを使って、Windows API を呼び出します。
SetWindowPos 関数を使ってウィンドウを最前面に設定します。

ActiveXObject の使用：

JavaScript 内で ActiveXObject を使い、PowerShell コマンドを実行します。

注意事項

PowerShell の実行ポリシー：実行ポリシーが制限されている環境では、この方法が機能しない場合があります。
管理者権限：PowerShell コマンドを実行するために管理者権限が必要な場合があります。

で、実装コード。

    function setAlwaysOnTop() {
        try {
            var shell = new ActiveXObject("WScript.Shell");
            var command = 'powershell -WindowStyle Hidden -Command "Add-Type -TypeDefinition @\\" using System; using System.Runtime.InteropServices; public class Win32 { [DllImport(\\"user32.dll\\", SetLastError = true)] [return: MarshalAs(UnmanagedType.Bool)] public static extern bool SetWindowPos(IntPtr hWnd, IntPtr hWndInsertAfter, int X, int Y, int cx, int cy, uint uFlags); }\\"@; $hwnd = (Get-Process -Id $pid).MainWindowHandle; [Win32]::SetWindowPos($hwnd, -1, 0, 0, 0, 0, 0x0001 | 0x0002)"';
            shell.Run(command, 0, false); // 第二引数 0 は非表示モードを意味する
        } catch (e) {
            alert("ActiveXObject error: " + e.message);
        }
    }

function setAlwaysOnTop() {

try {

var shell = new ActiveXObject("WScript.Shell");

var command = 'powershell -WindowStyle Hidden -Command "Add-Type -TypeDefinition @\\" using System; using System.Runtime.InteropServices; public class Win32 { [DllImport(\\"user32.dll\\", SetLastError = true)] [return: MarshalAs(UnmanagedType.Bool)] public static extern bool SetWindowPos(IntPtr hWnd, IntPtr hWndInsertAfter, int X, int Y, int cx, int cy, uint uFlags); }\\"@; $hwnd = (Get-Process -Id $pid).MainWindowHandle; [Win32]::SetWindowPos($hwnd, -1, 0, 0, 0, 0, 0x0001 | 0x0002)"';

shell.Run(command, 0, false); // 第二引数 0 は非表示モードを意味する

} catch (e) {

alert("ActiveXObject error: " + e.message);

}

私の8年間悩んでいたことが一瞬で解決した。

Stack OverflowサイトとかYahoo知恵袋とかもはや不要！

タスクバーの位置に置いておけば、ずっとニュースを垂れ流すバレないティッカーアプリが完成となった。