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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - RSS'den Konu Çekme (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/552196-rssden-konu-cekme.html)

Buyrun işinize yarayabilir.

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

Kod:

alias _site return 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 (<title> isin %:rss) { .hadd -ms Forum Başlık $_tr($htmlfree(%:rss)) }

  if (<link> isin %:rss) { .hadd -ms Forum Link $htmlfree(%:rss) }

  if (<pubDate> isin %:rss) { .hadd -ms Forum Tarih $htmlfree(%:rss) }

  if (<description> isin %:rss) { 

    .hadd -ms Forum Konu $iif(*[CDATA* iswm %:rss,$_tr($token($token($replace(%:rss,&gt;,$chr(62)),3,91),1,93)),$_tr($htmlfree(%:rss)))

    if !$read(link.txt,w,$hget(Forum,Link)) {

      .write konu.txt 7------------------------------------------------------

      .write konu.txt 4Başlık:1 $hget(Forum,Başlık) | .write konu.txt 4Link:1 $hget(Forum,Link) | .write konu.txt 4Tarih:1 $hget(Forum,Tarih) | .write konu.txt 4Konu:1 $hget(Forum,Konu) | .write link.txt $hget(Forum,Link)

      sockclose $sockname | _veri

    }

  }

}

2 alias'ı kendinize göre ayarlayın;

Kod:

alias _site return noup.net

alias _kanal return #Toprak

Ayarladıkdan sonra /_çek yazmanız yeterli.

Cevap: RSS'den Konu Çekme

bunu wordpress blogta yapabilirmiyiz? sadece baslik ve link olarak

Cevap: RSS'den Konu Çekme

Mirc Sürümlerinin Hangisinde Çalıştığınıda Söyleseydin Toprak

Cevap: RSS'den Konu Çekme

Alıntı:

OzeL Nickli Üyeden Alıntı (Mesaj 1041358820)

Mirc Sürümlerinin Hangisinde Çalıştığınıda Söyleseydin Toprak

mIRC versionunuz nedir ? 6.21 ise çalışır

Cevap: RSS'den Konu Çekme

Alıntı:

deejaymerlyn Nickli Üyeden Alıntı (Mesaj 1041358818)

bunu wordpress blogta yapabilirmiyiz? sadece baslik ve link olarak

Blog'unuzda rss kurulu ise elbette.

Cevap: RSS'den Konu Çekme

Alıntı:

OzeL Nickli Üyeden Alıntı (Mesaj 1041358836)

6.31 Sürüm.

Hatamı alıyorsun ?

Cevap: RSS'den Konu Çekme

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

Cevap: RSS'den Konu Çekme

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041358747)

Buyrun işinize yarayabilir.

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

Kod:

alias _site return 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 (<title> isin %:rss) { .hadd -ms Forum Başlık $_tr($htmlfree(%:rss)) }

  if (<link> isin %:rss) { .hadd -ms Forum Link $htmlfree(%:rss) }

  if (<pubDate> isin %:rss) { .hadd -ms Forum Tarih $htmlfree(%:rss) }

  if (<description> isin %:rss) { 

    .hadd -ms Forum Konu $iif(*[CDATA* iswm %:rss,$_tr($token($token($replace(%:rss,&gt;,$chr(62)),3,91),1,93)),$_tr($htmlfree(%:rss)))

    if !$read(link.txt,w,$hget(Forum,Link)) {

      .write konu.txt 7------------------------------------------------------

      .write konu.txt 4Başlık:1 $hget(Forum,Başlık) | .write konu.txt 4Link:1 $hget(Forum,Link) | .write konu.txt 4Tarih:1 $hget(Forum,Tarih) | .write konu.txt 4Konu:1 $hget(Forum,Konu) | .write link.txt $hget(Forum,Link)

      sockclose $sockname | _veri

    }

  }

}

2 alias'ı kendinize göre ayarlayın;

Kod:

alias _site return noup.net

alias _kanal return #Toprak

Ayarladıkdan sonra /_çek yazmanız yeterli.

bunu bota uyarlasak?
!çek !durdur şeklinde mümkün olurmu? @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: RSS'den Konu Çekme

Alıntı:

OxiR Nickli Üyeden Alıntı (Mesaj 1041683061)

bunu bota uyarlasak?
!çek !durdur şeklinde mümkün olurmu? @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Buyur;

Kod:

on *:text:*:#:{

  if $regex($1,/^[!.][cçÇ]ek$/Si) {

    if $timer(rss) { msg # Konu alımı zaten açık durumda .. }

    else { $+(.timer,rss) 0 20 _rss | msg # Konu alımı başlatıldı.. }

  }

  if $regex($1,/^[!.]dur$/Si) {

    if !$timer(rss) { msg # Konu alımı zaten kapalı durumda .. }

    else { .timerrss off | msg # Konu alımı kapatıldı.. }

  }

}