Flasher
|
 Posted: Wed May 03, 2017 17:48 Post subject: |
 |
|
Короче говоря, вариант в моих условиях нерабочий. Язык по Alt+Shift не переключается ни так ни эдак:
| Code: | CreateObject("WScript.Shell").SendKeys "%+"
'CreateObject("WScript.Shell").SendKeys "+{ALT}"
'CreateObject("WScript.Shell").SendKeys "%{SHIFT}" |
А так весь скрипт это:
| Code: | With CreateObject("WScript.Shell")
.SendKeys "+{Left}{Home}cd {Left}+{Home}^c"
If CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text") = "cd" Then _
.SendKeys "{End}" : WSH.Quit
Select Case .RegRead("HKCU\Keyboard Layout\Toggle\Hotkey")
Case 1 HK = "+%" : Case 2 HK = "^+" : Case 4 HK = "`"
End Select : .SendKeys HK & "{Del}cd {End}"
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
