自動化したいです

質問

Windows OSの「コントロールパネル→キーボード→言語タグ→プロパティー → 辞書/学習タグ → システム辞書のチェックを入れる」この一連の操作を自動化したいのですが、何か言い方法はないでしょうか？知っていたら教えてください。御願いします。

回答No.4

ittochan · ベストアンサー

＞Windows は98を使っております。
IME2000でしょうか？
それでしたら、Windows98に標準で付いている
Windows Script Host(WSH)で出来ますよ。
それ以外ですと私の範疇から外れちゃいます。

IME2000でしたら、

１.メモ帳を開き、以下の文章を貼り付けます。
---この下から
set WshShell= WScript.CreateObject("WScript.Shell")
if WScript.Version < "5.6" then
WScript.Echo "Windows Script Host 5.6 をインストールしてください"
WScript.Quit
end if
dim dicNo
'チェックを変えたい辞書の番号
'0＝1番目（標準辞書）
'1＝2番目
'2＝3番目
'3＝4番目
'4＝5番目
'5＝6番目
'6＝7番目
'7＝8番目
dicNo=0

dim check
'チェックの状態を指定します
'0=off 1=on 2=glay
check=1

dim dicCnt
'登録している辞書の数
dicCnt = 8

dim DicStatus
dim regkey
dim array
regkey = "HKCU\Software\Microsoft\Windows\CurrentVersion\IME\Japan\IMEJP\"
array = WshShell.RegRead(regkey & "Dictionaries\DIC" & (dicNo+1) )
Select Case hex(array(UBound(array)-2))
Case "30": DicStatus=0
Case "31": DicStatus=1
Case "32": DicStatus=2
End Select
if check<>DicStatus then
click=check-DicStatus
if click<0 then
click = click+3
end if
else
WshShell.Popup "変更なし",2,"Windows Script Host",16
WScript.Quit
end if
WshShell.Run("%windir%\IME\IMEJP\imejpuex.exe")
act("Microsoft IME 2000 のプロパティ")

WshShell.SendKeys "+{TAB}{RIGHT 4}{LEFT}"
WshShell.SendKeys "{TAB 7}"
if dicNo<>0 then
WshShell.SendKeys("{DOWN "&(dicNo)&"}")
end if
WshShell.SendKeys "{ " & click & "}"
WshShell.SendKeys "%a"
WshShell.SendKeys "{ESC}"
function act(title)
for i=0 to 300
WScript.Sleep 100
if WshShell.AppActivate(title) then
exit for
elseif i=299 then
WScript.Quit
end if
next
end function
---この上まで

４．「ファイル」→「名前付けて保存」をクリック
　マイドキュメントに ittochan.vbs という名前で保存します。

このスクリプトの例では
保存した ittochan.vbs を実行すると
一番上の「標準の辞書」にチェックが入ります

お礼

お礼遅くなってスイマセン。
早速、上記のスクリプトを使って、ちょこっと修正を加えただけで自分の理想どおりのモノができました。
有り難うございます。感謝です!!

回答No.3

ittochan

UWSCでできるかも。
↓
　tomjapさんはWindows98?、Windows2000？
　WindowsMe以外でしたらUWSCのスクリプトを作ってあげれるけど。チェックの部分が難しそう。

参考URL：

http://www002.upp.so-net.ne.jp/umiumi/

補足

お心使い感謝です！！Windows は98を使っております。UWSC・・・なにやらすごいソフトですね。あんなのがあるのしりませんでした。

回答No.2

Horus

TieUp

Direct Command

などと言うソフトがVector にあったかと？

補足

あったのですが、社内のネットワークからだとダウンロードできないのでどういうソフトかわからないです。すいません。

回答No.1

Neginebu

僕はWindowsMeで「ATOK」を使ってるので同様ではないかもしれません。m(__)m

手順を短くすることは出来ます。
「ATOKのツールバー上で右クリック」→「プロパティ」と選択すれば
コントロールパネル→キーボード→言語タグ→プロパティーと同じ所までいけます。

これだけでも結構楽になるとは思いますが。。m(__)m

補足

確かに短くはなったのですが、もう少し自動的にやってみたいでのす。わがままいって申し訳ありません。