| Вопрос: Пряча процесса | Добавлено: 07.06.08 13:12 |
Автор вопроса:  Yanex | Web-сайт: Progr.Do.am | ICQ: 387761649 |
| Ответы | Всего ответов: 23 |
|
Номер ответа: 16 Автор ответа:  Yanex ICQ: 387761649 Вопросов: 32 Ответов: 169 |
Web-сайт: Профиль | | #16 | Добавлено: 11.06.08 09:40 |
Этот модуль как-то юзается странно... Я хотел спрятать процесс, а он мне вместо этого заблочил весь Process Manager  При открытии - "программа совершила недопустимую операцию".
Чисто Русская Защита
|
||
|
Номер ответа: 17 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #17 | Добавлено: 11.06.08 10:14 |
| Вроде как sne оставил дырку, чтобы кто попало VBPhantom не юзал. | ||
|
Номер ответа: 18 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #18 | Добавлено: 11.06.08 10:23 |
|
Это ты его чисто по-русски использовал
А у нас в Ершалаиме и диспетчер задач запускается и работает и нигде ничего невидно. |
||
|
Номер ответа: 19 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #19 | Добавлено: 11.06.08 10:25 |
|
++Sharp |
||
|
Номер ответа: 20 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #20 | Добавлено: 11.06.08 19:38 |
|
Глянь ассемблерный код либы и поправь где надо
Еще раз повторяю, что способ не самый лучший... |
||
|
Номер ответа: 21 Автор ответа: Mc.WOLF Вопросов: 26 Ответов: 84 |
Профиль | | #21 | Добавлено: 15.06.08 12:50 |
| Тут интиресная штука получается восновном все исходники и примеры подходят только для Windows98 а вот тибе пример который сам опредиляет какой у тебя Windows и скрывает и процесов | ||
|
Номер ответа: 22 Автор ответа: Mc.WOLFВопросов: 26 Ответов: 84 |
Профиль | | #22 | Добавлено: 15.06.08 12:50 |
|
Public Sub Vers()
'теперь об этом пункте. В зависимости от версии ОС используются 'разные способы скрытия программы от Task Manager Dim V As OSVERSIONINFO, Success&, Junk$, Dummy$  im 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 |
||
|
Номер ответа: 23 Автор ответа: Mc.WOLFВопросов: 26 Ответов: 84 |
Профиль | | #23 | Добавлено: 15.06.08 12:51 |
| Пользуйся наздорове | ||