Имитация нажатия нескольких кнопок crazy

[mark+]

Так, попробую объяснить проблему:
Имеется программа блокнот. Чистая, только, что открыл. Имеется форма. На форме не имеется ни одного объекта, умеющего ловить фокус. Я нажимаю кнопку, форма (даже если свернута и неактивна) ловит, нажатие ЭТОЙ кнопки и эмулирует нажатие нескольких кнопок. Ловить кнопки я научился, а вот подскажите, как имитировать нажатие нескольких кнопок. То есть, скажем, я нажал плюсик на малой цифровой клавиатуре, а моя программа вставила в блокноте текущую дату и время (я конечно знаю, что есть команда .LOG, это просто пример).

P.S. Что я только не пробовал: (использование виртуальных клавиш, посылание чужой проги (Блокнота) на... SendMessage, keybd_event...) - не помогает. СПАСИБО, если кто откликнется.

[_Мика_]

Короче все очень просто (если я все правельно понял)

Юзай GetAsyncKeyState '(посмотрешь как она объявляется)

у таймера ставиш Interval на 10
и в перед

Privaye Sub Timer1_timer()

if getAsyncKeyState(vbKeyF12) then

SendKeys "{H}"
SendKeys "{e}"
SendKeys "{l}"
SendKeys "{l}"
SendKeys "{0}"
SendKeys "{!}"

end Sub

[_Мика_]

Ой не увидел P. S.

Но у меня так работает

[mark+]

Спасибо. А еще есть варианты?

[_Мика_]

У тебя как ой Wind

если хочеш могу проект написать и выложить сюда моим способом (у меня XP и все работает)

[mark+]

Нет, проект не надо. Я нашел приличный способ. Но есть БОЛЬШАЯ ПРОБЛЕМА:
Может у кого есть полный листинг всех vbKey'сов.
У меня есть:
vbKey для букв A-Z
vbKey для цифр 0-9
vbKey для нумпадовых цифр (сам допер)
vbKey для F1-F24
vbKeySpace (сам допер)
vbKeyDivide (сам допер)
vbKeyAdd (сам допер)
И всё. А для проги треба и все остальные батоны. Заранее БАЛЬСОЙ спасибо.
P.S. Похоже, что VB уникален.

[_Мика_]

0-
1-

2-
3-
4-
5-
6-
7-
8-
9-
10-

11-
12-
13-

14-
15-
16-
17-
18-
19-
20-
21-
22-
23-
24-
25-
26-
27-
28-
29-
30-
31-
32-
33-!
34-"
35-#
36-$
37-%
38-&
39-'
40-(
41-)
42-*
43-+
44-,
45--
46-.
47-/
48-0
49-1
50-2
51-3
52-4
53-5
54-6
55-7
56-8
57-9
58-:
59-;
60-<
61-=
62->
63-?
64-@
65-A
66-B
67-C
68-D
69-E
70-F
71-G
72-H
73-I
74-J
75-K
76-L
77-M
78-N
79-O
80-P
81-Q
82-R
83-S
84-T
85-U
86-V
87-W
88-X
89-Y
90-Z
91-[
92-\
93-]
94-^
95-_
96-`
97-a
98-b
99-c
100-d
101-e
102-f
103-g
104-h
105-i
106-j
107-k
108-l
109-m
110-n
111-o
112-p
113-q
114-r
115-s
116-t
117-u
118-v
119-w
120-x
121-y
122-z
123-{
124-|
125-}
126-~
127-
128-Ђ
129-Ѓ
130-‚
131-ѓ
132-„
133-…
134-†
135-‡
136-€
137-‰
138-Љ
139-‹
140-Њ
141-Ќ
142-Ћ
143-Џ
144-ђ
145-‘
146-’
147-“
148-”
149-•
150-–
151-—
152-

[val]

Ерундой не занимайся. Открой MSDN и посмотри.

[A.A.Z.]

Набери в Immediate (Немедленно) или в коде "VBRun.vbKey", далее будет список.

[mark+]

Всем спасибо! Все свободны!
Эй, модераторы, форум можно закрывать! Вопросов по этой проблеме больше пока нет.