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

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

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

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Нужна помощь

Страница 2 из 2

Опции темы

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

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

#11

29.05.2010, 11:39

Chrome~

Постоянный

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

Сообщений: 354

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

Репутация: 175

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

Лично мой вариант на Delphi, который успешно получает список пользователей из текстов вида, который ты скинул выше (нету никаких гарантий, что он работает везде):

Цитата:

sacred

<tr><td class="uTd" align="center"> </td><td class="uTd"><a href="javascript://" rel="nofollow" onclick="window.open('http://sacred2-zone.ru/index/8-780','up780','scrollbars=1,top=0,left=0,resizable= 1,width=680,height=350');return false;">322332</a> <a class="uPM" href="http://sacred2-zone.ru/index/14-780-0-1" title="Отправить Личное Сообщение"><img alt="" border="0" align="absmiddle" src="http://s4.ucoz.net/img/ma/e1.gif" width="12" height="13" /></a> </td><td class="uTd" align="center"><img alt="" border="0" name="rankimg" src="http://s4.ucoz.net/rnk/10/rank1.gif" align="absmiddle" title="Ранг 1" /></td><td class="uTd" align="center">Пользователи <img alt="" style="margin:0;padding:0;vertical-align:middle;border:0;" name="rankimg" src="http://www.clan-infibia.clan.su/user.gif" title="Бродяга" /></td><td class="uTd" align="center">2008-05-12</td><td class="uTd" align="center">0</td></tr>

megasoft

<tr><td class="uTd" align="center"> </td><td class="uTd"><a href="http://www.megasoft.3dn.ru/index/8-26729">$$$FISHER$$$</a> </td><td class="uTd" align="center"><img alt="" border="0" name="rankimg" src="http://www.megasoft.3dn.ru/files/rank/rank1.gif" align="absmiddle" title="Ранг 1" /></td><td class="uTd" align="center">Пользователь <img alt="" style="margin:0;padding:0;vertical-align:middle;border:0;" name="rankimg" src="/files/gropss/user.png" title="Ученик" /></td><td class="uTd" align="center">14.07.2009</td><td class="uTd" align="center">0</td><td class="uTd" align="center">Мужчина</td></tr>

webucoz

<tr><td class="uTd" align="center"> </td><td class="uTd"><a href="javascript://" rel="nofollow" onclick="window.open('http://webucoz.com/index/8-5255','up5255','scrollbars=1,top=0,left=0,resizabl e=1,width=680,height=350');return false;">$ergey</a> </td><td class="uTd" align="center"> </td><td class="uTd" align="center"><img alt="" border="0" name="rankimg" src="http://s23.ucoz.net/rnk/6/rank1.gif" align="absmiddle" title="Ранг 1" /></td><td class="uTd" align="center">Пользователи <img alt="" style="margin:0;padding:0;vertical-align:middle;border:0;" name="rankimg" src="http://webucoz.com/images/uuuser.png" title="Начинающий Вэбмастер" /></td><td class="uTd" align="center">10.03.2010</td><td class="uTd" align="center">0</td></tr>

forum

<tr><td class="uTd"><div style="float:right;"><a href="http://1988293063.unet.com/" target="_blank"><img alt="" border="0" src="http://s30.ucoz.net/img/ma/uid.gif" align="absmiddle" title="uNet профиль"></a></div><a href="http://forum.ucoz.ua/index/8-51" target="_blank">AnarchySaur</a> </td><td class="uTd" align="center"> </td><td class="uTd" align="center"><img alt="" border="0" name="rankimg" src="http://s30.ucoz.net/rnk/1/rank1.gif" align="absmiddle" title="Ранг 1" /></td><td class="uTd" align="center">Пользователи </td><td class="uTd" align="center">07.10.2009</td><td class="uTd" align="center">0</td></tr>

Цитата:

