Aveanın sitesine login?
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Aveanın sitesine login?
Ö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...
Re: Aveanın sitesine login?
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.