Задаем вопросы,получаем ответы

Тема в разделе 'Delphi / Pascal', создана пользователем denbar, 24 окт 2010.

Страница 2 из 2
  1. VANS
    Оффлайн

    • Модератор

    VANS Модератор

    На форуме с:
    7 авг 2011
    Сообщения:
    661
    Симпатии:
    1.073
    Баллы:
    198
    Переходи в код программы и вот в этото место:
    Код:
      public
    { Public declarations }
  end;
    Вписывай это:

    Код:
    function Pars(T_, ForS, _T:string):string;
    Далее вписывай в любую часть кода вт это:

    Код:
    function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;
    Юзать это так:
    Код:
    label1.Caption:=pars('<URL>', Переменная в которой хранится код страницы, '</URL>');
    VANS, 26 сен 2011
    #21
    ykpon, sansen и -=ExE=- нравится это.

  2. Oops.exe
    Оффлайн
    • Пользователь

    Oops.exe НовиЧЁг

    На форуме с:
    17 авг 2011
    Сообщения:
    37
    Симпатии:
    18
    Баллы:
    8
    Какую версию лучше всего скачать с http://delphilab.ru/ ?(у меня винда XP)
    Oops.exe, 26 сен 2011
    #22

  3. VANS
    Оффлайн

    • Модератор

    VANS Модератор

    На форуме с:
    7 авг 2011
    Сообщения:
    661
    Симпатии:
    1.073
    Баллы:
    198
    Какая тебе нравится!
    В Delphi7 проги получаются весом 300кб - 1мб, а в 2010 от 1мб
    В Delphi7 не отправишь запрос на сайт с httpS протоколом!

    А вообще то качай обе, сам разберёшся какая по душе, у меня лично стоят 2 и не конфликтуют!
    VANS, 26 сен 2011
    #23
    ykpon, Oops.exe и sansen нравится это.

  4. Shift OS
    Оффлайн
    • Пользователь

    Shift OS НовиЧЁг

    На форуме с:
    19 ноя 2011
    Сообщения:
    5
    Симпатии:
    11
    Баллы:
    3
    Реально выучить Delphi самому?
    Shift OS, 19 ноя 2011
    #24

  5. Miracle
    Оффлайн

    Miracle Guest

    На форуме с:
    Сообщения:
    0
    Симпатии:
    0
    Баллы:
    0
    конечно, почитай книги научишься за неделю
    Miracle, 19 ноя 2011
    #25

  6. 007
    Оффлайн

    • ВИП

    007 Honored

    На форуме с:
    10 мар 2011
    Сообщения:
    405
    Симпатии:
    248
    Баллы:
    43
    Shift OS советую смотреть простые уроки по простым программам(фейки,часы,мп3 плеер) и выполнять их..я вон уже за два дня кое что понел уже...
    007, 19 ноя 2011
    #26

  7. VANS
    Оффлайн

    • Модератор

    VANS Модератор

    На форуме с:
    7 авг 2011
    Сообщения:
    661
    Симпатии:
    1.073
    Баллы:
    198
    Начальные азы реально!

    Вот книжечка: http://rghost.ru/31006301 Я по ней в начале учился.

    :shok:
    За неделю освоишь только создание фэйков!
    Если ты имел в виду не фэйки, а нормальные программы - даю тебе неделю (7 дней) на изучение Delphi, и на 8-й день с тебя многопоточный, безпроксивый брут WebMoney :-D
    VANS, 19 ноя 2011
    #27
    ykpon, Worm1x, Shift OS и 2 другим нравится это.

  8. boss3636
    Оффлайн

    • В бане

    boss3636 Banned

    На форуме с:
    21 ноя 2011
    Сообщения:
    16
    Симпатии:
    7
    Баллы:
    3
    люди помогите посте написания программы через Delphi создаётся несколько файлов, как мне со всего этого собрать единную exe программу , срочно тадо , помогите
    boss3636, 18 дек 2011
    #28

  9. lexan115
    Оффлайн
    • Пользователь

    lexan115 НовиЧЁг

    На форуме с:
    7 апр 2011
    Сообщения:
    36
    Симпатии:
    22
    Баллы:
    8
    прочитал много статей, но нигде не видел как делать много режимов брута (One login, One pass и т.д.)
    lexan115, 23 апр 2012
    #29

  10. lexan115
    Оффлайн
    • Пользователь

    lexan115 НовиЧЁг

    На форуме с:
    7 апр 2011
    Сообщения:
    36
    Симпатии:
    22
    Баллы:
    8
    lexan115, 24 апр 2012
    #30

  11. VANS
    Оффлайн

    • Модератор

    VANS Модератор

    На форуме с:
    7 авг 2011
    Сообщения:
    661
    Симпатии:
    1.073
    Баллы:
    198
    Генерировать из полученных данных source.
    VANS, 24 апр 2012
    #31

  12. lexan115
    Оффлайн
    • Пользователь

    lexan115 НовиЧЁг

    На форуме с:
    7 апр 2011
    Сообщения:
    36
    Симпатии:
    22
    Баллы:
    8
    кто подскажет в чем ошибка ?

    //формируем POST запрос
    Send:=TStringList.Create;
    Send.Add('login='+email);
    Send.Add('password='+password);
    Send.Add('mode=email');
    Send.Add('from=mail');
    Send.Add('lifetime=alltime');
    Send.Add('subm=enter');
    try //перехват ошибок
    HTTP.Request.Referer:='http://snooit.com/ '; //авторизуемся с главной страницы
    pg:=HTTP.Post(http://snooit.com/forgot ', send); //отправляем запрос
    result:=2; //если нет редирека то невалид
    except
    if HTTP.ResponseCode<>302 then result:=0 else result:=1; //редирект
    end;
    lexan115, 12 май 2012
    #32

  13. lexan115
    Оффлайн
    • Пользователь

    lexan115 НовиЧЁг

    На форуме с:
    7 апр 2011
    Сообщения:
    36
    Симпатии:
    22
    Баллы:
    8
    ???
    lexan115, 14 май 2012
    #33

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

Поделиться этой страницей