Delphi siteye yorum

[Halil Han BADEM]

Buyrun;

WebBrowser1.Silent := True;
WebBrowser1.Navigate('https://www.oyunkabini.com/battlefield-v-ilk-fragmanini-yayinladi-ve-daha-fazlasi-dlc-premium-passes/');

While WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
WebBrowser1.OleObject.Document.GetElementByID('comment').Click;
WebBrowser1.OleObject.Document.GetElementByID('comment').Value := 'Deneme yorum!';
WebBrowser1.OleObject.Document.GetElementByID('author').Click;
WebBrowser1.OleObject.Document.GetElementByID('author').Value := 'hyperxman';
WebBrowser1.OleObject.Document.GetElementByID('email').Click;
WebBrowser1.OleObject.Document.GetElementByID('email').Value := 'example@gmail.com';
WebBrowser1.OleObject.Document.GetElementByID('submit').Click;

Bunu da bu işlemler bittikten sonra son hamle ile yaparsın, iki defa yapmanın sebebi webbrowser ilk olarak algılamıyor ikinci clik serüveninde anlıyor;

 WebBrowser1.OleObject.Document.GetElementByID('submit').Click;

NOT: Siteniz beni spam algılamış olabilir kusura bakmayacaksınız artık


Edit: @"Paranoyaq" sadece forma WebBrowser ekle.

Özel mesaj yerine burayı tercih ediyorum çünkü senin gibi başka kişilerde yararlansın diye