Çevrimdışı

Arkadaşlar Merhaba. Elinnde Milli eğitim bakanlığının sayfasından haberleri çekecek ve irc sunucusunda her odada 8 dk arayla haberleri global atıcak haber.tcl lazım yardım ederseniz Sevinirim.Hayırlı Forumlar.

 

Çevrimdışı

#
# Haber_Okuyucu.tcl v1.5
# Bu tcl güncel haberleri haberokur.com sitesinden okuyarak kanalınıza yazdırmak için geliştirilmiştir.
# Kullanımı kanal genelinde !haber şeklindedir. ilk Komutta haberler kanala yansıtılmaya başlar
# Tekrar aynı komut verildiğinde o an okunan haberlerin bitiminde bot durur.
# Http.tcl ile birlikte kullanılmalıdır.
# Tcl'lericonfunuza ;
#
# source scripts/haber_okuyucu.tcl
# source scripts/http.tcl
#
# şeklinde ekleyebilirsiniz
#
# Yapımcı : BuCaLI
# e-mail :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#


# Haberlerin okunacağı kanal
set kanal "#haber"

# Haberlerin Kanala Yansıyacağı Zaman Aralığı (Dakika Cinsinden)
set zaman 10



bind pub - !haber basla

channel add $kanal

proc basla { n u h c a } {
global basladi zaman kanal okut
if {![isop $n $c]} { putserv "privmsg $c Kanal Operatörü Olmadığınız İçin Bu Komudu Kullanamazsınız $n ..!" ; return 0 }
if {[info exists basladi]} {
putserv "privmsg $c \00307Haberler Durduruldu..!"
killtimer $okut
unset basladi
} else {
putserv "privmsg $c \00307Haberler Başlatılıyor..! $zaman Dakika Arayla Haberler $kanal Kanalına Yansıtılacak..."
set basladi 1
oku
}
}


proc oku { } {
global kanal zaman okut
set okut [timer $zaman [list oku]]
set baglan [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
set veriler [::http::data $baglan]
set list [split [subst -nocommands $veriler] "\n"]
foreach i $list {
regexp -- {<title>(.+?)</title>} $i - baslik
regexp -- {<td width="235" valign="top">(.+?)<br><br>} $i - aciklama
regexp -- {<a href="(.+?)">Devamı İçin Tıklayınız...</a>} $i - link

if {[info exists baslik]} {
regsub -all "&#039;" $baslik "'" baslik
regsub -all "&quot;" $baslik "\"" baslik
regsub -all "&nbsp;" $baslik " " baslik
putserv "privmsg $kanal \00304 ::::: $baslik :::::\003"
unset baslik
}

if {[info exists aciklama]} {
regsub -all "&#039;" $aciklama "'" aciklama
regsub -all "&quot;" $aciklama "\"" aciklama
regsub -all "&nbsp;" $aciklama " " aciklama
putserv "privmsg $kanal \00301 $aciklama \003"
unset aciklama
}

if {[info exists link]} {
putserv "privmsg $kanal \00301Devamı İçin Tıklayınız »\00312 $link \003"
unset link
}

}
::http::cleanup $veriler
}






sadece web sitesini degistir kardeslik

 

Çevrimdışı

Bunu denedim olmadı