バッテリー残量警告スクリプト

タスクバーにバッテリー残量を表示してくれませんので、警告を発するスクリプトを書いて、スタートスクリプトで起動しています。

#バッテリー残量が10%以下になったらメッセージボックスで知らせる
While(1)
    Sleep(10000)
    bat = BatteryPercentage()
    
    if (bat < 10)
        Message("バッテリー残量が" & bat & "%になりました")
        exit
    EndIf
EndWhile

目安としてこの程度で交換しています。
こういうのが簡単に書けるんで、MortScriptは面白いです。

PHM Pocket PC PowerToolsを使った簡易メニューを

PHMの一連のツールは便利なものが多く、昔から愛用しています。
RegEditは多分レジストリエディタのはしりだったんじゃないのかなと思います。
今はTREを使わせてもらっていますが。
それらのツールを実行する簡易メニューを作ってみました。

#
#ユーティリティ
#

title = "簡易メニュー"

ans = Choice(title,"処理を選んで下さい",1,0, \ 

				"タスクマネージャー","プログラムを実行","サスペンド","リセット")
Switch(ans)
	Case(1)
		Run("\My Flash Disk2\Program Files\PHM Tools\TaskMan.exe")
	Case(2)
		Run("\My Flash Disk2\Program Files\PHM Tools\Run.exe")
	Case(3)
		Run("\My Flash Disk2\Program Files\PHM Tools\Suspend.exe")
	Case(4)
		Run("\My Flash Disk2\Program Files\PHM Tools\Reset.exe")
EndSwitch

Choiceという関数はフルスクリーンで動作するようで、ちょっとびっくりします。
デフォルトではタスクマネージャーを選択されていますが、[OK]ボタンを押すと、

外部プログラムのTaskManを起動します。
それなりに使えそうなんでデスクトップに置いておきます。