IRC ve mIRC Kullanıcılarının Buluşma Noktası
  zurna net

  IRC ve mIRC Kullanıcılarının Buluşma Noktası Genel IRCD (Sunucu, Servis, Botlar, Korumalar) Eggdrop, NeoStats, BNC

Forum tutkunlarının tek adresi Türkiye Sohbet Odaları Sohbetteyiz herkes burda

ayna chat muhabbetbayilik veren firmalar

Şeker Shell  Sohbet


Eggdrop, NeoStats, BNC

Sunucu botları, kurulumları ve ayalarına bu başlık altından ulaşabilirsiniz.



Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 10 Temmuz 2011, 17:45   #1
Çevrimdışı
WEB den IRC veri Aktarmak


-- Sponsor Baglantı --


selamlar Öncelikler Muhdin arkadaşımızın bir cod vardı güzel bir paylaşım Bunu TcL şekline cevirebilirmiyiz $imdiden teşekkür ederim.

PHP- Kodu:
on *:sockopen:ifbot:{
  if (
$sockerr) { msg #kanal Hata bağlanılamadı! | return }
  
else { 
    var %
ifbot sockwrite -nt $sockname
    
%ifbot GET /external.php?type=rss2&forumids=70 $+ / HTTP/1.1
    
%ifbot HOST
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
style="color: #007700">.
ircforumlari.net
    
%ifbot $crlf
  
}
}
on *:sockread:ifbot:{
  var %
ifread
  sockread 
%ifread
  
if (*<title>* iswm %ifread) {
    
set %ifbaslik $remove(%ifread,</title>,<title>,<![CDATA[,]],<,>) 
  }
  if (*<
description>* iswm %ifread) {
    
set %ifaciklama $remove(%ifread,</description>,<description><![CDATA[,]],<,>)
  }
  if (*<
link>* iswm %ifread) {
    
set %iflink $remove(%ifread,</link>,<link>)
  }
  if (*<
pubDate>* iswm %ifread) {
    
set %ifzaman $remove(%ifread,</pubDate>,<pubDate>,GMT)
  }
  if (*<
dc:creator>* iswm %ifread) {
    
set %ifkullanici $remove(%ifread,<dc:creator>,</dc:creator>)
    if !
$read(kategoriler.txt,w,%ifbaslik) {
      
write gelen.txt 2 ------------------------------------------------------;
      
write gelen.txt Başlık: $+(,%ifbaslik,)   
      
write gelen.txt Tarih ve zaman: $+(,$degistir(%ifzaman),)
      
write gelen.txt Açıklama: $+(,%ifaciklama,)
      
write gelen.txt Link: $+(,%iflink,) *
      
write gelen.txt  Kullanıcı: $+(,%ifkullanici,)
      
write gelen.txt 2 ------------------------------------------------------;
      
write gelen.txt $chr(32)
      
write kategoriler.txt %ifbaslik
    
}
  }
}
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:ifbot:{ play #kanal gelen.txt 75 | timer 1 80 remove gelen.txt  }
on *:text:!feed:#kanal:{
  
if $regex($nick($chan,$nick).pnick,/(.|~|&|@|%)/) {
    if 
$sock(ifbot).status == on {
      
msg $chan Şuanda aktarım yapılıyor $nick daha sonra tekrar deneyin.
    }
    else {
      
msg $chan Son 4Feeds1(beslemelerçekiliyorLütfen bekleyin.
      unset %if*
      
write -c gelen.txt
    sockopen ifbot 
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
style="color: #007700">.
ircforumlari.net 80 }
  }
  else {
    
msg $chan $nick Operatör olmanız gerekmektedir.
  }

selamlar Öncelikler Muhdin arkadaşımızın bir cod vardı güzel bir paylaşım Bunu TcL şekline cevirebilirmiyiz $imdiden teşekkür ederim.

PHP- Kodu:
on *:sockopen:ifbot:{
  if (
$sockerr) { msg #kanal Hata bağlanılamadı! | return }
  
else { 
    var %
ifbot sockwrite -nt $sockname
    
%ifbot GET /external.php?type=rss2&forumids=70 $+ / HTTP/1.1
    
%ifbot HOST
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
style="color: #007700">.
ircforumlari.net
    
%ifbot $crlf
  
}
}
on *:sockread:ifbot:{
  var %
ifread
  sockread 
%ifread
  
if (*<title>* iswm %ifread) {
    
set %ifbaslik $remove(%ifread,</title>,<title>,<![CDATA[,]],<,>) 
  }
  if (*<
description>* iswm %ifread) {
    
set %ifaciklama $remove(%ifread,</description>,<description><![CDATA[,]],<,>)
  }
  if (*<
link>* iswm %ifread) {
    
set %iflink $remove(%ifread,</link>,<link>)
  }
  if (*<
pubDate>* iswm %ifread) {
    
set %ifzaman $remove(%ifread,</pubDate>,<pubDate>,GMT)
  }
  if (*<
dc:creator>* iswm %ifread) {
    
set %ifkullanici $remove(%ifread,<dc:creator>,</dc:creator>)
    if !
$read(kategoriler.txt,w,%ifbaslik) {
      
write gelen.txt 2 ------------------------------------------------------;
      
write gelen.txt Başlık: $+(,%ifbaslik,)   
      
write gelen.txt Tarih ve zaman: $+(,$degistir(%ifzaman),)
      
write gelen.txt Açıklama: $+(,%ifaciklama,)
      
write gelen.txt Link: $+(,%iflink,) *
      
write gelen.txt  Kullanıcı: $+(,%ifkullanici,)
      
write gelen.txt 2 ------------------------------------------------------;
      
write gelen.txt $chr(32)
      
write kategoriler.txt %ifbaslik
    
}
  }
}
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:ifbot:{ play #kanal gelen.txt 75 | timer 1 80 remove gelen.txt  }
on *:text:!feed:#kanal:{
  
if $regex($nick($chan,$nick).pnick,/(.|~|&|@|%)/) {
    if 
$sock(ifbot).status == on {
      
msg $chan Şuanda aktarım yapılıyor $nick daha sonra tekrar deneyin.
    }
    else {
      
msg $chan Son 4Feeds1(beslemelerçekiliyorLütfen bekleyin.
      unset %if*
      
write -c gelen.txt
    sockopen ifbot 
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
style="color: #007700">.
ircforumlari.net 80 }
  }
  else {
    
msg $chan $nick Operatör olmanız gerekmektedir.
  }

  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Alt 11 Temmuz 2011, 01:00   #2
Çevrimdışı
Cevap: WEB den IRC veri Aktarmak




selam

evet bende denedim güzel bir kod .ancak bunu tcl haline çevirmeye gerek yok ..

şöyleki halihazırda mevcut rss okuyucu tcl scriptlerden birini indirip [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kurun botunuza ve bu rss okuyucu içine

hazır kodlar bölümü için:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mirc scripting sorunları için:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

gibi ekleyin yansıtılacağı kanalı seçin zaten aynen böyle komutla çalışıyor böyle scriptler [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresindeki konu başlıklarının hizasında rss seçeneği var ona tıklayıp hangi bölümün rss feed'ini görmek eklemek isitiyorsanız seçebilirsiniz..

bu scriptlerin işleyişi bu şekildedir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

her komut-triggerda kanala kaç satır kaç-konu yansıtılacağı kodlar içindeki ayarlardan ayarlanabilmektedir.. dilediğiniz kanala konuları yenileri geldikçe oto yansıtabilme özellikleride ayarlanabilmektedir..

bunun gibi kodları uzun bir süredir kendi haber kanalımda sorunsuz kullanmaktayım..ayarları oldukça anlaşılabilir ve kolaydır..

iyi çalışmalar..


Konu Heartbroken tarafından (11 Temmuz 2011 Saat 11:39 ) değiştirilmiştir.
  Alıntı ile Cevapla

Cevapla

Etiketler
aktarmak, den, irc, veri, web

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık




diyarbakır escort bursa escort konya escort gaziantep escort bodrum escort