MortScipt習作

というわけで、早速、MortScriptsの習作をつくってみました。
MorScriptsではウインドウを選択するときに、ウインドウ名を使うのですが、中にはわかりにくかったり、長いウインドウ名なんかがあって、タイプするのが面倒。
なので、ウインドウ名を自動的に取得し、スクリプトをおいたのと同じフォルダに「Wtlist.txt」というファイルをつくって、そこにためていくというものです。
なかなか面白いｗ

#############################
Repeat(0)
call "WinTitle"
EndRepeat

Exit

SUB WinTitle
Message("10秒以内にタイトルを取得するウインドウを選択して下さい","Infomation")
sleep(10000)
T=ActiveWindow()
Ms1= "「" & T & "」でよろしいですか？"
if (Question(Ms1,"Info","YesNo")=Yes)
WriteFile("Wtlist.txt",T & "^NL^",True)"
MS2="処理実行。継続？"
ELSE
MS2="処理中止。継続？"
ENDIF

if (Question(MS2,"Info","YesNo")=Yes)
ELSE
Message("終了しました","Info")
Exit
ENDIF
ENDsub