BlueTooth で ActiveSync を自動接続＆自動(？)終了する MortScript
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
タグ: MortScript, WinodwsMobile
＊関連する投稿
