# All Rights Reserved, Copyright kurAmA Limited, 2008
# written by kurAmA
# 2008.11.17 作成
#
#マナーモードの切り替え
# レジストリ読み込みにより、SetManner.exeをキックする。
#
#マナーモードが記録されているレジストリ
# "HKCU","Software\Sharp\ShPhoneLib","MnrMode"
# 値 0:ON, 1:OFF

#モードの取得
mnr=RegRead("HKCU","Software\Sharp\ShPhoneLib","MnrMode")

If(mnr=0)
	#RegWriteDWord("HKCU","Software\Sharp\ShPhoneLib","MnrMode",1)
	Run("\Program Files\SetManner\SetManner.exe")
	Vibrate(500)
	Sleep(200)
	Vibrate(500)
	Message("マナーモードON")
Else
	#RegWriteDWord("HKCU","Software\Sharp\ShPhoneLib","MnrMode",0)
	Run("\Program Files\SetManner\SetManner.exe")
	Sleep(1000)
	#PlaySound("\Windows\notify.wav")
	Message("マナーモードOFF")
EndIf