<tr><td class="uTd" align="center"> </td><td class="uTd"><a href="javascript://" rel="nofollow" onclick="window.open('http://sacred2-zone.ru/index/8-780','up780','scrollbars=1,top=0,left=0,resizable= 1,width=680,height=350');return false;">322332</a> <a class="uPM" href="http://sacred2-zone.ru/index/14-780-0-1" title="Отправить Личное Сообщение"><img alt="" border="0" align="absmiddle" src="http://s4.ucoz.net/img/ma/e1.gif" width="12" height="13" /></a> </td><td class="uTd" align="center"><img alt="" border="0" name="rankimg" src="http://s4.ucoz.net/rnk/10/rank1.gif" align="absmiddle" title="Ранг 1" /></td><td class="uTd" align="center">Пользователи <img alt="" style="margin:0;padding:0;vertical-align:middle;border:0;" name="rankimg" src="http://www.clan-infibia.clan.su/user.gif" title="Бродяга" /></td><td class="uTd" align="center">2008-05-12</td><td class="uTd" align="center">0</td></tr>

align="center"> </td><td class="uTd" align="center"> </td><td class="uTd"><a href="http://o-ucoze.ru/index/8-19297" target="_blank">$$$DIMAN$$$</a> <a class="uPM" href="http://o-ucoze.ru/index/14-19297-0-1" title="Отправить Личное Сообщение"><img alt="" border="0" align="absmiddle" src="http://s23.ucoz.net/img/ma/e1.gif" width="12" height="13" /></a> </td><td class="uTd" align="center"><img alt="" border="0" name="rankimg" src="http://s23.ucoz.net/rnk/16/rank1.gif" align="absmiddle" title="Ранг 1" /></td><td class="uTd" align="center">Простой юзер </td><td class="uTd" align="center">26.10.2009</td><td class="uTd" align="center">0</td>

align="center"> </td><td class="uTd"><a href="http://megasoft.3dn.ru/index/8-26729">$$$FISHER$$$</a> <a class="uPM" href="http://megasoft.3dn.ru/index/14-26729-0-1" title="Отправить Личное Сообщение"><img alt="" border="0" align="absmiddle" src="http://s7.ucoz.net/img/ma/e1.gif" width="12" height="13" /></a> </td><td class="uTd" align="center"><img alt="" border="0" name="rankimg" src="http://www.megasoft.3dn.ru/files/rank/rank1.gif" align="absmiddle" title="Ранг 1" /></td><td class="uTd" align="center">Пользователь <img alt="" style="margin:0;padding:0;vertical-align:middle;border:0;" name="rankimg" src="/files/gropss/user.png" title="Ученик" /></td><td class="uTd" align="center">14.07.2009</td><td class="uTd" align="center">0</td><td class="uTd" align="center">Мужчина</td>

Текст, который необходимо спарсить вставляем в первое поле, нажимаем кнопку и результат получаем во втором поле.

Цитата:

Ссылка: http://depositfiles.com/files/yuwjqwohc
Пароль: V^#J*!J1

#12

30.05.2010, 11:28

M_script_

Постоянный

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

Сообщений: 306

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

Репутация: 180

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

Цитата:

Сообщение от aydar

пишу на делфи, это часть проги, парсер логинов нужен, уже 3 день пытаюсь, есть только одна законномерность с Отправить Личное Сообщение по "> т.е. справа налево но как это в коде делать?

Что-то неправильно - https://forum.antichat.ru/showpost.php?p=2169660&postcount=5 ?
Или с билдера на делфи переписать сложно?

#13

30.05.2010, 20:49

aydar

Участник форума

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

Сообщений: 160

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

Репутация: 11

Да, вот в таких случаях не работает

Цитата:

#14

31.05.2010, 00:27

Chrome~

Постоянный

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

Сообщений: 354

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

Репутация: 175

Кстати, M_script_ написал очень хороший и правильный вариант, который работает абсолютно во всех вариантах, написанных выше.

Вот его чуток измененный код, переведенный на Delphi.

Код:

var
  p: integer;
  Data: AnsiString;
  Username: String;
begin
  Data := Memo1.Text;

  while pos('<a href', Data) <> 0 do
  begin
    Delete(Data, 1, Pos('<a href', Data));
    Delete(Data, 1, Pos('>', Data));
    Username := copy(Data, 1, Pos('<', Data) - 1);
    if Username <> '' then Memo2.Lines.Add(Username);
  end;

Страница 2 из 2

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

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

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