Как отправить Alt + пробел в окно консоли? - PullRequest
0 голосов
/ 11 августа 2011
import win32com.client
shell = win32com.client.Dispatch("WScript.Shell")
shell.AppActivate("Command Prompt")
shell.SendKeys("%{ }")               # This
#shell.SendKeys("% ")                # and this
#shell.SendKeys("%( )")              # and this is not working

WScript не является обязательным, вы можете предложить любое программное решение.

Ответы [ 2 ]

0 голосов
/ 24 июля 2013

Я думаю, что это ошибка в Windows.Вот пример, где в блокноте работает «%», а в CMD - нет:

    ' SendKeys.vbs  Example Script
    ' VBScript to send keyboard strokes to command prompt and notepad
    ' --------------------------------------------------------'
    Option Explicit

    Dim objShell, WshShell
    set objShell = CreateObject("WScript.Shell")
    objShell.Run("cmd")
    objShell.AppActivate("Command Prompt")
    WScript.Sleep 500
    objShell.SendKeys "notepad~"
    WScript.Sleep 500
    ' It works
    objShell.SendKeys "% x"
    WScript.Sleep 200
    objShell.SendKeys "% r"
    WScript.Sleep 200
    objShell.SendKeys "%v"
    WScript.Sleep 200
    objShell.SendKeys "s"
    WScript.Sleep 200
    objShell.SendKeys "Algo{Enter}"
    WScript.Sleep 500
    objShell.SendKeys "%{TAB}"
    WScript.Sleep 500
    objShell.SendKeys "dir~"
    WScript.Sleep 500
    'Does not work
    objShell.SendKeys "% es"
    WScript.Sleep 3500
    objShell.SendKeys "{BACKSPACE}{BACKSPACE}Exit~"
    WScript.Sleep 3500
    objShell.SendKeys "%fx"
    WScript.Sleep 500
    objShell.SendKeys "{TAB}~"

    WScript.Quit
    '  End of SendKeys Example Script
0 голосов
/ 12 августа 2011

Требуются коды сканирования (56 и 57):

from win32api import *
from win32con import *
keybd_event(VK_LMENU, 56, 0, 0)
keybd_event(VK_SPACE, 57, 0, 0)
keybd_event(VK_SPACE, 57, KEYEVENTF_KEYUP, 0)
keybd_event(VK_LMENU, 56, KEYEVENTF_KEYUP, 0)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...