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

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 346 из 677

346

Опции темы

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

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

#3451

27.04.2009, 23:12

PAXAn

Новичок

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

Сообщений: 29

Провел на форуме:
221810

Репутация: 3

через OLE

#3452

27.04.2009, 23:28

slesh

Reservists Of Antichat - Level 6

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

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

Провел на форуме:
3288241

Репутация: 3349

Отправить сообщение для slesh с помощью ICQ

ну тогда типа такова:

Код:

var
   Word: OLEVariant;
begin
 Word:=CreateOleObject('Word.Application');
 Word.Documents.Add;
  Word.Selection.Font.Name:='Times New Roman';
  Word.Selection.Font.Size:=12;
  Word.Selection.Font.Bold:=True;
  Word.Selection.ParagraphFormat.Alignment :=1;
  Word.Selection.TypeText('Вставляемый текст');
// меняем стиль
  Word.Selection.Font.Italic:=True;
  Word.Selection.TypeText('Вставляем текст');
  Word.ActiveDocument.SaveAs('c:\2.doc');

И так далее по аналогии.

#3453

27.04.2009, 23:33

slesh

Reservists Of Antichat - Level 6

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

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

Провел на форуме:
3288241

Репутация: 3349

а. забыл. дестрой незабывай делать, а то процес ворда будет висеть в памяти.
Word.Quit;

#3454

27.04.2009, 23:51

PAXAn

Новичок

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

Сообщений: 29

Провел на форуме:
221810

Репутация: 3

Спасибо большое.

#3455

28.04.2009, 08:44

Pasha_777

Новичок

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

Сообщений: 5

Провел на форуме:
18684

Репутация: 0

решено)))

Последний раз редактировалось Pasha_777; 05.05.2009 в 22:06..

#3456

28.04.2009, 09:08

slesh

Reservists Of Antichat - Level 6

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

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

Провел на форуме:
3288241

Репутация: 3349

по логике когда ты делаеш WebBrowser2.Navigate('about',Dummy,Dummy,Dummy, Headers);
то реферер всталяется у тебя уже для документа about. А если ты от туда уже пойдеш дальше то реферер будет уже about но браузер просто его не будет вставлять.

#3457

28.04.2009, 09:24

Pasha_777

Новичок

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

Сообщений: 5

Провел на форуме:
18684

Репутация: 0

Так похоже и происходит, но как вставить реферер papa.ru
Если поменять 'about' на 'papa.ru', то для первого счетчика на страничке реферер будет papa.ru,
а для всех остальных запросов - его не будет вообще.
Т.е. это работает только 1 раз...

Как я понимаю, после
Document2.Close;
как раз и идет выполнение скрипта (загруженного текста) а каким образом до этого момента реферер присвоить непонимаю....

Последний раз редактировалось Pasha_777; 28.04.2009 в 09:39..

#3458

28.04.2009, 11:35

НTL

Постоянный

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

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

Отправить сообщение для НTL с помощью ICQ

slesh, сделай мне тогда просто пост запрос на логин и пароль, и скинь мне исходник, плиз

<offtop>А ты не верил что я могу +12поставить</offtop>

#3459

28.04.2009, 14:21

Pasha_777

Новичок

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

Сообщений: 5

Провел на форуме:
18684

Репутация: 0

По своей проблеме дополню...
Если делать все через idHTTP то сервер как то определяет что это не браузер (хотя в снифере пакеты полностью идентичны!!!), определяет так как идет обмен еще и внутренним протоколом (который гиморойно очень подделывать)

Так вот все работало, но потом добавили скорее всего проверку реферера и вот никак не получается его приделать к Post запросу через TWebBrowser...

P.S. Неужели никто на античате не писал авторегеров???