Aveanın sitesine login?

[Extended]

Öncelikle merhabalar benim programın bir siteden gerekli bilgileri alıyor ancak benim bu bilgileri aveanın sitesinden sms olarak göndermem gerekiyor. Bunun içinde öncelikle avea'nın sitesine giriş yapmam gerekiyor Acaba aramızda aveanın sitesine naıl giriş yapabileceğimi söyleyebilecek var mı acaba post mu kullanmalıyım get mi ve hangisiyse biraz örnek verebilirlerse...

[G.Arkas]

Zamanında web sms için yapmıştım bu olayı kodlar şu şekilde

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin

EmbeddedWB1.Navigate('http://www.avea.com.tr/mps/portal?cmd=websms&lang=tr');
memo1.Clear;
end;

procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
// buraya yükleme sonrası düşen kodları görüp parseleyebilirsin.

end;
// SMS gönderim sayfasına post
procedure TForm1.Button1Click(Sender: TObject);
begin
EmbeddedWB1.OleObject.Document.GetElementBYID('destination').value:=edit1.Text;
EmbeddedWB1.OleObject.Document.GetElementBYID('smsMessage').value:=memo1.Text;
EmbeddedWB1.OleObject.Document.GetElementBYID('SubmitImage').click;
end;
// Login oluyoruz
procedure TForm1.Button2Click(Sender: TObject);
begin
EmbeddedWB1.OleObject.Document.forms.Item(0).elements.Item(0).value:=kul.Text;
EmbeddedWB1.OleObject.Document.forms.Item(0).elements.Item(1).value:=pass.Text;
EmbeddedWB1.OleObject.Document.GetElementBYID('SubmitImage').click;
end;

end.