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

Kod:



on *:sockopen:klbkbt:{  
 

 

  if ($sockerr) { msg #KanaL Hata bağlanılamadı! | return }  
 

 

else {   
 

 

    var %klbkbt = sockwrite -nt $sockname  
 

 

%klbkbt GET /external.php? $+ / HTTP/1.1  
 

 

%klbkbt HOST: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:klbkbt:{  
 

 

  var %kfveri  
 

 

  sockread %kfveri  
 

 

if (*<title>* iswm %kfveri) {  
 

 

set %baslik 

$remove(%kfveri,</title>,<title>,<![CDATA[,]],<,>)   
 

 

  }  
 

 

  if (*<description>* iswm %kfveri) {  
 

 

set %kfaciklax $remove(%kfveri,</description>,<description>)  
 
 

 

  }  
 

 

  if (*<link>* iswm %kfveri) {  
 

 

set %kflinks $remove(%kfveri,</link>,<link>)  
 

 

  }  
 

 

  if (*<pubDate>* iswm %kfveri) {  
 

 

set %kftime $remove(%kfveri,</pubDate>,<pubDate>,GMT)  
 

 

  }  
 

 

  if (*<dc:creator>* iswm %kfveri) {  
 

 

set %kfuser $remove(%kfveri,<dc:creator>,</dc:creator>)  
 

 

write gelen.txt 2------------------------------------------------------;  
 
 

 

write gelen.txt 7Başlık:12 $+(,%baslik,)     
 

 

write gelen.txt 7Tarih ve zaman:4 $+(,$degistir(%kftime),)  
 

 

write gelen.txt 7Açıklama:4 $+(,%kfaciklax,)  
 

 

write gelen.txt 7Link:12 $+(,%kflinks,) *  
 

 

write gelen.txt 7Kullanıcı:2 $+(,%kfuser,)  
 

 

write gelen.txt 2------------------------------------------------------;  
 
 

 

write gelen.txt $chr(32)   
 

 

  }  
 

 

 }  
 

 

alias degistir {   
 

 

  return 

$replace($1,Mon,Pazartesi,Tue,Salı,Wed,Çarşamba,Thu,Perşembe,Fri,Cuma,Sat,Cumartesi,Sun,Pazar,:,-,Jun,Ocak,Jan,Şubat,Mar,Mart,Apr,Nisan,May,Mayıs,Jul,Haziran,Aug,Ağustos,Sep,Temmuz,Oct,Ekim,Nov,Kasım,Dec,Aralık) 

 
 

 

}  
 

 

 
 

 

on *:sockclose:klbkbt:{ play #kanal gelen.txt 01  }  
 

 

 
 

 

on *:text:!veri:#Msc:{  
 

 

if $regex($nick($chan,$nick).pnick,/(.|~|&|@|%)/) {  
 

 

    if $sock(klbkbt).status == on {  
 

 

msg $chan Şuanda aktarım yapılıyor $nick , daha sonra tekrar deneyin.  
 

 

    }  
 

 

    else {  
 

 

msg $chan 7Son Yazılar4 # 7 kanalına aktarılıyor 4Lütfen bekleyiniz..  
 
 

 

unset %if*  
 

 

write -c gelen.txt  
 

 

    sockopen klbkbt 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }  
 

 

  }  
 

 

  else {  
 

 

msg $chan $nick Operatör olmanız gerekmektedir.  
 

 

  }  
 

 

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yazan yere kendi domaininizi Yazın
#KAnal kendi kanalınızı yazın.
!veri komutu ile calışır Aynı zamanda oto calışır..

Oto calışma mantıgı şöyledir.
rss lerden cektigi verilerde yeni bir veri gişi varsa Onu oto kanala yansıtır.
Umarım işinizi Görür.

Note : Bu kodu Muhdin ile beraber yapmıştık burdan kendisine teşekkür ederim tekrar.