从命令提示符发送密钥

Question

有没有办法使用sendkeys（或类似的东西）从（而不是）命令提示符？

Answer 1

这是一个单行解决方案： 此行将输入“Testing 123”，然后按 Enter。

echo >script.vbs set shell = CreateObject("WScript.Shell"):shell.SendKeys "Testing 123{ENTER}" & script.vbs

Answer 2

您可以使用vb脚本。例如，此脚本将使扬声器静音。

set shell = CreateObject("WScript.Shell")
shell.run"Sndvol"
WScript.Sleep 1500
shell.SendKeys"{TAB}"
shell.SendKeys" "
shell.SendKeys"%{F4}"

您可以使用以下命令从控制台启动它：

cscript mute.vbs

Answer 3

无需创建临时文件。 显示“循环”只是为了让您可以打开笔记本进行输出。之后将其删除。

    @echo off
        :loop
            ::------------begin main code------------
            set command=new ActiveXObject('WScript.Shell').SendKeys('WoW{ENTER}{ENTER}');
            for /f "delims=" %%i in ('mshta "javascript:%command%close(new ActiveXObject('Scripting.FileSystemObject'));"') do set "var=%%i"
            ::-------------end main code-------------
            timeout /t 1 /nobreak >nul
        goto :loop

Answer 4

谢谢

https://stackoverflow.com/a/9710430/3523922我解决了在没有QR码阅读器的情况下发送代码的任务，具体是我发送到运行的捷克应用程序Apothéké。

发送密钥APO.bat

cscript sendtoAPO.vbs
pause

发送至APO.vbs

'simulace zasilani QR bez ctecky barcode
'--------
'--------


set shell = CreateObject("WScript.Shell")


' Activate okno s titulkem.  
'--------
'poukaz
    'shell.AppActivate("Apot-4272p") 'v APO prepnuto na sklad 840
    'shell.AppActivate("doc4.docx") 'pro test prenosu textu

'recepto-zadanka
    'kodovani souboru musi byt cp1250 jinak nejde prepnout na "Apothéké"
    shell.AppActivate("Apothéké") 'v APO prepnuto na sklad 830


'odeslani 
'--------
''ceska klavesnice

    ''poukaz
    'shell.SendKeys "°FTNP c3e069bc-152f-413d-bab2-567fc32a01f3~"
    
''anglicka klavesnice

    ''poukaz
    ' shell.SendKeys "{ESC}{F9}{~}FTNP c3e069bc-152f-413d-bab2-567fc32a01f3~" 

    ''recepto-zadanka       
    shell.SendKeys "{~}FTNRZ1 | 0222935 | LYNPARZA | 1 | 5706040032 | Abdalla Akbar Bc. | 63032 | Onkologie – onkologicka ambulance | 29.02.2024 | Rath Petr MUDr. | 43ba5fa8-043b-4e8e-a027-1c19e7087039~"

    '{ESC} = klavesa escape
    '{F9} = klavera F9 = zadani poukazu
    '{~} = klavesa enter
    '~ = klavesa tilda
    '{} rusi specialni funkci pro +/~/^ https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.sendkeys?view=windowsdesktop-8.0
    'odeslani enter je pro ceske prostredi spolehlive narozdil od {ENTER} ktere funguje jen v anglickem prostredi anglicke klavesnice