DrShark
|
Posted: Sun Apr 30, 2017 18:01 Post subject: |
|
|
У меня просьба помочь с адаптацией скрипта под следующую задачу.
Нужна принудительная установка английской раскладки в командной строке TC, для дальнейшей вставки команд (напр. CD) с помощью SendKeys.
Попробовал приспособить скрипт для этой цели, сократив нижнюю часть скрипта (после Select Case Language ... End Select) так:
Code: | ' Установка фокуса на TC cmdline:
WSH.SendKeys "{Right}{Home}"
' Вычисляем требуемое кол-во нажатий хоткея переключения раскладки:
' If RUS = 1 Then Count = 0 Else Count = Lang - 1
If ENG = 1 Then Count = 0 Else Count = Lang - 1
' Нажимаем хоткей смены языка нужное число раз:
If Count Then : For n = 1 To Count : WSH.SendKeys HK : Next : End If
' Выгружаем скрипт:
Set Dict = Nothing : Set WSH = Nothing : WScript.Quit |
Но в таком виде скрипт не меняет раскладку, т.к. похоже не получает текущую раскладку окна TC. _________________ "the light is coming to give back everything the darkness stole"
—©@AG4
Last edited by DrShark on Sun Apr 30, 2017 22:46; edited 1 time in total |
|