ПРОБЛЕМА В WINXP

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
МАРАТ
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 13.12.2003 (Сб) 16:52

ПРОБЛЕМА В WINXP

Сообщение МАРАТ » 13.12.2003 (Сб) 16:56


ПОМОГИТЕ СКРЫТЬ ПРОГУ В WINXP[/code]

hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 13.12.2003 (Сб) 17:04

Хммм... Полностью :?: :?: :?:

Насколько мне известно, это нереально. Защита пуленепробиваемая стоит. Вот сделать прогу неудаляемой из списка "Процессы" в Диспетчере задач XP - запросто, переименовываешь exe-шник в "CSRSS.EXE", и никто тебя не трогает.

С Win9x используй этот код для полного скрытия программы из всех списков задач :P:

Код: Выделить всё
Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Sub MakeMeService()
    Dim pid As Long, reserv As Long
    'Get the current process ID
    pid = GetCurrentProcessId()
    'Register as service
    regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Public Sub UnMakeMeService()
    Dim pid As Long, reserv As Long
    'Get the current process ID
    pid = GetCurrentProcessId()
    'Unregister as service
    regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    MakeMeService
    'Right now, you're program is hidden from the CTRL-ALT-DEL-list
End Sub
Private Sub Form_Unload(Cancel As Integer)
    UnMakeMeService
End Sub


И еще: поищи по форуму - этот вопрос неоднократно обсуждался. Удачи :wink:
Моду создают модоки, а распространяют модозвоны.

МАРАТ
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 13.12.2003 (Сб) 16:52

WIN XP

Сообщение МАРАТ » 13.12.2003 (Сб) 23:21

ДА КАК СКРЫТЬ В 9Х ТОЖЕ ЗНАЮ
ТВОЙ СОВЕТ НАСЧЕТ ХР ТОЖЕ ПОПРОБУЮ
НЕПЛОХО ПОЛУЧАЕТСЯ И С "SERVICES.EXE"
ДА НО КАК СКРЫТЬ ЕГО С ВКЛАДКИ "ПРИЛОЖЕНИЯ" В МЕНЕДЖЕРЕ

goro
Постоялец
Постоялец
 
Сообщения: 494
Зарегистрирован: 03.12.2002 (Вт) 11:45
Откуда: Украина, Запорожье

Сообщение goro » 14.12.2003 (Вс) 1:52

app.taskvisible=false
ПРЕВЕД


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

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

Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 4

    TopList