自動化したいです

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

No.4 ベストアンサー 回答者： ittochan 回答日時： 2002/09/12 21:11

＞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 を実行すると
一番上の「標準の辞書」にチェックが入ります

この回答へのお礼

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

お礼日時：2002/09/18 11:19

No.3 回答者： ittochan 回答日時： 2002/09/12 01:14

UWSCでできるかも。

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

参考URL：http://www002.upp.so-net.ne.jp/umiumi/

この回答への補足

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

補足日時：2002/09/12 12:43

No.2 回答者： Horus 回答日時： 2002/09/11 08:49

TieUp

Direct Command

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

この回答への補足

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

補足日時：2002/09/12 12:46

No.1 回答者： Neginebu 回答日時： 2002/09/10 20:14

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

m(__)m

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

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

この回答への補足

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

補足日時：2002/09/12 12:48