#http://www.ac-promenade.net/text/windowsmobile/
#Scripted by AC-Promenade http://www.ac-promenade.net/
#WiFi・サポート
#WiFi_Sp.mscr

#wifictrl等で無線LAN接続後、接続先リストを呼び出すMortScript。

#●使用方法概要
#・本mscrを実行すると、指定アプリ(wifictrl等)を実行します。
#・無線LANオンの場合、5秒後に接続リストを自動展開します。
#・無線LANオフの場合、そのままオフにして終了します。

#●動作確認デバイス
#Advanced/W-ZERO3[es], WILLCOM 03, HYBRID W-ZERO3
#他ZERO3系デバイスでも、動くかもしれません。
#GUI無く無線LANを制御できるアプリがあればその他機種も動くかも。
#もし他のWindows Mobile機でも動いたらご報告頂けると嬉しいです。

#●必要環境
#・MortScript4.1以上(それ以下でも動くかも)、mscrの関連付け。
# http://www.sto-helit.de/ (PCサイト)

#・GUI無しに実行だけで無線LANをオンオフできる何らかのソフト。
#WM6.1以前のZERO3系ならwifictrl、CAM起動はWifiPowerMode v0.1。
# http://w03holic.seesaa.net/article/51166074.html
# http://blog.tauchi.net/2007/12/lan.html (CAMが必要なら)
#WM6.5のHYBRID W-ZERO3ならwifictrl TA-01。
# http://emboss.blog28.fc2.com/blog-entry-110.html

#●補足事項
#本mscrのショートカットに、アイコンを利用したい場合は、
#ショートカットファイルのリンク先に、直接続けて
#?ceshell.dll, -13888と追記して下さい。

#アンインストールの際は、本mscrを削除するだけで大丈夫です。
#レジストリの追加、別ファイルの作成等は行っていません。

#本mscrによって生じる不利益に当方は関与しません。
#設定変数値を除く内容に改ざんがない限り、再配布は自由です。
#内容に変更を加えた際の再配布は、必ずその変更前と変更後の
#明記を、本文中にて行ってあれば構いません。

#---------------------------------------------------------------
#以下環境設定
#(書き換えの際、文字コードS-JISが変換されないよう御注意下さい。)

#■無線LAN接続をオンにするアプリケーションのパス
WifiOn="\Program Files\wifictrl\wifictrl.exe"

#■必要であればその引数、必要なければ""内空欄。
WifiOnArg="on"

#■無線LAN接続をオフにするアプリケーションのパス
WifiOff="\Program Files\wifictrl\wifictrl.exe"

#■必要であればその引数、必要なければ""内空欄。
WifiOffArg="off"

#---------------------------------------------------------------
#バージョン履歴
#1.01 HYBRID W-ZERO3で利用可能なようにやや修正。
#1.00 公開。
#---------------------------------------------------------------
#Main Script

#■PPC制限
If(MortScriptType() ne "PPC")
	message("This script is PPC only.")
	Exit
EndIf

If (RegRead ("HKLM","System\State\Hardware","WiFi")<12)
	If (WifiOnArg eq "")
		Run (WifiOn)
	Else
		Run (WifiOn,WifiOnArg)
	EndIf
	Sleep (5000)
	Run ("\Windows\ctlpnl.exe","cplmain.cpl,17")
Else
	If (WifiOffArg eq "")
		Run (WifiOff)
	Else
		Run (WifiOff,WifiOffArg)
	EndIf
EndIf