IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
;# 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.