помогите найти ошибку

[DeDoK]

вот код

procedure TMainForm.Button9Click(Sender: TObject);
var
email, pass, TmpStr, post_answer : string;
i,j : integer;
parametr, post,response : TStringList;
begin
parametr := TStringList.Create;
post :=TStringList.Create;
response:=TStringList.Create;
for i:=0 to AllListBox.Items.Count-1 do begin
DivideVK(AllListBox.Items[i],email,pass);
parametr.Add('email='+email);
parametr.Add('pass='+pass);
parametr.Add('expire=');
parametr.Add('vk=1');
response.Text:=IdHttp1.Post('http://login.vk.com/?act=login',parametr);
if Pos('value=',response.Text)>0 then
begin
response.Text := Stringreplace(response.Text,'''',#13,[rfreplaceall,rfignorecase]);
for j := 0 to response.Count-1 do
response[j]:=trim(response[j]);
if response[j]=trim('value=') then
begin
TmpStr:='s='+response[j+1];
ShowMessage(TmpStr);
end;
try
post:=TStringList.Create;
Post.Add('op=slogin');
Post.Add('redirect=1');
Post.Add('expire=0');
post.Add('to=');
post.Add('s='+TmpStr);
IdHTTP1.Post('http://vkontakte.ru/login.php?',post);
post.Free;
post_answer:=IdHTTP1.Get('http://vkontakte.ru/apps.php');
if Pos('class="dataWrap">Легенда - первая настоящая ролевая игра ВКонтакте!</a>',post_answer)>0 then
ValibLegendBox.Items.Add(email+':'+pass);
except
InvalidLegendBox.Items.Add(email+':'+pass);
end;
parametr.Free;
response.Free;
end;
end;
end;

все компилируется, но по нажатию выдает ошибку
List index out of bounds (66)

[Квэнди]

все компилируется, но по нажатию выдает ошибку
List index out of bounds (66)

А воспользоваться дебагом и посмотреть строку,возбуждающую исключение ?

[DeDoK]

если бы умел...а так еще дня три разбираться(((

[TwiX]

Если D7 - то вместо того, что б нажимать F9 - жмите постепенно F8

[Voody]

может я и не прав, но вот в этом эпизоде:

for j := 0 to response.Count-1 do
response[j]:=trim(response[j]);
if response[j]=trim('value=') then...

после for j становится равным response.Count, а затем идет response[j]
т.е. вы обращаетесь к элементу, которого нет (об этом как бы и говорит ошибка)

[DeDoK]

слегка поправил

procedure TMainForm.Button9Click(Sender: TObject);
var
email, pass, TmpStr, post_answer,s : string;
i,j : integer;
parametr, post,response : TStringList;
begin
parametr := TStringList.Create;
post :=TStringList.Create;
response:=TStringList.Create;
for i:=0 to AllListBox.Items.Count-1 do begin
DivideVK(AllListBox.Items[i],email,pass);
parametr.Add('email='+email);
parametr.Add('pass='+pass);
parametr.Add('expire=');
parametr.Add('vk=1');
response.Text:=IdHttp1.Post('http://login.vk.com/?act=login',parametr);
if pos('value=',response[11])>0 then
begin
TmpStr:='s='+Copy(response[11],pos(response[11],'value=')+6,56);
ShowMessage(TmpStr);
end;
end;
try
post:=TStringList.Create;
Post.Add('op=slogin');
Post.Add('redirect=1');
Post.Add('expire=0');
post.Add('to=');
post.Add('s='+TmpStr);
IdHTTP1.Post('http://vkontakte.ru/login.php?',post);
post_answer:=IdHTTP1.Get('http://vkontakte.ru/apps.php');
if Pos('class="dataWrap">Легенда - первая настоящая ролевая игра ВКонтакте!</a>',post_answer)>0 then
ValibLegendBox.Items.Add(email+':'+pass);
except
InvalidLegendBox.Items.Add(email+':'+pass);
end;
parametr.Free;
post.Free;
response.Free;
end;

таже малина. попробовал сниферить. показует что get запроса нет совсем.

[Voody]

response.Text:=IdHttp1.Post('http://login.vk.com/?act=login',parametr);
if pos('value=',response[11])>0 then
begin
TmpStr:='s='+Copy(response[11],pos(response[11],'value=')+6,56);
ShowMessage(TmpStr);
end;

может так:

response.Text:=IdHttp1.Post('http://login.vk.com/?act=login',parametr);
if pos('value=',response.Text)>0 then
begin
TmpStr:='s='+Copy(response.Text,pos(response.Text,'value=')+6,56);
ShowMessage(TmpStr);
end;

??

UPD. еще заметил:

TmpStr:='s='+Copy(response[11],pos(response[11],'value=')+6,56);
...
post.Add('s='+TmpStr);

итого: post.Add('s=s='+Copy(response[11],pos(response[11],'value=')+6,56));

[DeDoK]

мне нужно узнать зашел ли я на сайт или нет( если зашел - получить страницу с приложениями. но походу авторизации нет. попробовал так

procedure TMainForm.Button9Click(Sender: TObject);
var
email, pass, post_answer,s : string;
i : integer;
parametr, post,response : TStringList;
begin
parametr := TStringList.Create;
post :=TStringList.Create;
response:=TStringList.Create;
for i:=0 to AllListBox.Items.Count-1 do begin
DivideVK(AllListBox.Items[i],email,pass);
parametr.Add('email='+email);
parametr.Add('pass='+pass);
parametr.Add('expire=');
parametr.Add('vk=1');
try
response.Text:=IdHttp2.Post('http://login.vk.com/?act=login',parametr);
except
on e : EIDHttpProtocolException do
if e.ErrorCode = 302 then
begin
idhttp2.get(IdHTTP2.Request.Host+idhttp1.response.location);
end;
end;
parametr.Clear;
end;
if pos('value=',response[11])>0 then
begin
end;
try
post:=TStringList.Create;
Post.Add('op=slogin');
Post.Add('redirect=1');
Post.Add('expire=0');
post.Add('to=');
post.Add('s=s='+Copy(response[11],pos(response[11],'value=')+6,56));
s:=IdHTTP2.Post('http://vkontakte.ru/login.php?',post);
if (Pos('<title>В Контакте | Вход</title>',s) <> 0) then ShowMessage('false');
post_answer:=IdHTTP2.Get('http://vkontakte.ru/apps.php');
if Pos('class="dataWrap">Легенда - первая настоящая ролевая игра ВКонтакте!</a>',post_answer)>0 then
ValibLegendBox.Items.Add(email+':'+pass);
except
InvalidLegendBox.Items.Add(email+':'+pass);
end;
parametr.Free;
post.Free;
response.Free;
end;

побарабану(((

[Voody]

Сообщение от DeDoK

побарабану(((

что за ошибка, не понятно))))
я же не могу увидеть, что вам выдает программа, что вообще происходит. если хотите помощи, то объясняйте подробнее.
ошибка вылазит? что показывает снифер? делаются ли запросы? верны ли запросы? верны ли параметры?
перед самым запросом выведите все параметры в Мемо и посмотрите их значения.


и читайте внимательно, что я пишу))

if pos('value=',response[11])>0 then

сделайте

if pos('value=',response.text)>0 then

а это что за параметр:

post.Add('s=s='+Copy(response[11],pos(response[11],'value=')+6,56));

я же указал вам на ошибку, а не как надо сделать

замените все response[11] на response.text

[Lime]

Авторизация.