/*
	SKKIME改のメイン辞書をダウンロードしてインストールする。
	既にインストール済みの場合は、最新版の辞書に更新する。

【使いかた】
	0. SKKIME改をインストールしておく。(インストール前でも大丈夫)
	1. このページを「名前をつけて保存」します。
	2. 保存したプログラム(skkime_dict.js)をエクスプローラでダブルクリックして実行します。
	3. ログオフまたは再起動します。(辞書プロセスが再起動できればよい)
	4. おわり

	このプログラムはCC0 PUBLIC DOMAINです
*/
URL = "http://openlab.jp/skk/skk/dic/SKK-JISYO.L"
URL_ALT = "http://skk-users.jp/dic-mirror/SKK-JISYO.L"

W = WScript
X = ActiveXObject
S = new X("WScript.Shell")
F = new X("Scripting.FileSystemObject")
try { T = F.GetSpecialFolder(2) } catch (e) { T = S.ExpandEnvironmentStrings("%TMP%") }
t = T + "\\SKK-JISYO.L"
A = S.ExpandEnvironmentStrings("%APPDATA%") + "\\SKKIME"
try { F.CreateFolder(A) } catch (e) {}
d = A + "\\SKK-JISYO.L"
!dl(t, URL) || !dl(t, URL_ALT) || W.Quit(S.Popup("ダウンロードに失敗しました", 0, "SKKIME"))
try { F.DeleteFile(d, 1) } catch (e) {}
try { F.MoveFile(t, d) } catch (e) {}
S.Popup("辞書を更新しました。再起動してください", 0, "SKKIME")

/// ダウンロード
function dl(f, a)
{
	var h = new X("MSXML2.XMLHTTP"), s = 1
	try {
		h.Open("GET", a, 0),
		h.Send(),
		s = h.Status
	} catch (e) {}
	if (s == 200) with (new X("ADODB.Stream")) {
		Type = 1,
		Open(),
		Write(h.ResponseBody),
		SaveToFile(f, 2),
		s = 0
	}
	return s
}