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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   haber botu (https://www.ircforumlari.net/mirc-scripting-sorunlari/436888-haber-botu.html)

bensensenben 18 Aralık 2011 21:17
haber botu
 
arkadaşlar ben script rss haber botu veya remotesi aradım taradım ama bulamadım bir bilgisi olan varsa yardımcı olabilirmi ?

toXic 18 Aralık 2011 21:28
Cevap: haber botu
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


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


Denediniz mi?

bensensenben 20 Aralık 2011 22:56
Cevap: haber botu
 
evet baktım ama biri özele yazıo dieri ise calışmıo yani ben sondakika haberleri düştükce kanala kendi yazsın istiyorum o kodda var ama denedim calışmıyor

DaDaS 20 Aralık 2011 23:07
Cevap: haber botu
 
Var Ama Sondakıka haberlerını komut uygulatarak alacagın kod var ?

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

bensensenben 21 Aralık 2011 21:40
Cevap: haber botu
 
dediğiniz yere baktım kodu aldım tam böyle bi kod istiorum ama kod calışmıyor yani kanala cekme olmuyor

MesqeN 22 Aralık 2011 00:27
Cevap: haber botu
 
Kod:

on *:sockopen:klbkbt:{ 

 
  if ($sockerr) { msg #KanaL Hata bağlanılamadı! | return } 

 
else { 

 
    var %klbkbt = sockwrite -nt $sockname 

 
%klbkbt GET /external.php? $+ / HTTP/1.1 

 
%klbkbt HOST:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:klbkbt:{ 

 
  var %kfveri 

 
  sockread %kfveri 

 
if (*<title>* iswm %kfveri) { 

 
set %baslik
$remove(%kfveri,</title>,<title>,<![CDATA[,]],<,>) 

 
  } 

 
  if (*<description>* iswm %kfveri) { 

 
set %kfaciklax $remove(%kfveri,</description>,<description>) 


 
  } 

 
  if (*<link>* iswm %kfveri) { 

 
set %kflinks $remove(%kfveri,</link>,<link>) 

 
  } 

 
  if (*<pubDate>* iswm %kfveri) { 

 
set %kftime $remove(%kfveri,</pubDate>,<pubDate>,GMT) 

 
  } 

 
  if (*<dc:creator>* iswm %kfveri) { 

 
set %kfuser $remove(%kfveri,<dc:creator>,</dc:creator>) 

 
write gelen.txt 2------------------------------------------------------; 


 
write gelen.txt 7Başlık:12 $+(,%baslik,)   

 
write gelen.txt 7Tarih ve zaman:4 $+(,$degistir(%kftime),) 

 
write gelen.txt 7Açıklama:4 $+(,%kfaciklax,) 

 
write gelen.txt 7Link:12 $+(,%kflinks,) * 

 
write gelen.txt 7Kullanıcı:2 $+(,%kfuser,) 

 
write gelen.txt 2------------------------------------------------------; 


 
write gelen.txt $chr(32) 

 
  } 

 
 } 

 
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:klbkbt:{ play #kanal gelen.txt 01  } 

 
 

 
on *:text:!veri:#Msc:{ 

 
if $regex($nick($chan,$nick).pnick,/(.|~|&|@|%)/) { 

 
    if $sock(klbkbt).status == on { 

 
msg $chan Şuanda aktarım yapılıyor $nick , daha sonra tekrar deneyin. 

 
    } 

 
    else { 

 
msg $chan 7Son Yazılar4 # 7 kanalına aktarılıyor 4Lütfen bekleyiniz.. 


 
unset %if* 

 
write -c gelen.txt 

 
    sockopen klbkbt
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 } 

 
  } 

 
  else { 

 
msg $chan $nick Operatör olmanız gerekmektedir. 

 
  } 

 
}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yazan yere kendi domaininizi Yazın
#KAnal kendi kanalınızı yazın.
!veri komutu ile calışır Aynı zamanda oto calışır..

Oto calışma mantıgı şöyledir.
rss lerden cektigi verilerde yeni bir veri gişi varsa Onu oto kanala yansıtır.
Umarım işinizi Görür.

Note : Bu kodu Muhdin ile beraber yapmıştık burdan kendisine teşekkür ederim tekrar.

SiLuet 22 Aralık 2011 11:21
Cevap: haber botu
 
Kod Şuan Çalışıyormu Çalışmıyormu Bilemiyorum,ama domain ismini değiştiğinizde Hiç veya Hatalı çalışacaktır. çünkü kod verdiğiniz adresten gelen verilere göre Kodlanmıştır.

bensensenben 23 Aralık 2011 19:47
Cevap: haber botu
 
yazdım mesela rss.hurriyet.com.tr yazdım ama olmuo cekmio

bensensenben 23 Aralık 2011 19:48
Cevap: haber botu
 
veriler kanala aktarılıyor dior ama aktarmıyor

bensensenben 23 Aralık 2011 19:52
Cevap: haber botu
 
sockopen klbkbt rss.hurriyet.com.tr 80 }

%klbkbt GET /external.php? $+ / HTTP/1.1


%klbkbt HOST: rss.hurriyet.com.tr


böyle değiştirdim

Paint 23 Aralık 2011 20:15
Cevap: haber botu
 
Alıntı:
bensensenben Nickli Üyeden Alıntı (Mesaj 1040972075)
sockopen klbkbt rss.hurriyet.com.tr 80 }

%klbkbt GET /external.php? $+ / HTTP/1.1


%klbkbt HOST: rss.hurriyet.com.tr


böyle değiştirdim

İlk olarak rss.hurriyet.com.tr de hurriyet.com.tr nin rss güncellemeleri yok.
hurriyet.com.tr nin rss servisi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .

Koda gelirsek kod @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'inden belirttiği gibi arkaşın kendi sitesinden bilgi çekmek için yazılmış bir kod yani rss servisine bağlanmaya falan yaramıyor.

bensensenben 23 Aralık 2011 20:21
Cevap: haber botu
 
ozaman sizin önerebilceğiniz başka bir kod varmı

esekherif 23 Aralık 2011 20:23
Cevap: haber botu
 
Yok !

Heartbroken 24 Aralık 2011 01:04
Cevap: haber botu
 
bunu kullanabilirsiniz bu iş için.Feed Link penceresine rss feedlerin linkini Chans kısmına göndermek istenen kanalları #kanalA,#kanalB vs gibi ekleyin.RSS-name kutusuna veri alınan yer için bir başlık ekleyin misal hürriyet-gündem vs .. delay in seconds veri alımı gecikme süresi 120 - 180 240 vs gibi bi değer girin eklemeyi tamamladıktan bir süre sonra belirtilen kanal-kanallara postalamaya başlar.
Kod:
;RSS Feed Script by Ford_Lawnmower
;This is very easy to use. Just load it into remotes and check any menu for RSSFeed. Click the dialogs and start Adding Feeds.
;Initially it will show 4 and after that it will update with the delay you set. Max output is set to 4 lines.
;When adding or editing Feeds, You must fill in all the boxes. [Name] is the name you want posted before the link. It can also be a short phrase.
;[Feed link] is a link to a valid RSS page. [Delay] is the number of seconds between page checks. Anything under 2 minutes will be ignored.
;[Chans] is a list of the Channels for this Feed to display to. The dialog states the format as separated by a space. You can also separate them
;with a comma. Not Both, either or.!! Known bugs, Dialogs are out of order, so it tabs down and then back up.
;Questions, Comments: You can find me on irc.GeekShed.net #Script-Help
alias RSS1.0 {
  dialog -m RSSFeed1 RSSFeed1
}
dialog RSSFeed1 {
  title "RSS Feed 1.0"
  size -1 -1 104 136
  option dbu
  list 1, 8 16 90 82
  button "Add", 2, 8 104 29 12
  button "Delete", 3, 40 104 29 12
  button "Edit", 4, 72 104 29 12
  button "Close", 5, 8 120 93 12, ok cancel
  text "Click Add or Click a feed to Edit/Del ", 6, 8 8 89 8, center
}
dialog RSSFeed2 {
  title "RSS Feed 1.0 Add/Edit"
  size -1 -1 104 104
  option dbu
  edit "", 1, 8 16 42 10, autohs
  text "RSS Name", 2, 8 8 41 8, center
  edit "", 3, 8 40 90 10, autohs
  edit "", 4, 56 16 42 10, autohs
  text "Delay in Seconds", 5, 56 8 41 8, center
  text "RSS Feed Link - ie http://Rss.Bla", 6, 8 32 89 8, center
  edit "", 7, 8 64 90 10, autohs
  text "Chans for Feed Separate  w/Space", 8, 8 56 89 8
  button "Accept", 9, 8 80 37 12, ok
  button "Cancel", 10, 60 80 37 12, cancel
}
On *:dialog:RSSFeed1:init:*: {
  didtok RSSFeed1 1 32 %Global.Feed.List
}
On *:dialog:RSSFeed2:init:*: {
  did -a RSSFeed2 1 %Feed.Name
  did -a RSSFeed2 3 %Feed.Link
  did -a RSSFeed2 4 %Feed.Delay
  did -a RSSFeed2 7 %Feed.Chans
}
On *:dialog:RSSFeed1:Sclick:*: {
  if ($did == 2) {
    dialog -x RSSFeed1
    dialog -m RSSFeed2 RSSFeed2
  }
  if ($did == 3) {
    if ($did(1).sel) {
      .timerRSS [ $+ [ $gettok($hget(rssfeed,$did(1).seltext),1,32) ]  ] off
      hdel  RSSFeed $did(1).seltext
      did -d RSSFeed1 1 $did(1).sel
      set %Global.Feed.List $didtok(RSSFeed1,1,32)
      else { return }
    }
  }
  if ($did == 4) {
    if ($did(1).sel) {
      set %Feed.Name $did(1).seltext
      set %Feed.Link $gettok($hget(rssfeed,$did(1).seltext),1,32)
      set %Feed.Chans $gettok($hget(rssfeed,$did(1).seltext),2,32)
      set %Feed.Delay $gettok($hget(rssfeed,$did(1).seltext),3,32)
      dialog -x RSSFeed1
      dialog -m RSSFeed2 RSSFeed2
    }
    else { halt }
  }
}
On *:dialog:RSSFeed2:Sclick:*: {
  if ($did == 9) {
    if ($hget(rssfeed,%Feed.Name)) {
      .timerRSS [ $+ [ $gettok($hget(rssfeed,%Feed.Name),1,32) ]  ] off     
      hdel RSSFeed %Feed.Name
      set %Global.Feed.List $remove(%Global.Feed.List,$replace(%Feed.Name,$chr(32),-))
    }
    if (%Feed.Name.Temp) {
      if ($hget(rssfeed,$replace(%Feed.Name.Temp,$chr(32),-))) {
        .timerRSS [ $+ [ $gettok($hget(rssfeed,%Feed.Name.Temp),1,32) ]  ] off     
        hdel RSSFeed %Feed.Name.Temp
        set %Global.Feed.List $remove(%Global.Feed.List,$replace(%Feed.Name.Temp,$chr(32),-))
      }
      set %Feed.Name %Feed.Name.Temp
    }
    if (%Feed.Link.Temp) { set %Feed.Link %Feed.Link.Temp }
    if (%Feed.Delay.Temp) { set %Feed.Delay %Feed.Delay.Temp }
    if (%Feed.Chans.Temp) { set %Feed.Chans %Feed.Chans.Temp }
    if (!%Feed.Name) || (!%Feed.Link) || (!%Feed.Delay) || (!%Feed.Chans) { echo -a You must fill in all the boxes!!! | dialog RSSFeed2 | halt }
    unset *.Temp
    if (!$hget(RSSFeed)) { hmake RSSFeed 5 }
    hadd RSSFeed $replace(%Feed.Name,$chr(32),-) $remove(%Feed.Link,$chr(32)) $replace(%Feed.Chans,$chr(32),$chr(44)) $remove(%Feed.Delay,$chr(32))
    RSS.Feed $replace(%Feed.Name,$chr(32),-) $remove(%Feed.Link,$chr(32)) $replace(%Feed.Chans,$chr(32),$chr(44)) $remove(%Feed.Delay,$chr(32))
  set %Global.Feed.List %Global.Feed.List $replace(%Feed.Name,$chr(32),-) }
  unset %Feed.*
  dialog -m RSSFeed1 RSSFeed1
}
if ($did == 10) { unset *.Temp %Feed.* | dialog -m RSSFeed1 RSSFeed1 }
On *:dialog:RSSFeed2:edit:*: {
  if ($did == 1) { set %Feed.Name.Temp $did(RSSFeed2,1) }
  if ($did == 3) { set %Feed.Link.Temp $did(RSSFeed2,3) }
  if ($did == 4) { set %Feed.Delay.Temp $did(RSSFeed2,4) }
  if ($did == 7) { set %Feed.Chans.Temp $did(RSSFeed2,7) }
}
alias -l RSS.timeout {
  RSS.clear
}
alias -l RSS.clear {
  unset %RSS*
  sockclose RSS
  .timer-RSS off
  halt
}
On *:Text:!Rss.Status:#: {
  var %timer.num = $timer(0),%timer.timer = 1
  while (%timer.num) {
    if ($left($timer(%timer.num),3) == rss) {
      .timer 1 %timer.timer .msg $chan 07 $timer(%timer.num) = 04 $timer(%timer.num).com 06Next Check in09 $timer(%timer.num).secs 07Seconds
    }
    inc %timer.timer
    dec %timer.num
  }
}
alias -l RSS.Status {
  var %timer.num = $timer(0)
  while (%timer.num) {
    if ($left($timer(%timer.num),3) == rss) { echo -at 07 $timer(%timer.num) = 04 $timer(%timer.num).com }
    dec %timer.num
  }
}
alias RSS.Feed {
  RSS $1 $2 $remove($3,$chr(32))
  if ($4) && ($4 >= 120) { .timerRSS $+ $2 -o 1 $4 RSS.Feed $1 $2 $3 $4 }
  if (!$4) || ($4 < 120) { .timerRSS $+ $2 -o 1 120 RSS.Feed $1 $2 $3 }
}
alias -l RSS {
  set %RSS.chans $3
  set %RSS.name $1
  sockclose RSS
  set %RSSsite $gettok($remove($2,http://),1,47)
  set %RSSurl $remove($2,http://,%RSSsite)
  if (!$hget(%RSSsite)) { hmake %RSSsite 10 }
  set %RSS.Count 1
  set %RSS.Max 4
  sockopen RSS %RSSsite 80
  .timer-RSS 1 20 RSS.timeout
}
on *:sockopen:RSS: {
  sockwrite -nt $sockname GET %RSSurl HTTP/1.0
  sockwrite -n $sockname User-Agent: Opera 9.6
  sockwrite -n $sockname Host: %RSSsite $+ $CRLF $+ $CRLF
}
on *:sockread:RSS: {
  if ($sockerr > 0) { echo -at There has been an error... >RSS1.0<>Sock Error< |  RSS.clear }
  else {
    var %RSSvar |  sockread %RSSvar
    if (<entry> isin %RSSvar) { set %RSS.Start on }
    if (</entry> isin %RSSvar) || (</item> isin %RSSvar) {
      set %RSS.Dup Off
      if ($hfind(%RSSsite,$right($remove(%RSS.title,$chr(32)),70))) { set %RSS.Dup ON }
      if (%RSS.Dup == Off) && (%RSS.Count <= %RSS.Max) {
        set %RSS.Output 1
        while $gettok(%RSS.Chans,%RSS.Output,44) {
          if ($gettok(%RSS.Chans,%RSS.Output,44) ischan) {
            .msg $gettok(%RSS.Chans,%RSS.Output,44) 04 $+ %RSS.Name 07 $+ $remove(%RSS.Title,&amp;,&quot;,&gt;) 06 $+ $replace($nospace(%RSS.Link),$chr(32),$chr(37) $+ 20)
          }
          inc %RSS.Output
        }
        inc %RSS.Count
        ;echo -a $replace(%RSS.Link,$chr(32),$chr(37) $+ 20)
      }
      hadd %RSSsite $right($remove(%RSS.title,$chr(32)),70) %RSS.Link $+ $chr(7) $+ %RSS.Title $+ $chr(7) $+ %RSS.Date $+ $chr(7)
    }
    if (<title> isin %RSSvar) {
      set %RSS.Title $gettok($replace(%RSSvar,<title>,$chr(7),</title>,$chr(7)),2,7)
    }
    if ($left(%RSSvar,7) == <title>) {
      set %RSS.Title $remove(%RSSvar,<title>,</title>)
    }
    if (<link href=" isin %RSSvar) {
      set %RSS.Link $nospace($remove(%RSSvar,<link href="," />))
    }
    if (<link> isin %RSSvar) {
      set %RSS.Link $gettok($replace(%RSSvar,<link>,$chr(7),</link>,$chr(7)),2,7)
    }
    if ($left(%RSSvar,6) == <link>) {
      set %RSS.Link $remove(%RSSvar,<link>,</link>)
    }
    if  (<updated> isin %RSSvar) {
      set %RSS.Date $gettok($replace(%RSSvar,<updated>,$chr(7),</updated>,$chr(7)),2,7)
    }
    if ($left(%RSSvar,9) == <updated>) {
      set %RSS.Date $remove(%RSSvar,<updated>,</updated>)
    }
    if (<pubdate> isin %RSSvar) {
      set %RSS.Date $gettok($replace(%RSSvar,<pubdate>,$chr(7),</pubdate>,$chr(7)),2,7)
    }
    if ($left(%RSSvar,9) == <pubdate>) {
      set %RSS.Date $remove(%RSSvar,<pubdate>,</pubdate>)
    }
    if (</feed> isin %RSSvar) || (</rss> isin %RSSvar) || (</channel> isin %RSSvar) { RSS.Clear }
  }
}
alias -l RSS.StartUp {
  var %num = $hget(rssfeed,0).item, %delay = 5
  while (%num) {
    .timer 1 %delay RSS.Feed $hget(rssfeed,%num).item $gettok($hget(rssfeed,%num).data,1,32) $gettok($hget(rssfeed,%num).data,2,32) $gettok($hget(rssfeed,%num).data,3,32)
    inc %delay 7
    dec %num
  }
}
alias -l flink {
  var %find.link = $1-,%found.link
  while ($left(%find.link,4) != http) && ($len(%find.link) > 8) {
    %found.link = $right(%find.link,$calc($len(%find.link) - 1))
  }
  return %found.link
}
alias -l nospace {
  var %space.check = $1-
  while ($left(%space.check,1) == $chr(32)) { %space.check = $right(%space.check,$calc($len(%space.check) - 1)) }
  while ($right(%space.check,1) == $chr(32)) { %space.check = $left(%space.check,$calc($len(%space.check) -1)) }
  return $replace(%space.check,&amp;,&)
}
alias -l httpstrip {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
On *:Connect: {
  if (!$hget(RSSFeed)) { hmake RSSFeed 5 }
  RSS.StartUp
}
On *:Start: {
  if (!$hget(RSSFeed)) { hmake RSSFeed 5 }
  if ($isfile(RSSFeed.hsh)) { hload -s RSSFeed RSSFeed.hsh }
}
On *:Exit: {
  if ($hget(RSSFeed)) { hsave RSSFeed RSSFeed.hsh }
  hfree RSSFeed
}
On *:Disconnect: {
  if ($hget(RSSFeed)) { hsave RSSFeed RSSFeed.hsh }
}
On *:Unload: {
  hfree RSSFeed
}
menu * {
  -
  .RSSFeed1.0
  ..Dialogs:RSS1.0
  ..List Feeds:RSS.Status
  - 
}
kendi scriptine eklersen başkası görür sen görmezsin kanala postaladıklarını.mirc-bot olarak kullandığın bir başka mirc'iniz varsa ona ekleyin.delay süresini çok kısa tutmamaya özen gösterin aksi halde aynı şeyleri 2-3 tekrar postalayabilir.yada en güzeli bunu boş verinde eggdrop kurun. kanala sokun içine atın rss-feed scriptini,haber okuyucusunu vs.. o 7/24 atıp dursun bknz -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Pargali 26 Aralık 2011 05:23
Cevap: haber botu
 
Kod:
;#######################################
;##### SON DAKİKA SPOR HABERLERİ #######
;Edit:Kod içerisinde belirtilen #KANAL kısmı düzenlenmeli
;Sistem:Kodu ekleyen nick,o andan itibaren ajanslara haber düştükçe #KANAL'a aktarır.
;Start:Sunucudan bağlantı kesilmeli ardından connect olunmalı
;#####
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:spor: {
  tokenize 33 $sock($sockname).mark
  $2 GET /sondakika.asp?son_dakika=spor HTTP/1.1
  $2 Host: $sock($sockname).addr
  $2 $crlf
}
on *:sockread:spor: {
  tokenize 33 $sock($sockname).mark
  if ($sockerr) { $1 $sock($sockname).wsmsg | return }
  else {
    var %spor | sockread %spor
    if $regex(%spor,$5) {
      if $read(spor.txt,w,$+(*,$regml(1),*)) { sockclose $sockname | halt }
      else { $3 $regml(2) $regml(1) }
      $iif(!%sporguard,$1 $+(,$regml(2),,$chr(32),02,$regml(1)))
    }
    $iif(!%sporguard,$iif($regex(%spor,$4),$1 $regml(1)))
  }
}
alias -l sport {
  if $sock(spor) { sockclose $v1 }
  sockopen spor sondakika.haberler.com 80
  sockmark spor msg #KANAL!sockwrite -n spor!write spor.txt!/<p>(.+)<\/p>/gi!/<a href="http:\/\/(\S+)">(.+)</a></h3>/gi
}
on *:connect:.timerdify 0 60 sport | set -u30 %sporguard open | sport

Not ; Coded By ; Difuzyon

Heartbroken 26 Aralık 2011 10:01
Cevap: haber botu
 
Pargali :

1- verdiğin kod halihazırda bu forumda var olan bir kod.arayan herkez bulabilirdi.

2- bu kod sadece belli bir rss feed'ine göre ayarlanmış başka bir yer rss çekmesi için kodun yarısını değişmek gerekir.

3- bu kod bu konu içersinde daha soruyu sorana ilk cevap yazan toXic tarafından önerilmiş.ilk sayfaya bakarsan görebilirsin.

4- istekte bulunan arkadaşta bunun çalışmadığını cevap olarak bildirmiş..

sonuç : yukarda verdiğim kod istekte bulunan kişinin ihtiyacını karşılar nitelikte olup,bu forumda daha evvel paylaşılmamış bir koddur.

halihazırda çalışan bir koddur.istenen rss feed/ler eklenebilir.istenen kanallara göre ayarlanabilir.

velasıl bunun son* olması gerekirdi.daha bunun üstüne kod postalanması beklenen bir durum değil.olsa olsa isteği yapmış olan kişiden bir cevap-soru beklenebilirdi.

not: teşekkür için sağ alttaki teşekkür et* butonunu kullanın lütfen .bunun yerine attığınız her eline sağlık,aman çok güzel olmuş vs gibi gereksiz postlar konuya yeni mesaj atıldı olarak kalın yazıyla gösteriliyor forumda.sabah girip bakalım neler yeni yazılmış diye kontrol ederken bu kalın yazılmışlara bakıyoruz ve boş yere sizin attığınız 7-8 ellerine sağlık , çok güzel olmuş vs gibi luzümsüz postaları okumak-dolaşmak zorunda kaldık ..

selamlar,saygılar vs vs..

kheldor 17 Ekim 2013 16:01
Cevap: haber botu
 
Kod:
;#######################################
;##### SON DAKİKA SPOR HABERLERİ #######
;Edit:Kod içerisinde belirtilen #KANAL kısmı düzenlenmeli
;Sistem:Kodu ekleyen nick,o andan itibaren ajanslara haber düştükçe #KANAL'a aktarır.
;Start:Sunucudan bağlantı kesilmeli ardından connect olunmalı
;#####
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:spor: {
  tokenize 33 $sock($sockname).mark
  $2 GET /sondakika.asp?son_dakika=spor HTTP/1.1
  $2 Host: $sock($sockname).addr
  $2 $crlf
}
on *:sockread:spor: {
  tokenize 33 $sock($sockname).mark
  if ($sockerr) { $1 $sock($sockname).wsmsg | return }
  else {
    var %spor | sockread %spor
    if $regex(%spor,$5) {
      if $read(spor.txt,w,$+(*,$regml(1),*)) { sockclose $sockname | halt }
      else { $3 $regml(2) $regml(1) }
      $iif(!%sporguard,$1 $+(,$regml(2),,$chr(32),02,$regml(1)))
    }
    $iif(!%sporguard,$iif($regex(%spor,$4),$1 $regml(1)))
  }
}
alias -l sport {
  if $sock(spor) { sockclose $v1 }
  sockopen spor sondakika.haberler.com 80
  sockmark spor msg #bitturk!sockwrite -n spor!write spor.txt!/<p>(.+)<\/p>/gi!/<a href="http:\/\/(\S+)">(.+)</a></h3>/gi
}
on *:connect:.timerdify 0 60 sport | set -u30 %sporguard open | sport


Alıntı:
Bot aktif ancak bir anda kanalı flood manyağına çeviriyor.

Örnek veriyorum satır satır 15-30dk arayla 1 satır yansıtabilir mi ?

Feragat 18 Ekim 2013 09:44
Cevap: haber botu
 
Alıntı:
kheldor Nickli Üyeden Alıntı (Mesaj 1041351947)
Bot aktif ancak bir anda kanalı flood manyağına çeviriyor.
Örnek veriyorum satır satır 15-30dk arayla 1 satır yansıtabilir mi ?
Kod:
;#######################################
;##### SON DAKİKA SPOR HABERLERİ #######
;Edit:Kod içerisinde belirtilen #KANAL kısmı düzenlenmeli
;Sistem:Kodu ekleyen nick,o andan itibaren ajanslara haber düştükçe #KANAL'a aktarır.
;Start:Sunucudan bağlantı kesilmeli ardından connect olunmalı
;#####
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:spor: {
  tokenize 33 $sock($sockname).mark
  $2 GET /sondakika.asp?son_dakika=spor HTTP/1.1
  $2 Host: $sock($sockname).addr
  $2 $crlf
}
on *:sockread:spor: {
  tokenize 33 $sock($sockname).mark
  if ($sockerr) { $1 Baglanti Hatasi $sock($sockname).wsmsg | return }
  else {
    var %spor | sockread %spor
    if $regex(%spor,$5) {
      if $read(spor.txt,w,$+(*,$regml(1),*)) { return }
      else { $3 $regml(2) $regml(1) }
      $iif(!%sporguard,$1 $+(,$regml(2),,$chr(32),02,$regml(1)))
    }
    $iif(!%sporguard,$iif($regex(%spor,$4),$3 $regml(1)))
  }
}

alias -l kanalim return msg #Kanal

alias -l sport {
  write -c spor.txt
  if $sock(spor) { sockclose $v1 }
  sockopen spor sondakika.haberler.com 80
  sockmark spor $kanalim $+ !sockwrite -n spor!write spor.txt!/<p>(.+)<\/p>/gi!/<a href="http:\/\/(\S+)">(.+)</a></h3>/gi
  .timer 1 3 play -a $kanalim spor.txt 60000
}
on *:playend:if ($gettok($filename,-1,92) == spor.txt) { $kanalim Spor Haberleri Sonu.. | .timerdify 1 300 sport }
on *:connect:.timerdify 1 60 sport | set -u30 %sporguard open | sport
Kodu ekleyen Nick/Bot vs., sunucuya girdikten 1 dakika sonra aktivite başlar. Her satırı 1 dakika arayla belirtilen kanala okur. Satırları okuma işlemi bittikten 5 dakika sonra yeniden başlatır ve 1 dakika arayla tekrar okur.
Bu bölümdeki #Kanal yazan kısıma yazıları yansıtmasını istediğin kanalı yaz.
Kod:
alias kanalim return msg #Kanal
Aynı şekilde süreleri de kendine göre değiştirebilirsin.
Kod:
timer 1 3 play -a $kanalim spor.txt 60000
Buradaki 60000 - 60 saniye demektir(milisaniye cinsinden), ona göre satır okuma süresi vermelisin.
Burada ise
Kod:
.timerdify 1 300 sport
Spor haberlerini okumayı yeniden başlatacağı zaman var. 300 saniye yani 5 dakika. Süre değişikliğinde bunları göz önünde bulundurup hesapla ve değiştir.
Kısa süreli denedim, bir problem gözükmedi. İyi forumlar.

kheldor 18 Ekim 2013 11:38
Cevap: haber botu
 
An itibari ile sorunsuz calısmakta. Teşekkürler.

kheldor 18 Ekim 2013 19:29
Cevap: haber botu
 
Sevgili FERAGAT Merhaba. Kodu ekledik ve sorunsuz calısıyor ancak şöyle bir sıkıntı söz konusu

[18:53:21] <~BiTTuRK> Niersbach, Alman Milli Takımı'nın 2006 yılından bu yana Dünya Kupası ve Avrupa Şampiyonalarında en iyi ilk 4 takım arasında yer aldığını belirterek, "Tüm bu başarılara Joachim Löw ve ekibini...

[19:03:21] <~BiTTuRK> Bursa yarışlarında altılı ganyan 87.005,45 lira ikramiye verdi
[19:13:21] <~BiTTuRK> Türkiye Kadınlar Basketbol Ligi'nin yeni takımlarından Orduspor'un antrenörü Alper Durur, yarın sahalarında Beşiktaş ile oynayacakları sezonun ilk maçına ilişkin, "Taraftarımızın desteği...

[19:23:21] <~BiTTuRK> Bursaspor Teknik Direktörü Christoph Daum, Spor Toto Süper Lig'de 21 Ekim Pazartesi akşamı sahalarında yapacakları Kayserispor maçıyla ilgili, "Ne olursa olsun önümüzdeki müsabakayı kazanma ...

... diyor mesajın devamını yansıtmıyor. 1 alt satıra bazı haberlerde geçiyor bazılarında geçmiyor ? Bunu anlayamadım. Teşekkürler.

Feragat 18 Ekim 2013 21:07
Cevap: haber botu
 
Alıntı:
kheldor Nickli Üyeden Alıntı (Mesaj 1041352329)
Sevgili FERAGAT Merhaba. Kodu ekledik ve sorunsuz calısıyor ancak şöyle bir sıkıntı söz konusu

[18:53:21] <~BiTTuRK> Niersbach, Alman Milli Takımı'nın 2006 yılından bu yana Dünya Kupası ve Avrupa Şampiyonalarında en iyi ilk 4 takım arasında yer aldığını belirterek, "Tüm bu başarılara Joachim Löw ve ekibini...

[19:03:21] <~BiTTuRK> Bursa yarışlarında altılı ganyan 87.005,45 lira ikramiye verdi
[19:13:21] <~BiTTuRK> Türkiye Kadınlar Basketbol Ligi'nin yeni takımlarından Orduspor'un antrenörü Alper Durur, yarın sahalarında Beşiktaş ile oynayacakları sezonun ilk maçına ilişkin, "Taraftarımızın desteği...

[19:23:21] <~BiTTuRK> Bursaspor Teknik Direktörü Christoph Daum, Spor Toto Süper Lig'de 21 Ekim Pazartesi akşamı sahalarında yapacakları Kayserispor maçıyla ilgili, "Ne olursa olsun önümüzdeki müsabakayı kazanma ...

... diyor mesajın devamını yansıtmıyor. 1 alt satıra bazı haberlerde geçiyor bazılarında geçmiyor ? Bunu anlayamadım. Teşekkürler.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod son dakika spor haberlerinin bulunduğu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sitede yayınlanan başlıkları kanala yansıtacak şekilde yapılmış. Yani sitede yayınlandığı şekilde çekiyor.(Kısa başlıklar şeklinde) Sitenin linkinden kontrol ettim ve kodu tekrar denedim. İşleyiş konusunda bir problem yok. Fakat eğer kodu ekleyen Nick/Bot Oper-Admin yetkisine sahipse (Spamfilterlerden etkilenme olasılığı için söylüyorum.) Spor haberleri okunup bittikten sonra sonuna kaynak sitenin linkinide ekleyebilirsin, haberi merak eden girip siteden daha ayrıntılı bilgi edinip Spor haberlerini okusun diye.

Alttaki bölümü;
Kod:
on *:playend:if ($gettok($filename,-1,92) == spor.txt) { $kanalim Spor Haberleri Sonu.. | .timerdify 1 300 sport }
Bununla değiştirin;
Kod:
on *:playend:if ($gettok($filename,-1,92) == spor.txt) { $kanalim Spor Haberleri Sonu..  Kaynak Site: http://sondakika.haberler.com/sondakika.asp?son_dakika=spor | .timerdify 1 300 sport }
İyi forumlar.


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk