Ctrl alt Delete - как его выключить в ХР?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 12.08.2005 (Пт) 8:24

Мне тоже :)
Ассемблерные вставки, которые неизвестно на какой машине писались и отлаживались... Неее :)
Lasciate ogni speranza, voi ch'entrate.

Kovu
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 924
Зарегистрирован: 29.04.2005 (Пт) 17:38

Сообщение Kovu » 12.08.2005 (Пт) 11:16

Ну я тестил на WinXP SP2 и всё работало :D :D :D
Не хотите не надо ваше дело тока у мя всё в порядке после работы кода :twisted: :!:
Если всё делать своими ручками, они скоро отвалятся !

WERT-007
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 27.07.2005 (Ср) 15:10

Сообщение WERT-007 » 12.08.2005 (Пт) 15:20

Наивняк))

А в чем проблемы?
Код: Выделить всё
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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_CLOSE = &H10

Private Sub Timer1_Timer()
    hWnd = FindWindow(vbNullString, "Диспетчер задач Windows") 'Или как там у вас.
    If hWnd <> 0 Then
        SendMessage h, WM_CLOSE, 0, 0
    End If
End Sub

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 12.08.2005 (Пт) 15:22

WERT-007 писал(а):А в чем проблемы?

А сам подумать не можешь?
Даю подсказку: у некоторых имеются нелокализованные ОС. А некоторые даже умеют пользоваться командной строкой.
Lasciate ogni speranza, voi ch'entrate.

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 12.08.2005 (Пт) 15:24

WERT-007 писал(а):
Наивняк))

А в чем проблемы?
Код: Выделить всё
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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_CLOSE = &H10

Private Sub Timer1_Timer()
    hWnd = FindWindow(vbNullString, "Диспетчер задач Windows") 'Или как там у вас.
    If hWnd <> 0 Then
        SendMessage h, WM_CLOSE, 0, 0
    End If
End Sub



В ПРИБИВАНИИ ОКНА ВИНДУСОВСКОГО диспетчера задач - никакой!
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 12.08.2005 (Пт) 15:25

Хотя никто не мешает мне запустить свою форму с капшн
Диспетчер задач Windows, с соответсвующей обработкой.

Это я про качество твоего кода)))
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Kovu
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 924
Зарегистрирован: 29.04.2005 (Пт) 17:38

Сообщение Kovu » 12.08.2005 (Пт) 15:29

Какие вы недоверчивые АЖ ЖУТЬ :D
Если всё делать своими ручками, они скоро отвалятся !

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 12.08.2005 (Пт) 15:35

Kovu писал(а):Какие вы недоверчивые АЖ ЖУТЬ :D


Решение нужно глобальное, а не ситуативное...
щя у тебя пошло, а завтра - нет, а када это сбойнёт у заказчика, то в асме ковырятся будет? Тел оставишь в 4 часа ночи позвонить(в течении 2 месяцев)? Нет? Я тоже так думаю. Поэтому чёрный ящик не годиться...
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

WERT-007
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 27.07.2005 (Ср) 15:10

Сообщение WERT-007 » 12.08.2005 (Пт) 16:18

Ну а может тогда отключить WFP и аккуратно пропатчить taskmgr на незапуск?

Monax
Начинающий
Начинающий
 
Сообщения: 10
Зарегистрирован: 10.08.2005 (Ср) 11:13
Откуда: Ukrain

Сообщение Monax » 12.08.2005 (Пт) 16:37

Если с этим неполучаеться тогда подскажите хотябы как скрыть прогу от диспечера задач !!!!

WERT-007
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 27.07.2005 (Ср) 15:10

Сообщение WERT-007 » 12.08.2005 (Пт) 16:43

А тебе обязательно надо скрыть ее? А может обозвать ее, например lsass.exe, и тогда закрыть ее через taskmgr не получится. (Но taskkill все равно ее прибьет) :roll:

max-aziat
Обычный пользователь
Обычный пользователь
 
Сообщения: 98
Зарегистрирован: 13.06.2005 (Пн) 13:41
Откуда: Таджикистан

Сообщение max-aziat » 15.08.2005 (Пн) 14:54

могу помоч чтоб в списке процессов твою прогу не показывало
и в task meneger-е его не отоброжало

а ты знаеш как в 2000 wind-e это сочетание не работало я знаю как в 98 но в под 2000 он не работает . а про xp я тоже пытался но нечего не вышло. если узнаеш то мне на мыло скинь,буду презнателен.
не всё сразу дается ...

hohol_kz
Обычный пользователь
Обычный пользователь
 
Сообщения: 90
Зарегистрирован: 05.08.2005 (Пт) 6:21

Сообщение hohol_kz » 16.08.2005 (Вт) 9:24

Если сложно сделать глобальное отключение этого сочетания, то предлагаю сделать его видимость:
1. Для начала опросить систему, какой она версии и если необходимо, то обрабатывать в зависимости от этого.
2. Временно отключать заставку, всякие засыпания и прочее, что может блокировать комп и требует Ctrl+Alt+Delete для деблокировки.
3. Прибивать окошко, которое появляется при нажатии сочетания, для ХР - "Безопасность Windows", передавая ему нажатие кнопки "Отмена" (ESC).
4. По завершении программы все настройки возвращать на место.

Результат: Винда спокойно обрабатывает Ctrl+Alt+Delete как обычно, пользователь об этом не подозревает и честно тыкает Ctrl+Alt+Delete, но обламывается.
В принципе, все это на обычного пользователя. Значит и слишком сложное не надо придумывать. А спец все одно порешит программу как ему приглянется.

Если хочешь воплотить все свои фантазии по управлению компом - пиши свою операционку :lol:.
Кстати, так и не понятно, насколько вообще серьезная необходимость во всем этом? Если бы рассказал об этом подробнее, то может народ подсказал бы какой другой способ по проще.
На правах саморекламмы: "Кофейник" - это тот же "чайник", только круче.

ALX_2002
Мега гуру
Мега гуру
 
Сообщения: 2054
Зарегистрирован: 25.11.2002 (Пн) 20:03

Сообщение ALX_2002 » 17.08.2005 (Ср) 1:01

YYYEEEHAAA ( Резко влетает влетает в форум ) ! Я СМОГ ЭТО СДЕЛАТЬ !!!

ОНИ НЕ РАБОТАЮТ ! НЕ РАБОТАЮТ !!!!! СЛАВА ВЕЛИКОМУ БИЛЛИ ГЕЙТСУ !!! :x :x :x

А ВСЕГО ТО ПОНАДОБИЛСЯ 1 ТЮБИК КЛЕЯ СУПЕР-МОМЕНТ !!! :evil: :evil: :x :x :x

(Бешенно уносится, с хохотом...)



Уффф.... ну и приснится же такое... :shock: :shock: :shock:

hohol_kz
Обычный пользователь
Обычный пользователь
 
Сообщения: 90
Зарегистрирован: 05.08.2005 (Пт) 6:21

Сообщение hohol_kz » 17.08.2005 (Ср) 7:34

Да ты у нас Александр Македонский!!! :)
Конкретно узлы рубишь...

А что, тоже выход! Можно, чтобы юзер чего не на порол, вообще к клаве его не подпускать. Принимать письменные заявки и самому все тыкать паЛцами. А ему только монитор показывать. Да и то лучше издалека и в видеозаписи или фотографиях, чтобы не разбил или не сглазил
:D
На правах саморекламмы: "Кофейник" - это тот же "чайник", только круче.

Пред.

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 14

    TopList