Ctrl-Del-Alt

[-=alp=-]

Как сделать так чтобы мою программу не было видно в Ctrl-Del-Alt

[abra]

почитай. Там всё очень понятно с примерами

http://vbasic.by.ru/UnVisibleCAD.htm

[Amed]

Но этот код не будет работать в Windows XP и, возможно, Win'2000...
Microsoft заблокировала некоторые функции для большей безопасности... Такие, кстати, как ExitWindows и ExitWindowsEx с некоторыми параметрами...

[serix]

Наипростейший способ и везде работает: App.TaskVisible=False
И усё!!!!!!

[Amed]

Но это только для VB.NET, а есть ли способ для VB 5/6? ГурЫ, к вам вопрос

[serix]

Но это только для VB.NET, а есть ли способ для VB 5/6? ГурЫ, к вам вопрос

Как это для VB.NET? У меня VB6 и на нем все работает, и вообще кроме
TaskVisible в App есть еще много клевых фич...

[Alfa]

App всегда было хорошим. Но это работает и в XP. Правда в другом окне можно это найти. А вот Exit....... в VB работает.
Пос-Скриптум: почему все кто начинает работать с VB(WinSock в том числе) хочет(и пишет к сожелению) троян(вирус). Хотя я тоже с этого начинал

[Amed]

Пос-Скриптум: почему все кто начинает работать с VB(WinSock в том числе) хочет(и пишет к сожелению) троян(вирус). Хотя я тоже с этого начинал

Почему все? Я, например, вирусов не писал и не буду.

[Alfa]

Пос-Скриптум: почему все кто начинает работать с VB(WinSock в том числе) хочет(и пишет к сожелению) троян(вирус). Хотя я тоже с этого начинал

Почему все? Я, например, вирусов не писал и не буду.

Alfa удивлено смотрит(сказывается функция "/me" в mIRC) на Amed. "Вот совершенство"

[GoGosha]

Именно чтоб было невидно или чтоб нельзя было завершить?
Для того чтоб нельзя было завершить есть у меня одна идея, которая должна работать под любой операционкой

[Firestorm]

давайте ваще заблокируем ctrl-alt-del и alt-tab: :

Код: Выделить всё

  'ВАРИАНТ 1

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97&
Public Sub AllowKeys(bParam As Boolean)
Dim lRetVal As Long, bOld As Boolean
lRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, bParam, bOld, 0&)
End Sub
Private Sub Form_Load()
Call AllowKeys(True) 'блокировка сочетаний
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call AllowKeys(False) 'разблокировка сочетаний
End Sub

'ВАРИАНТ 2

'без дополнительной подпрограммы
'Добавьте два элемента CommandButton. Первая кнопка блокирует сочетание клавиш, вторая - разрешает.
Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Sub Command1_Click()
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, "1", 0)
End Sub
Private Sub Command2_Click()
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, "1", 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, "1", 0)
End Sub 


а может сделаем программу "бессмертной" :
http://azbukavb.narod.ru/practic/antiend.zip

или всётаки еще раз попробуем скрыть :
http://sharig.webzone.ru/category/progr ... om3key.htm