Отправить месагу в VK

[fucil]

Есть вот такой код !

var
ss:String;
post333: TStringList;
buff, chas: string;
begin
	http1.HandleRedirects:=true;
	try
		ss := http1.get('http://vkontakte.ru/login.php?email=ХХХХХ@ХХХХХ.ru&pass=ХХХХХХХХ');
    except
    end;
	if Pos('top_nav_link',ss)<>0 then
		begin
			log.lines.add('Авторизация прошла успешно') ;
			end
	else  log.lines.add('Ошибка авторизации') ;
	try
	buff:=http1.Get('http://vkontakte.ru/mail.php?act=write');
	
	//----------Начало кусока кода который нашол на просторах интернета (Ищет chas)
	Delete(buff, Pos('<!DOCTYPE', buff), Pos('name="chas"', buff));
	Delete(buff, Pos('ame="chas"', buff), Pos('value="', buff) + 6);
	Delete(buff, Pos('" />', buff), Length(buff));
	chas:=buff;   
	buff:=http1.Get('http://vkontakte.ru/mail.php?act=write&to=ХХХХХ'); //ХХХХХ - ID кому отправляем
	chas:=buff;
	log.Lines.Text:=buff;
	//-----chas------//
	Delete(chas, Pos('<!DOCTYPE', chas), Pos('name="chas"', chas));
	Delete(chas, Pos('ame="chas"', chas), Pos('value="', chas) + 6);
	Delete(chas, Pos('" />', chas), Length(chas));
	//----------Конец кусока кода который нашол на просторах интернета(Ищет chas)
	
	post333:= TstringList.Create;
	post333.Add('act=a_send');
	post333.Add('ajax=1');
	post333.Add('al=1');
	post333.Add('chas='+chas);
	post333.Add('from=box');
	post333.Add('media=');
	post333.Add('message=Это я Федя');
	post333.Add('title=Тема да');
	post333.Add('to_id==ХХХХХ'); //ХХХХХ - ID кому отправляем

	http1.post('http://vkontakte.ru/al_mail.php',post333);
    except
    post333.Free;
    end;
	//if Pos('test123',ss)<>0 then log.lines.add('Пост успешно отправлен на стену') else  log.lines.add('Ошибка отправки поста') ;
end;

Дело в то что не могу найти (chas) откуда он вываливается не пойму код тот что у меня для нахождения chas старый и неправильный и он ищет в спарсеной странице а сейчас там уже такого не найти что то поменяли вообщем снифером толкового не нашол может невнимательно искал! Вообщим вся беда я так понял это в chas кто скажет как его найти может кто знает жду ответа !

[fate]

я делаю так

  function HASH(const html:string):string;
  var reg:TRegExpr; one,two,midl:string;
  begin
  result:='';
  reg:=TRegExpr.Create;
  reg.Expression:='("extra_hash":")([^"]+)';
  if reg.Exec(html) then begin
    midl:=ReverseString(copy(reg.Match[2],length(reg.Match[2])-1,2));
    two:=ReverseString(copy(reg.Match[2],length(reg.Match[2])-4,3));
    one:=ReverseString(copy(reg.Match[2],5,13));
    result:=one+midl+two;
    end;
  reg.Free;
  end;

chas:=hash(IdHTTP1.Get('http://vkontakte.ru/write542367'))

где 542367 id контакта

P.S.
нужен TRegExpr для работы с регулярными выражениями

[fucil]

Все кулл работает спс те а то я уже давно мозг парил !


Закрываете тему !