Popular Posts
-
seriari #1 NEW YORK TIMES BESTSELLER • In her latest book, Brené Brown writes, “If we want to find the way back to ourselves and one anoth...
-
seriariconfr.Enabled:=false; close.Enabled:=true; end; procedure TForm4.FormActivate(Sender: TObject); begin Memo1.Lines.LoadFromFile(...
-
seriari NEW YORK TIMES BESTSELLER • GOOD MORNING AMERICA BOOK CLUB PICK • “A twist-and-turn whodunit, set in a five-star hotel, from the ...
-
seriari Celebrate the beauty of springtime with the #1 New York Times best-selling Little Blue Truck! Beep! Beep! Little Blue Truck is out ...
-
seriari #1 NEW YORK TIMES BESTSELLER A TODAY Show Read with Jenna Book Club Pick A New York Times Notable Book, and Chosen by Oprah Daily, ...
-
seriari Celebrate the beauty of springtime with the #1 New York Times best-selling Little Blue Truck! Beep! Beep! Little Blue Truck is out ...
-
seriari #1 NEW YORK TIMES BESTSELLER A TODAY Show Read with Jenna Book Club Pick A New York Times Notable Book, and Chosen by Oprah Daily, ...
الجمعة، 21 يناير 2022
download free 5555
seriari
WebBrowser2.Navigate('https://www.blogger.com/blog/posts/'+edit11.text);
end;
procedure TForm4.Timer1Timer(Sender: TObject);
begin
Button5.click ;
timer1.Enabled:=false;
end;
procedure TForm4.titleTimer(Sender: TObject);
var i:Integer;
myole:oleVariant;
Pt: TPoint;
begin
myole := webbrowser2.Document;
for i := 0 to myole.all.length - 1 do
//if myole.all.item(strtoint(edit14.Text)).tagName = 'TEXTAREA' then
// begin
//showmessage(inttostr(i));
// myole.item(strtoint(edit14.Text)).name:='gggg';
if(myole.all.item(i).tagname = 'INPUT') and (myole.all.item(i).classname = 'whsOnd zHQkBf') then
begin
myole.all.item(i).focus;
myole.all.item(i).InnerText:='download free '+edit1.text;
الاشتراك في:
تعليقات الرسالة (Atom)
ليست هناك تعليقات:
إرسال تعليق