プログラミング

Home > Tags > プログラミング

プログラミング

EMONSTER で、MMS 受信時にバイブを動かす MortScript ／7月1日追加

2009-06-30 (火)
[keitai]
EMONSTER | MortScript | S11HT | WinodwsMobile | プログラミング | 携帯電話

なぜかイーモンスターは MMS 受信時にバイブを動かすことができません。(うちだけ？) 設定項目はあるのに、設定しても受信時に動かないんです。しかたがないので、

よくある質問 – EMONSTER S11HT まとめWiki
mms受信時、バイブにできないの？
TOP ↑ ↓ 編集

設定-音と通知-通知タブのイベントの所で、接続の終了にバイブを設定で出来る。
MMS関係の設定では、バイブ動作しないので注意。

という方法をとっていたのですが、これだと接続の終了時にバイブがなって鬱陶しいです。そこで、サスペンドから復帰したときに未読メール数が0でなければバイブを動かす MortScript を書いてみました。……課題そっちのけで(汗

注意点／問題点
・RunOnPowerOn を使っているので、下手するとエラーまみれになるかも
・使用をやめるときは、必ず kaijo_mms_chk.mscr を実行したのち削除すること
・設置フォルダを変更する場合も、kaijo_mms_chk.mscr を実行したのち移動すること

・ファイル名を変更する場合は適宜置き換え
・まだお試し中で、問題が起きるかもしれない／うまく動かないかもしれない
・余計な作業をするわけだから、バッテリの減りが早くなるかも？
~~・未読のままにしておくと、毎期同時にバイブが動く~~／7月1日変更
~~・受信待機時間の15秒は長すぎるか？~~
・短かった。30秒に変更
・EMONSTER 以外は試してないのでわからない。レジストリの値がWM共通かどうか
・うまく解除できないときは、Notification_Queue_Log.txtを参照して解除する／7月1日追加
・Notification_Queue_Log.txt は、touroku_mms_chk.mscr を起動するたびに追記するので、あまりに大きくなったら適宜削除する／7月1日追加
*普通は touroku_mms_chk.mscr は一度しか起動しないので問題ないと思われる

使用方法
・WM 自体の設定として、設定の音と通知のイベント:新着 MMS で画面にメッセージを表示するをONに
・touroku_mms_chk.mscr を一度だけ起動すると、以後は毎回動作する
・スタートアップに登録する必要はない／7月1日追加
・使用を中止するときは、kaijo_mms_chk.mscr を起動させる
ダウンロード:mms_chk.zip／7月1日変更

touroku_mms_chk.mscr

ep = SystemPath("ScriptExe")\"MortScript.exe"

				mp = """"&SystemPath("ScriptPath")\"mms_chk.mscr"&""""
				Message("登録しました。mms_chkを削除する、移動／フォルダ名変更などでパスを変更する場合、kaijo.mms_chk.mscrを先に実行してください。","登録")

				Message("Notification_Queue_Log.txtに追記しました","登録")

#重複を回避 RemoveNotifications( ep , mp) RunOnPowerOn( ep , mp) WriteFile( "Notification_Queue_Log.txt", "RemoveNotifications( "&ep&" , "&mp&" )^NL^", True )

kaijo_mms_chk.mscr

ep = SystemPath("ScriptExe")\"MortScript.exe"

				mp = """"&SystemPath("ScriptPath")\"mms_chk.mscr"&""""

RemoveNotifications( ep , mp) Message("解除しました。パスの変更等によりエラーが出る場合、Notification_Queue_Log.txtを参照して解除してください","解除")

mms_chk.mscr



				Count = RegRead( "HKCU", "System\State\Messages\SMS\Unread", "Count" )

				Sleep( 30000 )

				If( RegRead( "HKCU", "System\State\Messages\SMS\Unread", "Count" ) > Count)

				　Vibrate( 500 )

				　Sleep( 200 )

				　Vibrate( 1000 )

				EndIf

ここのバイブの時間の設定はお好みで。

＊関連する投稿

Comments: 0
Trackbacks: 0

ジャンル別ゲームの作り方とアルゴリズムまとめ – Logic Edge

ジャンル別ゲームの作り方とアルゴリズムまとめ - Logic Edge
ゲーム制作, Programmingゲームの作り方とアルゴリズムをジャンル別にまとめてみました。ゲーム制作のヒント、プログラミングの勉強用にご活用ください。言語別ゲームプログラミング制作講座一覧もあわせてお読みください。 RPGゲームの乱数解析乱数を利用した敵出現のアルゴリズムの解説各種ゲームプログラム解析FF、ドラクエ、ロマサガのプログラムの解析。乱数の計算などダメージ計算あれこれダメージの計算...

kihoshi プログラミング

＊関連する投稿

Comments: 0
Trackbacks: 0

BlueTooth で ActiveSync を自動接続＆自動(？)終了する MortScript

2008-11-20 (木)
[keitai]
EMONSTER | MortScript | S11HT | S21HT | Touch Diamond | WinodwsMobile | X01HT | プログラミング | 携帯電話

EMONSTER（S11HT）にて動作確認。自分用に作った超適当仕様なので、利用は自己責任でお願いします。
BT をオフにする方法がよくわからかったので、BTTurn を使用しています。
BluetoothのON/OFFツール公開（BTTurn）：とろんのモバイルブログ：So-net blog
作者様に感謝。

以下の動作を行います。
・ActiveSync を起動
・BT で接続
・同期が完了したら、接続を続けるかどうかのダイアログを出す
・はい：そのまま　・いいえ：BT をオフ、ActiveSync を閉じる
・はいにした場合、手動で切断（右ソフト→切断）後に、BT をオフ、ActiveSync を閉じる

問題点
・同期が完了する前にダイアログが出ることがある
・近くにパートナーが見つからなかった場合を考慮していない（一応、3回繰り返す内の1回分を使用することで動いてる？）
・無意味に Sleep が多いかも

http://denpa-shinbun.com/uploads/AutoASBT.zip
#変数 i=0 Cradled=0 Synchronizing=1 Path="\メモリカード\Program Files\BTTurn\BTTurn.exe" Run( "\Windows\ActiveSyn.lnk" ) WaitForActive( "ActiveSync", 10 ) #「BTから接続」を選ぶ（15s * 3回まで試行） While( Cradled = 0 ) i = i+1 SendSpecial( "RightSoft" ) Sleep( 200 ) SendSpecial( "Up" ) Sleep( 200 ) SendSpecial( "CR" ) Sleep( 15000 ) Cradled=RegRead( "HKLM", "System\State\Hardware", "Cradled" ) #3を増やすと試行回数が増える(はず) If( i > 3 ) RunWait( Path ) Sleep( 5000 ) Close("ActiveSync") Exit EndIf EndWhile Sleep( 5000 ) #くるくる回転中? While( Synchronizing = 1 ) While( Synchronizing = 1 ) Sleep( 5000 ) Synchronizing = RegRead( "HKLM", "System\State\ActiveSync", "Synchronizing" ) EndWhile Sleep( 10000 ) Synchronizing = RegRead( "HKLM", "System\State\ActiveSync", "Synchronizing" ) EndWhile #同期完了? #確認ダイアログ If(Question("接続を維持しますか？","確認","YesNo")) Cradled=1 While( Cradled = 1 ) Sleep( 2000 ) Cradled=RegRead( "HKLM", "System\State\Hardware", "Cradled" ) EndWhile RunWait( Path ) Sleep( 5000 ) Close("ActiveSync") Exit Else RunWait( Path ) Sleep( 5000 ) Close("ActiveSync") Exit EndIf

＊関連する投稿

Comments: 0
Trackbacks: 0

曜日、時間によってNextTrainのToday表示を変更するMortScript

2008-07-30 (水)
[keitai]
EMONSTER | MortScript | S11HT | S21HT | Touch Diamond | WinodwsMobile | X01HT | プログラミング | 携帯電話

ひさしぶりに X01HT をメイン機として使ってみてます。知らないうちに MMSLite の最新版が出ていて、メールの保存期間が指定できるようになったらしいので、実験です。

それで、真面目に環境を再構築しよう！と意気込み、~~テスト勉強そっちのけで~~環境づくり。そうしたら、もっそい便利になりました。おもに PQｚと DisableKeybdRotate と Atok と WKTask と BlueTooth のおかげです。他にもいろいろ入れましたが、これらはものすごく便利。標準で載せてほしいくらい。あ、BlueTooth は標準か。

それで、調子に乗って MortScript を弄り始めました。手始めに、Today 画面の NextTrain を曜日と時間によって変更するスクリプトを書いてみました。私は、平日14時までは家の最寄りの駅の時刻表/14時以降は学校の最寄り駅の時刻表/土日には変更なし、というようにしました。乗る時間帯・駅って、だいたい決まってますもんね。ただ、タイマー機能などはまだ調べてないんで、別のタイマーアプリと併用して使ってみてます。まだ実験中、今のところは動いてるっぽい……？書きかたがよくわからなかったので、わりと適当、汚いです。。

ソース
http://denpa-shinbun.com/uploads/mscript/change-nexttrain.txt

*NextTrain for PocketPC ダウンロード

＊関連する投稿