mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası   Reklam Alanı


  mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası MF - IRC ve mIRC Kod Dünyası mIRC ve Socket Botlar

Gevezeyiz Sohbet

mIRC ve Socket Botlar mIRC ve Socket Botlar hakkında bilgi alış-verişi yapabileceğiniz forumdur.

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Arama
Alt 02 Nisan 2019, 21:03   #1
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 636
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 94
Post RSS Botu (Socket)

Merhaba,
Forum yada web siteleriniz de ki RSS verilerini sunucuya gönderebilirsiniz..


Kod:
;-
alias _bot return IRCForumlari
alias _pass return 123321
alias _ident return IF
alias _username return 4www.IRCForumlari.NET
alias _oper return Bot botcuk
alias _sunucu return irc.sohbet.net
alias _port return 6667
alias _kanal return #IRCForumlari

;- Forum adresi
alias _site return www.ircforumlari.net
;-
;---------------------------------------

on *:start:sockopen bot $_sunucu $_port
alias bagla sockopen bot $_sunucu $_port
alias _nick return $remove($gettok($1,1,33),:)
alias swbot $iif($sock(bot).status == active,sockwrite -nt bot $1-)

on *:sockclose:bot:$+(.timer,bot) 1 2 sockopen bot $_sunucu $_port
on *:sockopen:bot:{
  if ($sockerr) { sockclose bot | $+(.timer,bot) 1 2 sockopen bot $_sunucu $_port | returnex }
  swbot NICK $+($_bot,$r(100,999999)) 
  swbot USER $_ident "" " $+ $iif($host,$host,$ip) $_username
  sockmark $sockname $_bot
}
on *:sockread:bot:{
  if ($sockerr) { sockclose bot | $+(.timer,bot) 1 2 sockopen bot $_sunucu $_port | returnex }
  var %;bot | sockread %;bot | tokenize 32 %;bot
  if ($1 = ping) { swbot pong $remove($2,:) }
  elseif $regex($2,/(001|433)/) { swbot oper $_oper | swbot ns ghost $_bot $_pass | swbot ns release $_bot $_pass | $+(.timer,_bot-nick) 1 3 swbot nick $_bot }
  elseif $1 == error && $2 == :closing { sockclose bot | $+(.timer,bot) 1 2 sockopen bot $_sunucu $_port }  
  elseif $regex($2,/(473|475|471|474)/) { swbot sajoin $_bot $4 }
  elseif $regex($2,/(481|411)/) { swbot oper $_oper | swbot nick $_bot | swbot nickserv identify $_pass | $iif($_supass,swbot os su $_supass) }
  elseif ($2 == NICK) { 
    if $_nick($1) == $_bot { swbot ns ghost $_bot $_pass | swbot ns release $_bot $_pass | $+(.timer,_bot-nick) 1 3 swbot nick $_bot }
    elseif $right($3,-1) == $_bot {
      swbot nickserv identify $_pass      
      swbot oper $_oper
      swbot mode $right($3,-1) +qHp-h
      $+(.timer,_botgir) 1 5 swbot join $_kanal
      $+(.timer,_mode) 1 10 swbot mode $_bot +SsQq
      _çek
    }
  }
  elseif $regex($2,/^PRIVMSG$/Si) && !$regex($3,/^#/) { if $4 == :VERSION { swbot NOTICE $_nick($1) VERSION $_username } }
  elseif $regex($2,/^PART$/i) && $istok($_kanal,$3,32) {
    if $regex($_nick($1),/ $+ $+(^,$_bot,$) $+ /Si)  { swbot sajoin $_nick($1) $3 }
  }
  elseif $regex($2,/^KICK$/i) && $istok($_kanal,$3,32) {
    if $regex($4,/ $+ $+(^,$_bot,$) $+ /Si) { swbot sajoin $4 $3 }
  }
  elseif $regex($2,/^JOIN$/i) {
    if $regex($_nick($1),/ $+ $+(^,$_bot,$) $+ /Si) {
      swbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5)
      swbot mode $_nick($1) +qHp-h
      _çek
    }
  }
}

alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ş,ş,ı,ı,Å?,ş,ğ,ğ,Ü,ü,Ä?,ğ,$chr(39),-)
alias _çek $+(.timer,rss) 0 20 _rss 
alias _rss { 
  sockclose rss
  sockopen -e rss $_site 443
}
alias _veri { 
  var %:veri = 1 | while %:veri <= $lines(konu.txt) { 
    swbot privmsg $_kanal $+(:,$read(konu.txt,%:veri)) 
    inc %:veri 
  } 
  .remove konu.txt
}
on *:sockopen:rss:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET /external.php?type=RSS2 HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:rss:{
  if ($sockerr) { .sockclose $sockname | return }
  var %:rss | sockread -f %:rss | tokenize 32 %:rss
  if $regex($1-,/<title>(.+)<\/title>/Si) { .hadd -ms Forum Title $_tr($remove($regml(1),<![CDATA[,]]>)) }  
  elseif $regex($1-,/<link>(.+)<\/link>/Si) { .hadd -ms Forum Link $regml(1) }
  elseif $regex($1-,/<pubDate>(.+)<\/pubDate>/Si) { .hadd -ms Forum Tarih $remove($regml(1),GMT) }  
  elseif $regex($1-,/<category domain=".+">(.+)<\/category>/Si) { .hadd -ms Forum Kategori $_tr($remove($regml(1),<![CDATA[,]]>)) }
  elseif $regex($1-,/<dc:creator>(.+)<\/dc:creator>/Si) {
    if !$read(link.txt,w,$hget(Forum,Link)) {   
      .write link.txt $hget(Forum,Link)
      .write konu.txt 
      .write konu.txt 4Title: $hget(Forum,Title) 
      .write konu.txt 4Link: $hget(Forum,Link) 
      .write konu.txt 4Kategori: $hget(Forum,Kategori) 2/ 4Tarih: $hget(Forum,Tarih) 2/ 4Yazar: $_tr($regml(1))
      .write konu.txt 
      sockclose $sockname | _veri
    }
  }
}






To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.
 Che isimli Üye şimdilik offline konumundadır   Alıntı

5 Son Konular by Che
Konu Forum Son Mesaji Yazan Cevaplar Görüntülenme Son Mesaj Tarih-Saat
qwebirc radyo kurulumu detaylı anlatımı Qwebirc Che 0 88 14 Mayıs 2020 13:01
KiwiIRC Kurulumu ! KiwiIRC Che 0 76 14 Mayıs 2020 12:55
Bölüm Kuralları Yeni IRC Sunucular Che 0 87 14 Mayıs 2020 12:37
Sunucu Tanıtımı Konu Şablonu Hk. Yeni IRC Sunucular Che 0 88 14 Mayıs 2020 12:34
Bölüm Kuralları TCL Scriptler Che 0 95 14 Mayıs 2020 10:07


Yeni Konu   Cevap Yaz

Etiketler
botu, rss, rss konu çekme, socket

Seçenekler Arama

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



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:37.


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
mIRCForum - Sohbet
Copyright ©2005 - 2020 mIRCForum.Com | Tüm Hakları Saklıdır.