Herhangi Bir Sayfanın Başlığını Almak

[turkoglu98]

bir projemde herhangi bir sayfanın başlığını almam gerekiyordu kodu buldum
ve sizlerle paylaşmak istedim


öncelikle bir imput'a ihtiyacımız var
imputun ismi = link olucak

ve kodları imputun On Key bölümüne yazıcaz

[codebox]if e_Key == 13 then
link = Input.GetText("link"); -- linki al
html = HTTP.Submit(link, {}, SUBMITWEB_GET, 20, 80, nil, nil); -- linkteki adresin htmlsini al
title = String.Find(html, "<title>", 1, false); -- arama yap
sol = String.Left(html, title); -- soldan itibaren al
nsol = String.Replace(html, sol, "", false); -- sol tarafı sil
atitle = String.Find(nsol, "</title>", 1, false); -- araba yap
sag = String.Left(nsol, atitle); -- soldan itibaren al
asol = String.Replace(sag , "title>", "", false); -- geriye kalanları sil
bsol = String.Replace(asol , "<", "", false); -- geriye kalanları sil
result = Dialog.Message("sitenin başlığı",bsol, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); -- sitenin başlığını göster
end[/codebox]