| Вопрос: Кнопка типа нажата!!! | Добавлено: 24.07.06 13:35 |
Автор вопроса:  avdey | ICQ: 219571279 |
|
Гууд морнинг програмеры)))
Искал везде, но то что нужно не могу найти...((( Я знаю хендл кновки в окне и мне нужно на нее послать нажатие клавиши Enter... SendKeys как-то не по програмерски... Прошу помогите... |
| Ответы | Всего ответов: 15 |
|
Номер ответа: 1 Автор ответа:  AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #1 | Добавлено: 24.07.06 13:47 |
| Именно послать <VK_RETURN> или сделать SendMessage(WM_CLICKED)? | ||
|
Номер ответа: 2 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 24.07.06 13:51 |
|
Видимо нужен именно Enter. Ну что-то вроде того
Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_KEYDOWN = &H100 Private Sub Command1_Click() SendMessage Command2.hwnd, WM_KEYDOWN, vbKeyReturn, ByVal 0 End Sub Private Sub Command2_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox KeyCode End Sub |
||
|
Номер ответа: 3 Автор ответа: avdey ICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #3 | Добавлено: 24.07.06 14:01 |
|
Значит SendMessage hwnd, VK_RETURN...
А что такое SendMessage(WM_CLICKED)? У VK_RETURN какое значение? Там помоему должны быть отпускание и нажатие клавиши... |
||
|
Номер ответа: 4 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #4 | Добавлено: 24.07.06 14:02 |
|
2LOL
Большое спасибо!!!! |
||
|
Номер ответа: 5 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #5 | Добавлено: 24.07.06 14:16 |
|
2LOL
Хотя, не большое, но спасибо))) Не хочет че то работать... Ну да ладно поковыряюсь еще. А можно как-то клаву заблокировать навремя? |
||
|
Номер ответа: 6 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #6 | Добавлено: 25.07.06 12:56 |
|
SendKeys как-то не по програмерски...
Еще как по программерски! Если не нравится то, что оно иногда не работает - вставь в прогу такой код: Private Sub Form_Load()
Randomize SendKeys Str(Int(Rnd * 1000)) End Sub И все будет работать |
||
|
Номер ответа: 7 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #7 | Добавлено: 25.07.06 13:10 |
|
SendKeys Str(Int(Rnd * 1000))
Мда... Перебирать все клавиши............... |
||
|
Номер ответа: 8 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #8 | Добавлено: 25.07.06 13:24 |
|
Я че то не понял. Как нажать Enter на кнопку я написал в ответе номер 2. Код рабочий 100%. Другое дело чего ты хоетл добиться. Может тебе надо че-нить вроде этого
Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) SendMessage Command2.hwnd, WM_LBUTTONDOWN, ByVal 0, ByVal 0 End Sub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SendMessage Command2.hwnd, WM_LBUTTONUP, ByVal 0, ByVal 0 End Sub  )
|
||
|
Номер ответа: 9 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #9 | Добавлено: 25.07.06 13:47 |
|
2LoL
ВОТ ТО ЧТО НАДО!!!!!!!!!))))))))))))))))) Огромное спасибо!!!!!!!! Даешь ей хендл кнопки, и она нажимается, а потом "отжимается"... и все работает!!! И еще вопрос на засыпку, можно ))))) Как можно заблокировать клаву, чтобы винда не реагировала на нее? |
||
|
Номер ответа: 10 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #10 | Добавлено: 25.07.06 15:17 |
|
Как можно заблокировать клаву, чтобы винда не реагировала на нее? Самый простой и надежный способ - залить её пивом. Проверено не раз - результат отменный )
|
||
|
Номер ответа: 11 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #11 | Добавлено: 25.07.06 15:26 |
|
По правде, не люблю помогать вирусописателям )
Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long Private Sub Command1_Click() BlockInput 1 Sleep 5000 BlockInput 0 End Sub Утешает то что Ctrl+Alt+Del снимают блокировку как нех... |
||
|
Номер ответа: 12 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #12 | Добавлено: 25.07.06 16:13 |
|
Вирусы я не пишу!!!!!!!!
Просто когда выхожу курить, лезут всякие "коллеги" по работе в комп, а потом смотришь: 800 файлов зараженных, Прокся вырублена........... |
||
|
Номер ответа: 13 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #13 | Добавлено: 25.07.06 16:15 |
|
Вирусы я не пишу!!!!!!!!
Просто когда выхожу курить, лезут всякие "коллеги" по работе в комп, а потом смотришь: 800 файлов зараженных, Прокся вырублена........... Вот и решил прогу для блокировки компа написать... Спасибо за код, поюзаю.))))) |
||
|
Номер ответа: 14 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #14 | Добавлено: 25.07.06 16:17 |
|
Долбаный ИНЕТ!!!!!!!!!!!!
Пивом пробовал... не помогает... пара клавиш все равно работает))))))))))) |
||
|
Номер ответа: 15 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #15 | Добавлено: 25.07.06 16:49 |
|
2LOL
Млин, твой код мышь тоже блокирует...(((( Мне енто не подходит, мне только клаву надо заблокировать... Спасибо и на этом! |
||
Страница: 1 |