Vbscript Capslock分批关闭-备选方案

我想知道我是否可以使用下面相同的代码并做一些小的更改来添加我需要的功能。它是这样写的：

::::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

结果:

• 如果已关闭，则会激活CAPS ON（打开）
• 如果已打开，则会激活CAPS OFF

我想将其更改为始终关闭。我如何在代码中进行这一细微的修改

---

谢谢

Word。此VBS使用该应用程序查询CAPS状态。如果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

Set objShell=CreateObject（“WScript.Shell”）
设置objWord=CreateObject（“Word.Application”）
如果objWord.CapsLock为0，则
“把卡普斯洛克关掉
objShell.SendKeys“{capslock}”
如果结束
objWord，退出

为了将所有内容都保存在一个批处理文件中，我们生成一个temp.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

set BAT_HOME=%~dp0
回显%BAT_HOME%
cd%BAT_HOME%
echo Set objShell=CreateObject（“WScript.Shell”）>temp.vbs
echo Set objWord=CreateObject（“Word.Application”）>>temp.vbs
如果objWord.CapsLock ^0，则回显>>temp.vbs
echo objShell.SendKeys“{capslock}”>>temp.vbs
如果>>温度vbs，则返回结束
echo objWord.Quit>>temp.vbs
cscript//nologo temp.vbs
del temp.vbs
回声。。。在批处理文件中执行您的操作

我无法使您的VBscript正常工作。它应该嵌入到我的批处理中，这样就不会有两个文件（*.VBS和my*.bat）。你能写下整个过程吗（批处理->VBs->批处理）？我得到的错误是“非常感谢您的时间。您的脚本工作得非常好。祝您有一个愉快的星期！@Greg Beech:问题是，如果用户已经关闭了capslock，上面的代码将打开caps。我希望caps始终关闭。但我也希望使用嵌入批处理中的VBS。