2

以下の同じコードを使用して、必要な機能を追加するためにいくつかの小さな変更を加えることができるかどうかを知りたいです。それが書かれている方法:

::::Set WshShell = CreateObject("WScript.Shell")
::::WshShell.SendKeys "{capslock}"
Set WshShell = Nothing
findstr "^::::" "%~sf0" > temp.vbs & Cscript //nologo temp.vbs & del temp.vbs
echo Capslock is off

結果 :

  • すでにオフになっている場合は、CAPSONをアクティブにします
  • すでにオンになっている場合は、CAPSOFFをアクティブにします

常にOFFに変更したいのですが。コードでこのわずかな修正を行うにはどうすればよいですか?

ありがとう

4

1 に答える 1

5

Word.Applicationは、CAPS状態を照会するためにこのVBSによって使用されます。CAPSがオンの場合は、オフにします。

Set objShell = CreateObject("WScript.Shell")
Set objWord = CreateObject( "Word.Application" )

if objWord.CapsLock <> 0 then
   ' turn capslock off
   objShell.SendKeys "{capslock}" 
end if
objWord.Quit

すべてを1つのバッチファイルに保持するために、一時的な.vbsファイルを生成し、実行して削除し、CAPSがオフになっていることを確認します。

set BAT_HOME=%~dp0
echo %BAT_HOME%
cd %BAT_HOME%
echo Set objShell = CreateObject("WScript.Shell") > temp.vbs
echo Set objWord = CreateObject( "Word.Application" ) >> temp.vbs
echo if objWord.CapsLock ^<^> 0 then >> temp.vbs
echo objShell.SendKeys "{capslock}" >> temp.vbs
echo end if >> temp.vbs 
echo objWord.Quit >> temp.vbs
cscript //nologo temp.vbs
del temp.vbs
echo ... do your thing in the batch file
于 2012-08-09T16:58:30.327 に答える