delphi4arab منتديات دلفي للعرب

السلام عليكم
كيف اضغط على زر داخل المتصفح برمجيا ؟
صنعت متصفح ووضعت موقع معين ويوجد زر بلموقع كيف اضغط على هذا الزر برمجيا

[COLOR="DarkOrange"]وعليكم السلام أخي
صراحةلم يسبق لي ان تعاملت مع هذا النوع من البرمجة ولكن هذه الدالة ستفيدك[/COLOR]

PHP كود :
SendMessage(BtnHandle, BM_CLICK, 0,0); 

PHP كود :
wb1.OleObject.Document.GetElementByID('Username').SetAttribute('value', edt1.Text);
wb1.OleObject.Document.GetElementByID('Password').SetAttribute('value', edt2.Text);
wb1.OleObject.Document.GetElementByID('submit1').click; 

والمتغيرات نحصل عليهم بهذه الطريقة
[صورة: gb7h.jpg]

PHP كود :
procedure TForm1.btn1Click(Sender: TObject);
begin
wb1.OleObject.Document.GetElementByID('skip_ad_button').click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin //skip_ad_button
wb1.Navigate('http://a d f .l y /1111');
end; 

تم تجربته وهو يعمل

noor

CID_01

onexite

onexite