Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#31: 2007-11-09 17:30:11 ЛС | профиль | цитата
=(
Есть Локольная сеть - связь между компьютерами продключёнными к одному провайдеру.
Есть Глобальная сеть - связь между компьютерами продключёнными по всему миру.
Вот мне надо если глобальная непашет то чтобы работать с TCP\IP всёравно можно было.
Установленный в стандартном пакете TCP\IP сервер и клиент не пашет по локальной сети!
Так есть компонент для работы с локальной сетью?
И заодно ещё вопрос есть ли компонент для скрытия процесса родительской программы в диспечере задач? Я знаю что данная функция возможна в Delphi но можно ли сделать компонент в HiAsm?
Вот исходник:

#pas
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
begin
Yield;
end;
Помогите люди добрые может кто нибуть сделает компонент. Буду ждать!
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#32: 2007-11-09 17:43:06 ЛС | профиль | цитата
Гость писал(а):
если глобальная непашет

как же может не пахать сеть из миллионов компьютеров?

Гость писал(а):
Установленный в стандартном пакете TCPIP сервер

нет такого элемента. TCPIP - это протокол, поверх которого работают TCP и UDP.

Гость писал(а):
сервер и клиент не пашет по локальной сети!

доказательство где?

Гость писал(а):
Я знаю что данная функция возможна в Delphi но можно ли сделать компонент в HiAsm?

элемент InlineCode

PS: код вставляем в соответствующие теги Код
карма: 27
0
Ответов: 563
Рейтинг: 54
#33: 2007-11-09 18:04:41 ЛС | профиль | цитата
спасибо конечно но чё писать в компонент InlineCode непонял!
что конкретно написать в компонент имея код:
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#34: 2007-11-09 18:29:29 ЛС | профиль | цитата
Уважаемый г-н bublik, если вы предпочитаете читать в ответах на ваши вопросы только то, что интересно вам - эта беседа окончится ничем. Еще раз:
Dilma писал(а):
PS: код вставляем в соответствующие теги Код

карма: 27
0
Ответов: 563
Рейтинг: 54
#35: 2007-11-09 18:34:59 ЛС | профиль | цитата
Dilma, да там них..я непонятно! написали бы лучше пример исходного кода и готовый пример того как его надо записывать и всё было бы ясно что куда! Чё за тупизна в самом то деле?
карма: 0

0
Разработчик
Ответов: 26109
Рейтинг: 2124
#36: 2007-11-09 18:45:53 ЛС | профиль | цитата
Dilma, эту фичу по скрытию процесса можно воткнуть EnumProcess
карма: 22

0
Ответов: 9906
Рейтинг: 351
#37: 2007-11-09 19:29:24 ЛС | профиль | цитата
nesco писал(а):
эту фичу по скрытию процесса

Пальцем покажи, пожалуйста
карма: 9

0
Разработчик
Ответов: 26109
Рейтинг: 2124
#38: 2007-11-09 21:01:17 ЛС | профиль | цитата
Galkov, да я вот про это

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
карма: 22

0
Ответов: 9906
Рейтинг: 351
#39: 2007-11-09 21:19:14 ЛС | профиль | цитата
А я про то, что НЕТ такой буквы в этом слове

Ну хочется ляпнуть что-то, да на здоровье... Но проверь же, блин
Загляни в msdn про эту ф-ию, наконец.
карма: 9

0
файлы: 1galkov2.gif [4.5KB] [442]
Разработчик
Ответов: 26109
Рейтинг: 2124
#40: 2007-11-09 22:05:13 ЛС | профиль | цитата
Galkov, да не ругайся ты. Я еще не успел провеить, что это такое. Те, хотел сказать -- если она действительно будет выполнять такое действие, как описано, то можно добавить, а если это -- муть, то звэняйте... Ну поторопился не проверив ляпнуть, приношу извинения
карма: 22

0
Ответов: 9906
Рейтинг: 351
#41: 2007-11-09 22:20:46 ЛС | профиль | цитата
nesco, два простых вопроса:

1) чего будет, если запустить такое

#sha
Add(InlineCode,14601626,91,105)
{
WorkPoints=#3:AAA|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|38: procedure AAA(var D:TData;i:word);|5: end;|0:|14:implementation|0:|63:var P:function(dwProcessID, dwType: Integer): Integer; stdcall;|0:|46:procedure THiAsmClass.AAA(var D:TData;i:word);|5:begin|82: @P := GetProcAddress(GetModuleHandle('KERNEL32.DLL'), 'RegisterServiceProcess');|43: if @P<>nil then P(GetCurrentProcessID, 1)|14: else _debug;|4:end;|0:|0:|4:end.|
}
2) сам не мог что ли такое написать
карма: 9

0
Администрация
Ответов: 15295
Рейтинг: 1519
#42: 2007-11-09 22:45:24 ЛС | профиль | цитата
bublik писал(а):
Чё за тупизна в самом то деле?

вот и я такого же мнения...

nesco, давно уже пора запомнить, что в Windows никогда не было, нет и никогда не будет функций, скрывающих процессы, прячущих приложения из TaskBar, убивающих систему и т.д. и т.п. RegisterServiceProcess - даже из названия понятно назначение ф-ции и почему после её вызова приложение не будет отображена на первой вкладке диспетчера задач. Но на второй оно все равно останется. А после этого лезем в MSDN и просвящаемся по поводу того, какие неожиданные проблемы появятся у пользователя, скрывающего процессы подобным образом... Там все прекрасно описано
карма: 27
0
Разработчик
Ответов: 26109
Рейтинг: 2124
#43: 2007-11-09 23:31:21 ЛС | профиль | цитата
Да, действительно, RegisterServiceProcess нет в Nt/2000/XP. Вы уже, видимо, сталкивались с этой проблемой.
Dilma писал(а):
nesco, давно уже пора запомнить
Уже запомнил
карма: 22

0
Ответов: 9906
Рейтинг: 351
#44: 2007-11-09 23:51:38 ЛС | профиль | цитата
nesco писал(а):
Вы уже, видимо, сталкивались с этой проблемой

Да по другому все... Не сталкивались (ну не был я этим озабочен).
Просто лезем в msdn ДО того, как писать, а не ПОСЛЕ....
Это во-первых


А во-вторых, рискну быть не оригинальным, и повториться.
Был такой топик - поищи
Краткое содержание топика:
а) сокрытие процессов основано дырах в оси
б) нафиг нужно напрягаться, чтобы все это пошло в мусор после очередного патча, или сервис-пака


А в третьих, зачем мы все это говорим
К твоим словам на форуме прислушиваются. Это есть факт, и уже совершенно не важно: как и почему это происходит, и хочешь ли (или нет) ты этого.
СЛЕДОВАТЕЛЬНО, ну как-то по-взрослее надо, только и всего
Собственно, свое понимание, что такое "по-взрослее" - мы и пытаемся тебе изложить
карма: 9

0
Разработчик
Ответов: 26109
Рейтинг: 2124
#45: 2007-11-09 23:55:45 ЛС | профиль | цитата
Galkov писал(а):
нафиг нужно напрягаться, чтобы все это пошло в мусор после очередного патча, или сервис-пака

Вспомнил, была такая тема (увы, забыл )
Galkov писал(а):
СЛЕДОВАТЕЛЬНО, ну как-то по-взрослее надо, только и всего

Буду стараться. Действительно, осторожней надо быть с высказываниями, а я все куда-то тороплюсь. Каюсь, есть такой грешок
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)