| Вопрос: Помогите! Что с этим делать дальше? | Добавлено: 22.01.11 23:02 |
Автор вопроса:  Stepan Zavarzin
|
|
Только вчера узнал, что бывает VBScript, но... )))
Пишу гаджет. Хочу узнавать раскладку клавиатуры. Нашел это: Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Private Sub Form_Load() Dim KeybLayoutName As String KeybLayoutName = String(9, 0) GetKeyboardLayoutName KeybLayoutName 'Номер 409 - английская, 419 - русская MsgBox "Текущая раскладка номер " & CStr(CLng(Left$(KeybLayoutName, _ InStr(1, KeybLayoutName, Chr(0)) - 1))) End Sub Но как это с HTML связать. Пробую и так и так. Постоянно выдает ошибку 800А0400. Предполагается наличие инструкции. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | Цитата | #1 | Добавлено: 23.01.11 00:14 |
| VBScript не предполагает использование API функций. | ||
Страница: 1 |