;# tcllib http paketi gereklidir.
;# http tcl8.5 komut/kullanım dökümanı :
;# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
package require http

;# site adresi
set websitem "http://blabla.com"

;# verilen adrese , bağlantı / hata kontrolü
if {[catch {set tok [http::geturl $websitem -timeout 15000]} err] == 1} {
    putcmdlog "hata : $err" ;# olası bağlantı sorunu/hatası çıktısı
    return 0  ;# bağlantı hatadan sonra sıfırlandı.
} elseif {[http::status $tok] == "ok"} {   ;# bağlantı başarılıysa:
    set data [http::data $tok]   ;# adres üzerinde veri alınacak
	regexp {sitenin-kaynak(.*?)kodu} $data "" bisey   ;# alınmak istenen veri ayıklayın/seçin.
	putcmdlog "çıktı : $bisey" ;# alınan/seçilen veri çıktısı
}
http::cleanup $tok   ;# veri alma isteği/bağlantıyı hafızadan temizlemek için gerekli.