–Caution: This script runs on only Japanese language environment

set cList to current application’s CSInputSource’s all()
set dList to (cList’s valueForKey:"localizedName")
set aRes to ((dList’s indexOfObject:"ひらがな") as integer) –"Hiragana" in Japanese
set bRes to ((dList’s indexOfObject:"英字") as integer) –"English Letters" in Japanese

set hiraKey to cList’s objectAtIndex:aRes
set engKey to cList’s objectAtIndex:bRes

repeat 3 times
　　my performSelectorOnMainThread:"selectInputCharMode:" withObject:(hiraKey) waitUntilDone:true
　　delay 1
　　my performSelectorOnMainThread:"selectInputCharMode:" withObject:(engKey) waitUntilDone:true
　　delay 1
end repeat

–Force execute on Main Thread
on selectInputCharMode:aModeObj
　　aModeObj’s |select|()
end selectInputCharMode: