Как отловить вводимый в IE текст. Ошибки в коде препятствуют загрузке проекта

morgann55 · Регистрация: 09.02.2012

Студворк — интернет-сервис помощи студентам

VB 6.0 (Винд XP HE). Надо отловить вводимый в ИЕ текст. Нашёл такой пример:

------------------------------------------------------------------
1. Положите на форму таймер, поставьте интервал в 50
2. Добавьте в модуль:

Visual Basic
1
2
3
4
5
6
7
8
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Public Const VK_TAB = &H9 ' Константа для TAB key. 
' константы для других кнопок посмотрите в API вьювере
' Поместите в событие Timer: 
If GetAsyncKeyState(VK_TAB) And KEY_SHIFT = True Then
msgboх "Кто то трогает ТАБ", vbinformation
End If

------------------------------------------------------------------

Сделал стандартный проект, но он не хочет запускаться. Выдаёт следующее сообщение
"Constants,fixed-length strings,arrays,user-defined types and declare statements not allowed as public members of object modules"
Может мне надо чего-то добавить или галку где-нибудь поставить ???... Подскажите любителю!!

morgann55 · 09.02.2012, 21:12 **[ТС]**

Спасибо!!! Пошёл лепить прогу....

morgann55 · 10.02.2012, 14:37 **[ТС]**

А на русские буквы есть такие константы ? Или хотя бы на те клавиши, где русские стоят не на английских - [ ] ; ' , . (6 штук)

@Jason · 19.02.2012, 16:57

Ошибка.)

Новые блоги и статьи Все статьи Все блоги /
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .
сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	09.02.2012, 21:12 [ТС]
	Спасибо!!! Пошёл лепить прогу.... 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	10.02.2012, 14:37 [ТС]
	А на русские буквы есть такие константы ? Или хотя бы на те клавиши, где русские стоят не на английских - [ ] ; ' , . (6 штук) 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	19.02.2012, 16:57
	Ошибка.) 0