mIRC RSS’den Konu Çekme
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
alias _site return www.turkirc.com alias _kanal return #Toprak alias _çek $+(.timer,rss) 0 20 _rss alias _rss { sockopen rss $_site 80 } alias _veri { var %:veri = 1 | while %:veri < = $lines(konu.txt) { msg $_kanal $read(konu.txt,%:veri) | inc %:veri } | .remove konu.txt } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|< [^>]*>|< [^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Å?,ş,ÄŸ,ğ,Ãœ,ü,Ä?,ğ,$chr(39),-) on *:sockopen:rss:{ var %:rss sockwrite -n $sockname %:rss GET /external.php?type=RSS2/ HTTP/1.1 %:rss Host: $_site %:rss Connection: keep-alive %:rss Cache-Control: max-age=0 %:rss Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 %:rss User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.101 Safari/537.36 %:rss $crlf } on *:sockread:rss:{ var %:rss | sockread %:rss if ( 2 alias'ı kendinize göre ayarlayın; alias _site return noup.net alias _kanal return #Toprak Ayarladıkdan sonra /_çek yazmanız yeterli. |
Alıntıdır.