WSH/CapsLockキーをCtrlにするスクリプト
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#navi(../)
* CapLockキーをCtrlにするレジストリ設定VBスクリプト [#dd4...
CapsLockキーは使わないので、Ctrlキーとして動作したらいい...
CapsLockキーをCtrlにするにはレジストリに追加すればいいの...
などと思っている方々、CapLockキーをCtrlにするレジストリ設...
#htmlinsertpcsp(win-top.html,win-sp.html)
#contents
* スクリプトを使用する前に [#l08e84c1]
&color(red){''本資料のVBスクリプトはレジストリを追加・削...
&color(red){''本資料やVBスクリプトにより直接的および間接...
機器(キーボード)によっては、レジストリ登録しても変わらな...
* 参考資料 [#da412fca]
-[[Windows10 CapsLockキーをCtrlキーに割りあててしまおう！...
-[[Hey, Scripting Guy! : 値がレジストリに存在するかどうか...
-[[Hey, Scripting Guy! : バイナリ データをレジストリに書...
* 動作確認を行ったWindows [#x0f8faf5]
-Windows 10 ver.1809
#ref(01.png)
* CapsLockキーをCtrlにするVBスクリプト [#a116419f]
CapsLockキーをCtrlに変更するために、レジストリに設定を追...
本スクリプトは以下のような動作になります。
- VBスクリプトを起動することにより、CapLockキーをCtrlにす...
- すでにレジストリに登録済みの場合は、削除する旨のメッセ...
- 設定変更を有効化するためには、VBスクリプト実行後に再起...
* 実行時のキャプチャ [#j6e173c5]
以下、実行時のキャプチャになります。
** CapLockキーをCtrlにするレジストリ設定を登録する [#dd17...
+VBスクリプトを起動します。(ダブルクリックします。)
+ 以下のメッセージが表示されるので、レジストリに設定を登...
#ref(11.png)
#br
+ 以下のメッセージがでて終了です。
#ref(12.png)
#br
+ 再起動すればCapsLockキーがCtrlになっているはずです。
** CapsLockキーをもとに戻す(レジストリを削除する) [#mbf78...
+以下のメッセージはすでにレジストリ登録済みの場合に表示さ...
「はい」を押せばレジストリが削除され、「いいえ」を押せば...
#ref(21.png)
#br
+以下のメッセージがでて終了です。
#ref(22.png)
* VBスクリプト [#af5a67b1]
CapsLockキーをCtrlキーにするVBスクリプトは以下の通りです。
#ref(CapsCtrl.zip)
CapsCtrl.vbs
' CapsLock -> Ctrl or CapsLock -> CapsLock
' 本スクリプトを管理者として実行する
Set oWsh = Wscript.CreateObject("Shell.Application")
If Wscript.Arguments.Count = 0 Then
oWsh.ShellExecute "wscript.exe", WScript.ScriptFullN...
WScript.Quit
End If
'以降、管理者として実行
Set oWshShell = WScript.CreateObject("WScript.Shell")
Const strRegkey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentCont...
Const HKEY_LOCAL_MACHINE = &H80000002
Const strComputer = "."
Const strKeyPath = "SYSTEM\CurrentControlSet\Control\Key...
Const strValueName = "Scancode Map"
arrValues = Array(0,0,0,0,0,0,0,0,2,0,0,0,29,0,58,0,0,0,...
' 既に登録されているかをチェックし処理分岐
Set objRegistry = GetObject("winmgmts:\\" & strComputer ...
objRegistry.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath...
If IsNull(bValue) Then
b = MsgBox("CapLockをCtrlとして設定しますか？(Ctrlは...
If b = vbYes Then
ret = objRegistry.SetBinaryValue(HKEY_LOCAL_MACH...
MsgBox "レジストリ設定を追加しました。再起動する...
End If
Else
b = MsgBox("既に設定が存在します。CapsLockを本来の動...
If b = vbYes Then
'設定されているレジストリの削除
oWshShell.RegDelete(strRegkey)
MsgBox "該当するレジストリを削除しました。再起動...
End If
End If
以上、CapLockキーをCtrlにするレジストリ設定VBスクリプトで...
#htmlinsertpcsp(win-btm.html,win-sp.html)
終了行:
#navi(../)
* CapLockキーをCtrlにするレジストリ設定VBスクリプト [#dd4...
CapsLockキーは使わないので、Ctrlキーとして動作したらいい...
CapsLockキーをCtrlにするにはレジストリに追加すればいいの...
などと思っている方々、CapLockキーをCtrlにするレジストリ設...
#htmlinsertpcsp(win-top.html,win-sp.html)
#contents
* スクリプトを使用する前に [#l08e84c1]
&color(red){''本資料のVBスクリプトはレジストリを追加・削...
&color(red){''本資料やVBスクリプトにより直接的および間接...
機器(キーボード)によっては、レジストリ登録しても変わらな...
* 参考資料 [#da412fca]
-[[Windows10 CapsLockキーをCtrlキーに割りあててしまおう！...
-[[Hey, Scripting Guy! : 値がレジストリに存在するかどうか...
-[[Hey, Scripting Guy! : バイナリ データをレジストリに書...
* 動作確認を行ったWindows [#x0f8faf5]
-Windows 10 ver.1809
#ref(01.png)
* CapsLockキーをCtrlにするVBスクリプト [#a116419f]
CapsLockキーをCtrlに変更するために、レジストリに設定を追...
本スクリプトは以下のような動作になります。
- VBスクリプトを起動することにより、CapLockキーをCtrlにす...
- すでにレジストリに登録済みの場合は、削除する旨のメッセ...
- 設定変更を有効化するためには、VBスクリプト実行後に再起...
* 実行時のキャプチャ [#j6e173c5]
以下、実行時のキャプチャになります。
** CapLockキーをCtrlにするレジストリ設定を登録する [#dd17...
+VBスクリプトを起動します。(ダブルクリックします。)
+ 以下のメッセージが表示されるので、レジストリに設定を登...
#ref(11.png)
#br
+ 以下のメッセージがでて終了です。
#ref(12.png)
#br
+ 再起動すればCapsLockキーがCtrlになっているはずです。
** CapsLockキーをもとに戻す(レジストリを削除する) [#mbf78...
+以下のメッセージはすでにレジストリ登録済みの場合に表示さ...
「はい」を押せばレジストリが削除され、「いいえ」を押せば...
#ref(21.png)
#br
+以下のメッセージがでて終了です。
#ref(22.png)
* VBスクリプト [#af5a67b1]
CapsLockキーをCtrlキーにするVBスクリプトは以下の通りです。
#ref(CapsCtrl.zip)
CapsCtrl.vbs
' CapsLock -> Ctrl or CapsLock -> CapsLock
' 本スクリプトを管理者として実行する
Set oWsh = Wscript.CreateObject("Shell.Application")
If Wscript.Arguments.Count = 0 Then
oWsh.ShellExecute "wscript.exe", WScript.ScriptFullN...
WScript.Quit
End If
'以降、管理者として実行
Set oWshShell = WScript.CreateObject("WScript.Shell")
Const strRegkey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentCont...
Const HKEY_LOCAL_MACHINE = &H80000002
Const strComputer = "."
Const strKeyPath = "SYSTEM\CurrentControlSet\Control\Key...
Const strValueName = "Scancode Map"
arrValues = Array(0,0,0,0,0,0,0,0,2,0,0,0,29,0,58,0,0,0,...
' 既に登録されているかをチェックし処理分岐
Set objRegistry = GetObject("winmgmts:\\" & strComputer ...
objRegistry.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath...
If IsNull(bValue) Then
b = MsgBox("CapLockをCtrlとして設定しますか？(Ctrlは...
If b = vbYes Then
ret = objRegistry.SetBinaryValue(HKEY_LOCAL_MACH...
MsgBox "レジストリ設定を追加しました。再起動する...
End If
Else
b = MsgBox("既に設定が存在します。CapsLockを本来の動...
If b = vbYes Then
'設定されているレジストリの削除
oWshShell.RegDelete(strRegkey)
MsgBox "該当するレジストリを削除しました。再起動...
End If
End If
以上、CapLockキーをCtrlにするレジストリ設定VBスクリプトで...
#htmlinsertpcsp(win-btm.html,win-sp.html)
ページ名:
![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
