Так и пиши какая ошибка, предупреждения можешь игнорить.

Так и пиши какая ошибка, предупреждения можешь игнорить.

Delphi-the best. Fuck off all the rest!

Так, я ту тему не читал, ты Trojan.Hosts пилишь? Если да - тут есть темка ка блочить сайты без использования файла hosts.

1)Переименую тему, это бл*дь не вирус, это ТРОЯН! 2)Убери свою быдлоподпись. 3)https://delfcode.ru/forum/10-724-1 - это пробовал?

1)Переименую тему, это бл*дь не вирус, это ТРОЯН! 2)Убери свою быдлоподпись. 3)https://delfcode.ru/forum/10-724-1 - это пробовал?

1)Переименую тему, это бл*дь не вирус, это ТРОЯН! 2)Убери свою быдлоподпись. 3)https://delfcode.ru/forum/10-724-1 - это пробовал?

Залей исходник, у меня все работает.

Лолка, это же Dll'ка , а ты ее запустить пытаешься!!! Из Dll'ок подгружать функции надо, а ты ее запустить пытаешься.

Лолка, это же Dll'ка , а ты ее запустить пытаешься!!! Из Dll'ок подгружать функции надо, а ты ее запустить пытаешься.

я не понимаю как правильно сделать. помоги.

что мне нужно делать?

Забрось это пока что, начни чуть позже

Забрось это пока что, начни чуть позже, тебе нужна теория,а ты нулевым уже писать трояны пошел. http://goo.gl/q8LNZU dll используются для подгрузки функций, вот тебе видеоурок откопал http://www.youtube.com/watch?v=sjsHj5HSLbw

Продвинутый

у меня готово, но не блокирует сайтвы

Зарегистрирован: 24.07.2011




Группа: Проверенные

Сообщений: 316

Репутация: 103  ±
Замечания: 0%
Статус: Online


view plaincopy to clipboardprint?[Совет] Project2.dpr(24): Value assigned to 'Nsend' never used    [Совет] Project2.dpr(43): Value assigned to 'NWSASend' never used    [Совет] Project2.dpr(24): Value assigned to 'Nsend' never used  
[Совет] Project2.dpr(43): Value assigned to 'NWSASend' never used
Не поверю, что так тяжко у тебя с английским... Цитатачто мне нужно делать? Загрузить данную библиотеку и дернуть функции из её экспорта. Цитата (Slash)Забрось это пока что, начни чуть позже Верная мысль! Если что, то в инете различных блокировщиков достаточно много. Гугл в помощь.

akatew, К чему такая кривая цитата?

program Injector;

uses
Windows, AdvApiHook;

const DLL_INJ = 'DLL Injector (HOOKS)';

type TShp = procedure (hk: HHOOK) stdcall;

procedure InjectDLLviaHOOKS(dll_name: string);
var
h: THandle;
p: pointer;
sh: TShp;
hk: HHOOK;
begin
h:=LoadLibrary(PAnsiChar(dll_name));
if h=0 then
begin
MessageBox(0, PAnsiChar('Не могу загрузить DLL '+dll_name+'!'), DLL_INJ, MB_OK+MB_ICONERROR);
exit;
end;
p:=GetProcAddress(h, 'HookProc');
@sh:=GetProcAddress(h, 'SetHK');
if ((p=nil) or (@sh=nil)) then
begin
MessageBox(0, PAnsiChar('Библиотека '+
dll_name+' не содержит необходимых процедур!'),
DLL_INJ, MB_OK+MB_ICONERROR);
FreeLibrary(h);
exit;
end;
hk:=SetWindowsHookEx(WH_CALLWNDPROC, p, h, 0);
if hk=0 then
begin
MessageBox(0, PAnsiChar('Невозможно установить ловушку!'),
DLL_INJ, MB_OK+MB_ICONERROR);
FreeLibrary(h);
exit;
end;
sh(hk);
MessageBox(0, 'Ловушка установлена! Нажмите OK для снятия.',
DLL_INJ, MB_OK);
UnhookWindowsHookEx(hk);
FreeLibrary(h);
end;

begin
InjectDLLviaHOOKS('inet.dll');
end.

99.9% Кто подписывается Pro,Xaker или еще как-то так - те либо дети, либо идиоты.

Я хотел спросить как блочить сайт чтобы если на него зашел и перекидывало на другой? у меня по мимо этого если я захожу в любой сайт с включенной прогой то у меня ошибка оперы выбивается.

Для этого есть файл hosts.

Лолка, это же Dll'ка , а ты ее запустить пытаешься!!! Из Dll'ок подгружать функции надо, а ты ее запустить пытаешься.

у меня нет выделенного IP

у меня нет выделенного IP

сервер пиши! Или покупай выделенный ip для сайта..

сервер пиши! Или покупай выделенный ip для сайта.. Чё то ты резко и сильно размахнулся, я сначало bat трояны учился писать, а ты сразу dll трояны (запустить кликом пытался))))

у меня нет выделенного IP

Отлично, только причем тут файл hosts?