раскладка клавиатуры по умолчанию

artem_ · Отправлено: **13:43, 13-01-2009** | #4

Код:

'---------------------------------------------------
'процедура по настройке параметров клавы по ум
Sub SetDeffLangSettings()
  Set WshShell = CreateObject("WScript.Shell")

  WshShell.RegWrite "HKEY_CURRENT_USER\Keyboard Layout\Toggle\Hotkey","2"
  WshShell.RegWrite "HKEY_CURRENT_USER\Keyboard Layout\Toggle\Language Hotkey","2"
  WshShell.RegWrite "HKEY_CURRENT_USER\Keyboard Layout\Toggle\Layout Hotkey","3"

  WshShell.RegWrite "HKEY_CURRENT_USER\Keyboard Layout\Preload\1","00000409"
  WshShell.RegWrite "HKEY_CURRENT_USER\Keyboard Layout\Preload\2","00000419"  
End Sub

'------------------------------------------------------------------------------------------
Call SetDeffLangSettings()
WScript.Quit