Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.02.2013, 00:21   #1
Pearl777
Форумчанин
 
Регистрация: 04.01.2013
Сообщений: 171
По умолчанию Вместо ShowMessage сделать Memo

Здравствуйте! Есть вот такой код:
Код:
     if pos('window.location.href.replace', Response.DataString) <> 0 then
    ShowMessage('Авторизовались')
  else
    ShowMessage('Ошибка!!');
Как вместо ShowMessage сделать memo1. Ну чтобы выводило результат в memo1.
Pearl777 вне форума Ответить с цитированием
Старый 17.02.2013, 00:24   #2
Pearl777
Форумчанин
 
Регистрация: 04.01.2013
Сообщений: 171
По умолчанию

Извините! Понял в чем была проблема, я писал memo1.lines, а надо memo1.lines.add
Pearl777 вне форума Ответить с цитированием
Старый 17.02.2013, 00:27   #3
Pearl777
Форумчанин
 
Регистрация: 04.01.2013
Сообщений: 171
По умолчанию

Теперь след. вопрос.
Есть код
Код:
Memo2.Lines.Add(Memo1.Lines[0]+'Авторизовались')
Memo1.Lines[0] - как сделать чтобы выводило тот логин под которым проходила авторизация.

LoginInfo.Add('user='+Memo1.Lines[i]);
Pearl777 вне форума Ответить с цитированием
Старый 17.02.2013, 00:31   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,291
По умолчанию

Memo2.Lines.Add(Memo1.Lines[i]+'Авторизовались')?
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 17.02.2013, 00:51   #5
Pearl777
Форумчанин
 
Регистрация: 04.01.2013
Сообщений: 171
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Memo2.Lines.Add(Memo1.Lines[i]+'Авторизовались')?
Не получается. Скорее всего из-за неправильного кода.
Код:
    for I := 0 to 99 do
    LoginInfo.Add('user='+Memo1.Lines[i]);
Вот такой код. Правильный он?
Pearl777 вне форума Ответить с цитированием
Старый 17.02.2013, 01:13   #6
Delphi_ProGer
Форумчанин
 
Регистрация: 30.10.2010
Сообщений: 524
По умолчанию

Цитата:
Вот такой код. Правильный он?
Да, если LoginInfo - TStringList;
Delphi_ProGer вне форума Ответить с цитированием
Старый 17.02.2013, 01:17   #7
Pearl777
Форумчанин
 
Регистрация: 04.01.2013
Сообщений: 171
По умолчанию

Цитата:
Сообщение от Delphi_ProGer Посмотреть сообщение
Да, если LoginInfo - TStringList;
Да так и есть. Тогда не пойму в чем может быть проблема.
Pearl777 вне форума Ответить с цитированием
Старый 17.02.2013, 01:28   #8
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,291
По умолчанию

А Вы LoginInfo очищаете для каждой авторизации от предыдущей итерации цикла или пересоздаете сам объект LoginInfo?
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 17.02.2013, 01:43   #9
Pearl777
Форумчанин
 
Регистрация: 04.01.2013
Сообщений: 171
По умолчанию

Программа работает по принципу брута, а именно перебор паролей. С той проблемой я разобрался.

И ещё один вопрос.
Вот есть код:
Код:
del


Программа логинится к сайту с каждым логином которые указаны в memo. Как можно сделать, чтобы авторизация происходила каждые 2 секунды.

Последний раз редактировалось Pearl777; 17.02.2013 в 11:30.
Pearl777 вне форума Ответить с цитированием
Старый 17.02.2013, 11:25   #10
Pearl777
Форумчанин
 
Регистрация: 04.01.2013
Сообщений: 171
По умолчанию

Все, все проблемы решил. Всем спасибо!
Pearl777 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как сделать вместо stringgrid dbgrid reihtmonbern Общие вопросы Delphi 0 05.03.2012 15:50
вместо memo передать в переменную bulldog5293 Работа с сетью в Delphi 5 24.12.2010 23:13
как сделать прозрачной showmessage DinamoBrynsk Помощь студентам 1 26.11.2010 10:09
Вместо Memo нужен компонент WebBrowser VenMaster Компоненты Delphi 6 02.06.2008 17:38
В Memo сделать так, чтобы текст был разного цвета, разноцветный memo Artem Компоненты Delphi 3 07.09.2007 13:40