| RSS Botu (Socket)
Merhaba,
Forum yada web siteleriniz de ki RSS verilerini sunucuya gönderebilirsiniz.. Kod: Kodu kopyalamak için üzerine çift tıklayın! ;-
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
}
}
}
Merhaba,
Forum yada web siteleriniz de ki RSS verilerini sunucuya gönderebilirsiniz.. Kod: Kodu kopyalamak için üzerine çift tıklayın! ;-
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
}
}
} |