Помогите отобразить каптчу по етой ссылке “http://mail.zp.ua/robot_check/showcode.php?sid=8601c780e829500e880185846ba3de2e”

[Ответить]

Все получилось, большое спасибо!!!

[Ответить]

Просто запросом ничего не получается:
Data:=TStringList.Create;
Data.Add(‘username=’+AddressEdit.Text);
Data.Add(‘passwd=’+PasswordEdit.Text);
Data.Add(‘passwd2=’+PasswordEdit.Text);
Data.Add(‘rname=’+NameEdit.Text);
Data.Add(‘sid=’+sid);
Data.Add(‘code=’+CaptchaEdit.Text);

S:=IdHTTP1.Post(‘http://mail.zp.ua/add.post.php', Data);
if Pos(‘@mail.zp.ua’, S)0 then
begin
ResultLabel.Caption:=’ДА ’;

[Ответить]

При нажатии получить каптчу ошибка IOHandler value is not valid.
вот код
implementation
var idkey, S:string;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var FS:TFileStream;
begin
S:=IdHTTP1.Get(‘http://passport.yandex.ru/passport?mode=register&msg=mail‘);
idkey:=Copy(S, Pos(‘idkey’, S)+16, 32);

FS:=TFileStream.Create(‘captcha.gif’,FMCreate);
IdHTTP1.Get(‘https://passport.yandex.ru/digits?idkey='+idkey , FS);
FS.Free;
Image1.Picture.LoadFromFile(‘captcha.gif’);
end;

end.

[Ответить]

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

[Ответить]

Почему я не могу перехватить параметры снифером (с рамблера) ?

[Ответить]

а как правильно парсить если скажем в коде страницы одинаковые параметры и два разных значения?Например:
Имя
<input name="x_e61b35b29b882a0e"

Фамилия
<input name="x_8d392d955392d516"

как видите они почти одинаковые но тока слово имя или фамилия разные!
надо спарсить два значения name=
как написать правильно код на второе значение если на первое он так:
name:=Pars('<input name="',S,'"');
ООчень надо пожалста помогите кто по опытней!

[Ответить]

Нашёл решение
Огромное спасибо вам за видеоуроки!

[Ответить]

Отследил такую штуку
action[0]=AuthExt.logon&username[0]=Мой логин&password[0]=Мой пароль&remember[0]=1
Но что дальше делать с этим не знаю, и в какой момент происходит проверка не знаю.

[Ответить]

“Пример дан в видеоуроке”.

Нет в видеоуроке и намёка как работать с java скриптами.
Там показана только работа с Html кодом.
Поэтому вопрос остаётся в силе!

[Ответить]

Что-то не проходит. Выдаёт ошибку. Собственно код, помогите найти то, что не даёт пройти регистрацию.
procedure TForm1.Button2Click(Sender: TObject);
var
Data:TStringList;
begin
Data:=TStringlist.Create;
Data. Add(‘skin=id’);
Data.Add(‘uniq_id=’+uniq_id);
Data.Add(‘action=register’);
Data.Add(‘user.fname=’+Edit1.Text);
Data.Add(‘user.Lname=’+Edit2.Text);
if RadioButton1.Checked then
Data.Add(‘user.gender=1′)
else
Data.Add(‘user.gender=2′);
Data.Add(‘user.bday’+Edit3.Text);
Data.Add(‘user.bmonth’+Edit4.Text);
Data.Add(‘user.byear’+Edit5.Text);
Data.Add(‘user.login=’+Edit6.Text);
Data.Add(‘user.domain=’+comboBox1.Text);
Data.Add(‘user.password1=’+Edit7.Text);
Data.Add(‘user.password2=’+Edit7.Text);
Data.Add(‘user.question=’+combobox2.Text);
Data.Add(‘user.answer=’+Edit8.Text);
Data.Add(‘user.Captcha=’+Edit9.Text);
S:=idhttp1.Post(‘http://id.rambler.ru/script/newuser.cgi',Data);
if pos(‘logout’,S)0 then
Memo1.Lines.Add(‘Регистрация успешно завершена!’)
else
Memo1.Lines.Add(‘This is FAIL! Произошла ошибка!’);

[Ответить]

Программа сломалась! Не хочет регать акки! В чём может быть проблема?
Каптча получается нормально!

[Ответить]

Спасибо за урок дружище! Реально полезное дело делаешь.
Я тока не понял а как куки проверяются? В проекте о них ни слова, а снифак четко в строке показывает чеккуки
Имхо, для затравки урок – самое оно! Но тема вроде не полностью раскрыта… м?

[Ответить]

Я создал дал еррор
IOhandler но я сделал норм:))
потом Could not load SSL Library
а сейчас Error conecting with SSL

[Ответить]