Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: ДИСПЕТЧЕР Добавлено: 31.01.08 20:12  

Автор вопроса:  Андрей | Web-сайт: students.vghost.ru
Вот интересно, есть ли код который либо блокирует сочетание клавишь, либо код при помощи которого я могу спрятать свою прогу в диспетчере программ (Ctrl+Shift+Esc). Может кто подскажет...

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 GeniX



ICQ: 418811267 

Вопросов: 40
Ответов: 243
 Web-сайт: porrygatter.zx6.ru
 Профиль | | #1
Добавлено: 31.01.08 22:01
'эта функция скрывает прогу от списка открытых программ
Private Declare Function RegisterServiceProcess Lib "kernel32.dll" (ByVal dwProcessId As Long, ByVal dwType As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long

Public Sub Vers()
'теперь об этом пункте. В зависимости от версии ОС используются
'разные способы скрытия программы от Task Manager
Dim V As OSVERSIONINFO, Success&, Junk$, Dummy$
    ;Dim WindowsVersion$, BuildVersion$, PlatformName$
    V.dwOSVersionInfoSize = Len(V)
    Success = GetVersionEx(V)
    WindowsVersion = V.dwMajorVersion & "." & V.dwMinorVersion
    BuildVersion = V.dwBuildNumber And &HFFFF&
    Select Case V.dwPlatformId
    Case VER_PLATFORM_WIN32_WINDOWS
'если Винды98 - используем API функцию
       If V.dwMinorVersion = 10 Then
            PlatformName = "Windows 98"
            RegisterServiceProcess GetCurrentProcessId, 1
       End If
'если 2000 или NT - внутреннюю функцию (в списке процессов она все таки будет видна:=((()
             Case VER_PLATFORM_WIN32_NT
        PlatformName = "Windows NT"
        App.TaskVisible = False
           End Select
End Sub

Вроде так

Ответить

Номер ответа: 2
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
 Web-сайт: domkratt.com
 Профиль | | #2
Добавлено: 31.01.08 22:15
в NT надо хукать Nt(Zw)QuerySystemInformation

Ответить

Номер ответа: 3
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #3 Добавлено: 01.02.08 02:10
см. примеры на этом сайте! Сначала нужно искать, а потом а форуме спрашивать...

Ответить

Номер ответа: 4
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
 Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #4
Добавлено: 01.02.08 11:54
Open "c:/windows/taskmaneger.Exe" for binary lock read #1
gde to tak.I vse nash dispetches na ctrl+alt+del ne otklikayetsa )

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам