Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
RisimO
20 / 8 / 3
Регистрация: 01.03.2013
Сообщений: 77
1

Регистрация с поттверждением

26.04.2013, 15:56. Просмотров 432. Ответов 2
Метки нет (Все метки)

Всем привет!
Появился такой вопрос.
Нужно сделать авторегестратор на сайте.
Отсниферив узнал я что чтобы зарегаться нужно перейти по ссылке

http://suite.su/index.php?page=data&action=reg&nickname=Ник&password=Пароль&email=Мыло&sex=undefined&referrer=Реферал


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 var
i:integer;
 begin
Randomize;
//login
 for i:=1 to 8 do
 Begin
Login:=Login+chr(random(26)+97);
end;
 //pass
for i:=1 to 8 do
Begin
pass:=pass+chr(random(26)+97)+ IntToStr(random(10));
end;
WebBrowser1.Navigate('http://suite.su/index.php?page=data&action=reg&nickname='+login+'&password='+pass+'&email='+pass+'@mail.ru&sex=undefined&referrer='+Edit1.Text);
Это не трудно.

Далее сайт требует от меня поттверждение по E-mail. Тут я завис.

Алгортм я понимаю.

1) Подключаюсь к прокси
2) Иду на сайт временных мыл, и вытаскиваю оттуда Email
3) Перехожу по выше указанной ссылке только указав спарсеный эмэйл (&email='Мыло')
4) Далее возвращаюсь на сайт временных мыл и оттуда парсю пришедшую ссылку подтверждения.
5)И повторяем столько раз сколько дано прокси
6)PROFIT


Но на 4 пункте я застопорился. Подскажите как это реализовать?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2013, 15:56
Ответы с готовыми решениями:

Регистрация
Всем привет! Кто может дать код для регистрация в delphi...

Регистрация в вк (ВК клиент)
Люди всем привет. Делаю вк клиент, всё отлично работает как "часы" кроме...

Регистрация на сайте
Всем привет! Как исправить ошибку Код ошибки: " Unit1.pas(89): E2250 There...

Регистрация ключа
Здравствуйте! Все вы, наверное, знаете Steam или origin. Так вот, там чтобы...

Регистрация на сайте
ПРивет всем! Пишу прогу для регистрации на сайте вот код: unit Unit1; ...

2
Xotabu4
98 / 98 / 14
Регистрация: 02.02.2013
Сообщений: 317
28.04.2013, 02:18 2
Есть в делфи такая штука интересная, как goto еще label называют, с их помощью можно перескакивать неограниченное количество раз к нужному участку кода.

Например

Delphi
1
2
3
4
5
6
7
8
var
i : integer;
label Refreshes;
begin
Refreshes: // Куда перескакиваем
i := i+1;
if I < 10 then goto Refreshes; // От куда
end;
Короче если перевести то получается что пока I будет меньше 10 будет перескакивать Refreshes пока i не будет равен 10.

Если не получается спарсить то есть готовые функции и процедуры для этого.
1
RisimO
20 / 8 / 3
Регистрация: 01.03.2013
Сообщений: 77
28.04.2013, 15:58  [ТС] 3
Цитата Сообщение от Xotabu4 Посмотреть сообщение
Есть в делфи такая штука интересная, как goto еще label называют, с их помощью можно перескакивать неограниченное количество раз к нужному участку кода.

Например

Delphi
1
2
3
4
5
6
7
8
var
i : integer;
label Refreshes;
begin
Refreshes: // Куда перескакиваем
i := i+1;
if I < 10 then goto Refreshes; // От куда
end;
Короче если перевести то получается что пока I будет меньше 10 будет перескакивать Refreshes пока i не будет равен 10.

Если не получается спарсить то есть готовые функции и процедуры для этого.

Спасибо, я кое что нашел попроще. Есть сервис работающий с API (thismail). Сейчас проблема решена. Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.04.2013, 15:58

Регистрация на сайте
Здравствуйте, у меня такая проблема.. хочу зарегистрироваться на сайте, но при...

Регистрация почты
Здравствуйте, коллеги ! Никогда таким не занимался, поэтому хочу попробовать...

Регистрация в делфи
Люди помогите сделать регистрацию(чтобы посмотреть кто зарегистр нужно зайти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru