IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Bir internet sayfasındaki forma veri yazmak

Bir internet sayfasındaki forma veri yazmak

Kod:

uses MSHTML;

 

function SayfadakiFormuAl(const ********:IHTML********2;const FormNumarasi:Integer):IHTMLFormElement;

var Forms: IHTMLElementCollection;

begin

Forms := ********.Forms as IHTMLElementCollection;

if FormNumarasi < Forms.Length then

   Result := Forms.Item(FormNumarasi,'') as IHTMLFormElement

else result := nil;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var WebForm:IHTMLFormElement;

GoogleEdit:IHTMLInputElement;

begin

  WebBrowser1.Navigate('
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
while WebBrowser1.ReadyState < READYSTATE_COMPLETE do Application.ProcessMessages;

  WebForm:=SayfadakiFormuAl(IHTML********2(WebBrowser1.********),0);//sayfanın form nesnesi elde edilir

  GoogleEdit:=WebForm.item('q',0) as IHTMLInputElement;{sayfadaki arama kutusunun ismi (name) 'q', bu isme göre nesne bulunur.}

  GoogleEdit.value:='deneme'; //o nesneye aranan değer atanır.

  WebForm.submit;//web formu çalıştırılarak arama sağlanır.

end;