WEB文字化け緊急対策スクリプトだゅ

ブログや掲示板への書き込みの際、文字化けして書き込めなくなる事が最近多くなってるので、対策スクリプト作りました。

まだ XP 使っている方々向けです。
↑ おめぇだろぉ(汗)　・・ﾊｲ・ﾜﾀｼﾀﾟｽ(爆)。


レジストリの変更のある場合だけ、レジストリ変更するコードです。書き換えの必要がある際は、セキュリティから警告があると思いますので、一度だけ許可して下さい。レジスト変更は、再起動しないと有効になりませんっす。



[ 使ってみる方法 ]
コンテキストメニューから"新規作成" → "テキスト　ドキュメント" を作り、下記のテキストエリア の スクリプトを丸コピしてください。

出来たら、

　WEB文字化け対策レジストライタ.VBS

という風になんでも良いんですけど、 *****.VBS　と、ファイル名を変更してください。

※1 拡張子の表示のない場合は、フォルダーのメニューのブロパティを開くと[表示タブ]のチェックで出てきます。

※2 ダブルクリックしても動かない場合は、文字列以外のコードの空白に、全角スペースがあると思います。ディバックに添ってエラー回避してくださいませ。スペースは半角です(要はコード書き換えた際ﾈ)。

tx1="★ WEB文字化け緊急対策スクリプトだゅ ★" On Error Resume Next Err.Raise Err.Clear Set WshShell=WScript.CreateObject("WScript.Shell") KBTx=WshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000411\Layout File") if Err.Number<>0 then WScript.Quit else If KBTx = "KBDJPN.DLL" Then WScript.Echo "Keyboardの値は: " & KBTx & "　どぇしたぜぃ!((o\o))!" & vbCrLf & "・・のぉでぇ、とりあえずこの作業はここで終了すますぜぃでょ!!" WScript.Quit Else i = "KBDJPN.DLL" WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000411\Layout File", i, "REG_SZ" WScript.Echo "レジストリのKeyboardの値を　" & i & "　へ書き変えしたッﾊﾞｲ!!" WSHShell.Popup "変更が整いましたのでレジスト開いて見てみぃのぉ。!" & vbCrLf & "あと、お手数ですがの、一度再起動してください。文字化けが解消されますょ～" End If end if


'//// 使用上のご注意 //////////////////////////////////////////
'◇ ソース改変、再配布自由ですが全て自己責任で行ってください。
' (なお再配布の際は、URLや署名等も変更しておいてぇ)

'◇ WinXP(SP3)で動作確認済みですが一切の責務は放棄します

'◇ ですので、ソース内容をお確かめの上使用してくださいませ。

'◇ 何かありの場合はコメント欄ご利用くださいませ＼(◎o◎)／！


　 　　　　　　　　　'配布元 ここです。
　　　　　　　　　　 '最終更新日 21:24 2013/02/27
　　　　　　　 　　　'管理人 うっぴぃ～
'/////////////////////////////////////////////////////////////////


PS ; 暫く更新続けます。