Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отключение Контрол альт дилит , альт ф4,контрол эскейп. / 25 сообщений из 33, страница 1 из 2
  1  все
14.04.2007, 19:09
    #34461319
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
Сабжь + а какие ещё клавные команды есть? и как их отключить? :-) (не для вируса. просто для интересу)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.04.2007, 10:45
    #34462647
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
Проще отключить клавиатуру совсем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.04.2007, 14:24
    #34463580
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
или поставить установку, которая реагирует на нажатия комбинаций,
и отрубает юзеру руки, чтобы в следующий раз такого не было
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.04.2007, 20:41
    #34464696
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
orunbek, а поконкретней? :D
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.04.2007, 21:29
    #34467865
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
куку у когонить есть свежая идейка??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.04.2007, 21:37
    #34467884
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
всё нашёл код. тока он отключает всю клаву ну кто сечёт и знает кейкод контрола альта и т.п. может их отключить

Dim Keyb As Boolean

Private Sub Command1_Click()
Keyb = Not Keyb
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Keyb = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Keyb Then
Else
KeyCode = 0
End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If Keyb Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Keyb Then
Else
KeyCode = 0
End If
End Sub

Private Sub Form_Load()
Keyb = True
End Sub



тему мона закрывать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.04.2007, 21:48
    #34467907
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
Этот код нифига не отключает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.04.2007, 21:57
    #34467920
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
а у меня работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 03:59
    #34468124
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
@TM@ROZчега у меня работает
Только если твоя форма в фокусе и всегда наверху.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 12:42
    #34469362
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
@TM@ROZчег, а что вы будете делать, если юзер кликнен правой клавишей мыши на таскбаре и вызовет диспетчер задач?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 20:37
    #34471116
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
так люди нью проблем. перестала работать кейкод = ноль. привожу полный текст проги. что не так


Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
Shift = 0
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
KeyCode = 0
Shift = 0
End Sub

Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Dim Ret As Long
Dim Trn As Byte
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
Trn = 1
SetLayeredWindowAttributes Me.hWnd, 0, Trn, LWA_ALPHA
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Button = 0
Shift = 0
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 20:39
    #34471124
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
всё равно котрол альт дилит и альт ф4 работает. может есть спецкод
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 20:43
    #34471132
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
Пойми, то что ты получаешь в событиях это сообщения системы посланные твоей форме и единственное что от тебя зависит - как ты бдуешь их обрабатывать. Не хочешь - не обрабатывай(именно это ты и делаешь) но отключить их для всей системы ты не можешь, для этого нужны глобальные хуки.


Magnus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 21:08
    #34471171
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
например
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 21:10
    #34471177
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
кста спс за допинфу. а я думал - что с помощью ВАСИКА можно вырубить всё что угодно простеньким(иногда и не совсем) образом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2007, 10:15
    #34471774
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
http://www.bash.org.ru/quote.php?num=160313
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2007, 19:10
    #34474052
@TM@ROZчег
@TM@ROZчег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
лана, тадысь придёца ваще кейборд вырубить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 09:57
    #34474941
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
@TM@ROZчеглана, тадысь придёца ваще кейборд вырубить
А что вы будете делать с этим ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 10:04
    #34474962
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
авторА что вы будете делать с этим? Хм... Указанный топик не найден.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 10:11
    #34475000
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
Сорри, еще раз.
@TM@ROZчег, а что вы будете делать, если юзер кликнет правой клавишей мыши на таскбаре, вызовет диспетчер задач и вырубит ваш процесс?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 11:34
    #34475356
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
А чем не нравится BlockInput?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 11:46
    #34475419
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
AndreyMpА чем не нравится BlockInput?
Кстати, именно то что надо.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Activate()
    DoEvents
    'block the mouse and keyboard input
    BlockInput True
    'wait 10 seconds before unblocking it
    Sleep  10000 
    'unblock the mouse and keyboard input
    BlockInput False
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 12:08
    #34475533
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
авторКстати, именно то что надо.
Ну, я подумал, что автор топика уж по API-Guide то пробежася хотя бы. Не говоря уж про то что бы перечитать инфу которую Гугл выдает по запросам "отключение клавиатуры" и "блокировка клавиатуры".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 12:11
    #34475551
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
Кстати, почему не работают randll32 keyboard,disable и randll32 mouse,disable ?
P.S. WinXP sp2.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2007, 12:43
    #34475682
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отключение Контрол альт дилит , альт ф4,контрол эскейп.
авторКстати, именно то что надо.
На самом деле BlockInput не перехватывает Ctrl+Alt+Delete и после нажатие на отмену прога теряет фокус и можно делать что угодно, хоть на клаве, хоть мышей. :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отключение Контрол альт дилит , альт ф4,контрол эскейп. / 25 сообщений из 33, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 370ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164156]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 1ms
others: 207ms
total:  370ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]