ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject); 
var FS:TFileStream; 
  Data:TStringList; 
  S:string; 
begin 

Button1.Enabled:=false; 
S:=IdHTTP1.Get('http://mobile.beeline.kz/ru/astana/sms/send.wbp'); 
FS:=TFileStream.Create('captcha.jpg',FMCreate); 
IdHTTP1.Get('http://mobile.beeline.kz/ru/astana/sms/mamimg.aspx/mamimg.jpg', FS); 
FS.Free; 

rsltedit.Text:=recognize(filenameedit.Text,apikeyedit.Text,false,false,false,0,0);// антикапачи 

Data:=TStringList.Create; 
Data.Add('smstext='+edit3.Text); 
Data.Add('smstoprefix='+edit1.Text); 
Data.Add('smsto=register='+edit2.Text); 
Data.Add('confirmcode='+rsltedit.Text); 

S:=IdHTTP1.Post('http://mobile.beeline.kz/ru/astana/sms/send.wbp', Data); 

Button1.Enabled:=true; 
end;