Haber \ Son Dakika
 

on *:sockopen:sdk*: {
if ($sockerr) .msg $remove($sockname,sdk*) Bağlantı Kurulamadı...!
else {
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n $sockname $crlf
}
}
on *:sockread:sdk*: {
var %sd
sockread %sd
if (color="maroon"> isin %sd) set %saat $htmlfree(%sd)
if (sondakika.asp?a= isin %sd) {
var %url = $remove($gettok(%sd,3,32),onClick="MM_openBrWindow ,$chr(40),'sondakika.asp?a=,sd,width=500,height=40 0,top=20,left=20,scrollbars=yes,$chr(9),$chr(44),' ) | .msg $remove($sockname,sdk*) $+(,%saat,$chr(32),--,$chr(32),4,$htmlfree(%sd),$chr(32),--,$chr(32),7,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) }
}
on *:text:*:#HaberLer: {
if ($1 == !sondk) {
.msg $nick Son Dakika Haberleri Alınıyor.Lütfen bekleyiniz...
sockclose $+(sdk*,$nick)
sockopen $+(sdk*,$nick) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x } }



Alinti..


Bunun uzerinde bakinmistimda.Bir turlu hurriyetim.com.tr son dk haberleri,kanal geneli zamanlamali yansitmayi yapamadim.
Yardımcı olabilcek olan¿
Tskler.

Cevap: Haber \ Son Dakika
 

ben az once baktim hurriyetinkinede sorun cikti saglikli bilgi alamadim siteden illa hurriyet mi olsun milliyet kurtarmaz mi dersin

Cevap: Haber \ Son Dakika
 

milliyette olabilir cnnturk olabilir=) farketmez saol ılgılendıgın için

Cevap: Haber \ Son Dakika
 

OzeLe İsimleri verior ama Link'lere geldimi Neden bu hatayı verıor ?

İstediğiniz işlemi şu an gerçekleştiremiyoruz. Lütfen daha sonra tekrar deneyiniz.

Cevap: Haber \ Son Dakika
 

walla işte bende milliyet veya ekolay veya cnnturk gibi sitelerden haberleri alip, herhangi bir kanal geneli son dk lari otomatik aktarması adına konu açtım.Umarım yapabilecek olan bir arkadaşımız wardır bakalım artık.
Olursa eğer güzelb irşey
Ben cok uğraştımda hep hata verdi vardır bir eksiklik.

Cevap: Haber \ Son Dakika
 

Bu kodu
aşağıdaki gibi değiştirdiğinizde sorun çözümlenecektir;
Iyi Çalışmalar ..

Cevap: Haber \ Son Dakika
 

Sagolasinda
Baska siteden almak istesek son dk lar
bu konuda yardimci olabilirmisin

Cevap: Haber \ Son Dakika
 

sanirim bu kod isini gorebilir !sondakika basla yazinca 40 snde bir sondakika haberlerini kanala yansitir, !sondakika dur haberlerin yazilmasini durdurur kanala.
.vakit olursa daha derli toplu bir add-on haline getirebilirim
* rss aliasi alintidir gerisi bana ait

Cevap: Haber \ Son Dakika
 

Tesekkur ediyorum detay sagol.Eline emegine saglik..

Cevap: Haber \ Son Dakika
 

Detay rahatsiz ediyorm ama:)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
ornegin bunu okutmak isteyince olmuyor
neden olabilir
eksik nerde yapiyorumdur.

Cevap: Haber \ Son Dakika
 

Tekrar etmesi icin ne yapmak gerekiyor birde bunu soracaktim size sordum:)

-
* /play: topic '[122]' not found in 'hurriyet.txt' (line 71, 38.mrc)
-
* /play: topic '[123]' not found in 'hurriyet.txt' (line 71, 38.mrc)
-

bu hatayida veriyor bide suan durmus vaziette

Cevap: Haber \ Son Dakika
 

Aktarim bitince bu hatayi veriyor, bu kod uzeri aktarma sagliyabilirmisin tekrari yani
ve guncelleme yapildiginda yeni konu eklendiginde Flash haber gibisinden konuyu kesicek yeni olani aktaricak gibi gibi
yapamadimda ben.

Cevap: Haber \ Son Dakika
 

birde söyle bişey ekleyebilirmiyiz.

mesela

[22:38] <@Koruma> #haber Konu Başlığı : UEFA'dan yeni sari kart kurali
[22:38] <@Koruma> #haber Açıklama : UEFA Yonetim Kurulu, Euro 2008'de gecerli olmak uzere bundan sonraki turnuvalarda gorulen sari kartlarin ceyrek finalden sonraki asamalarda silinecegini acikladi.
[22:38] <@Koruma> #haber Devami icin : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[22:38] <@Koruma> #haber Tarih : Sali, 20 mayis 2008 15:52:29

Bunu yazdıktan sonra Arada 2 Defa Boşluk yapıp daha sonra diger haberi yazmasını saglayabilirmiyiz bu sekilde üst üste yazdıgında karısıklık oluyor..

Cevap: Haber \ Son Dakika
 

suanlik sadece hurriyete gore yaptim digerlerine gorede yaparim, gonderilecek haber bittiginde durdurma ozelligini unutmusum demekki simdi onu da ekledim cybersoft'un dedigi haberler arasina bosluk ekleme olayinini da ekledim.

guzel is cikardin tesekkur ederim.
ben denedim kanal ve yerleri degiserek baska rss ekledim
calisiyor fakat sorun cikarior cakisiyor sanirim)

:D calismadi
[05:40] <&Bot> Son dakika haber akisi baslatildi..
[05:40] <&Bot>
[05:40] <&Bot>
[05:40] <&Bot>

boyle kali verdi..
bide bu ayni konulari tekrar ediyormu artik?

rssler degısıyor ayarlanıyorda o cakısmaya çare bulunamazmı bos vaktınde bakarsan eyw tskederm hersey ıcın

Cevap: Haber \ Son Dakika
 

Aktarimi cok hizli yapiyor 1 dk falan arayla veya 40 saniyede bir falan olsa iyi olurdu,nasil yapabilirim 0 10 yazan yeremi yazmam gerekiyor,ve ne yazmam gerekiyor:)

Cevap: Haber \ Son Dakika
 

eiS Neden Her bir Posta Kendı Kendıne Cevap Verıyorsun ? Sabredip BekLesen Veya bir Post Acip butun Herseyi Ona yazsan ? Daha iyi oLmazmi ?

Cevap: Haber \ Son Dakika
 

nolmus yazdıklarım cokmu yer kapmıs.Konuyu ben açtım dıleyen ıstedıgı kdr yazsın
takip et ne yazılıyosa sonuc olarak tek konu
duzeltme oldugundada ılk yazdıgı yerı duzeltıyor

Cevap: Haber \ Son Dakika
 

Birden cok mesaj yazmak yerine edit özelligini kullanirsaniz daha iyi olur, bu arada cakisma dediginiz nedir onu anlayamadim

Cevap: Haber \ Son Dakika
 

Tamam ayarladim detay sagolasin.Hata veriyordu
Komut islemi yapilmadan tekrar olayini nasil saglarim onu ogrenmek istiyorum
!sondakika basla
dedikten sonra devamli aktarma yapmasini saglamak icin ne yapmam gerekiyor

Cevap: Haber \ Son Dakika
 

alias _rmsg {
if !%a { set %a 1 } | else { inc %a | msg $1 $chr(160) | msg $1 $chr(160) }
$iif($readini(hurriyet.txt,%a,title),.play $+(-at,%a) degistir $1 hurriyet.txt,durdur)
}
durdur yazan yeri unset %a olarak degistir

Cevap: Haber \ Son Dakika
 

tmm denicem
kusura bakma fakat bu timer 0 20 olarak ayarlanmis, ben bunu 2 dakka ayarlamak istiyorum, bir turlu tutturamadim:) timer hakkinda arastirmada yaptimda saniye dakka olaylari falan yeterli konu bulamadim.yardımc olrmsnz tsk

Cevap: Haber \ Son Dakika
 

Çakışıyor derken ,

alias _rmsg {
if !%a { set %a 1 } | else { inc %a | msg $1 $chr(160) | msg $1 $chr(160) }
$iif($readini(hurriyet.txt,%a,title),.play $+(-at,%a) degistir $1 hurriyet.txt,durdur)
}
durdur yazan yeri unset %a olarak degistir


bu vermis oldugunuzu ekledikten sonra
Ayrı ayrı kanallarda çakışmaması için ne yapabilirim.
Yani;

Kültür
Spor
Haber
vb sureklı 2 dk ıcınde 7/24 tekrar yapacak
!sondakika dur dediğimde diğer odada ne calısıyor nede baslıyor cozemedim bunu.Bİrde merkez bir kanalda ornegin #komut , burdada komutlari uygulansin, !sondakika basla , sondakika dur gibi
Her kanala ayri olcak ve cakismicak
Simdiden tskederm

Cevap: Haber \ Son Dakika
 

ben hep bir kanala gore dusunmustum cok kanali desteklemesi icin
on *:text:!sondakika ile baslayan eventi silip yerine asagidakini yerlestirmelisin

Cevap: Haber \ Son Dakika
 

him evet
Bide bunu 5.dk ya yukseltip
Tek bir merkez kanalda komut islemesini saglamak
Deneyim yapabilirmiyim acep.

Cevap: Haber \ Son Dakika
 

eis istersen takla attiralim koda (: bi o kaldi. timerdaki 0 dan sonda gelen sayiyi
300 yapicaksin ki 5dk da bir yollasin tek bir merkezden yollama isini de sana birakiyorum yoksa boyle olmicak surup gider bu ortada bi caba yok

Cevap: Haber \ Son Dakika
 

ii peki:D saol herse ıcın

Cevap: Haber \ Son Dakika
 

detay çalışmadı kardeşim

Cevap: Haber \ Son Dakika
 

evet sorun oldu
detay senden ricam

kodlari birlestirip duzenlermisin hic calismadi hata vermedi

Merkez kanal olsun istiyordum
her kanala ayri komut islemesi ve cakismamasi icin kod vermistin fakat ne hata verdi nede calisti.

merkez kanalda > !sondakika basla
!hurriyet basla
vb gibi her odaya olsun istedim
ve basla diyince 24 saat aktarma istemistim
olmadi yapamadim.


yardımcı olursan svınırım.

Cevap: Haber \ Son Dakika
 

arkadaslar eklediginiz mirc 6.3 ten dusuk olmali 6.2x , 6,1x versiyonlarında sorunsuz calisir ben test ettim.

Cevap: Haber \ Son Dakika
 

hata verio bakarmısınız.
[17:09] <YaSiN> !sondakika basla
[17:09] <sevgi> Sondakika Haber Özeti akışı Başlatildi.
> RSS Yalnış komut.
> _RMSG Yalnış komut.
> _RMSG Yalnış komut.
> _RMSG Yalnış komut.
> _RMSG Yalnış komut.
> _RMSG Yalnış komut.
> _RMSG Yalnış komut.

Cevap: Haber \ Son Dakika
 

ya arkadasim aliasi düzgün eklemezsen ayrac hatasi yaparsan bu tür hatayla karsilasman muhtemel yahu forumda size kod yazmaniza yardimci olmaya calisiyoruz ama daha calisan kodu ekletip calistirmasini gosteremedik, bakın simdi ilk yazdigim kodu tamamiyle kopyalayip script editorunuzde remote sayfasina yapistiriyosunuz.

Cevap: Haber \ Son Dakika
 

:D tamam çösdüm sanırım bitirdğimde sizinlede baylaşırım;)

Cevap: Haber \ Son Dakika
 

Kodu ekolayda kullanmıştım bir kaç ayar verdim düzgün çalışıyordu bulduğumda size aktarabilirim güzel birşey

Cevap: Haber \ Son Dakika
 

Kod:

alias rss {
var %e = !echo $color(info) -a * Rss:, %r = return $false
if ($os isin 9598) { %e this snippet requires Windows ME or higher | %r }
if ($version < 5.91) { %e this snippet requires atleast mIRC 5.91 or higher | %r }
if (!$regex(%e,$1-,/^-[fhi] \S+ \S+$/i)) {
%e Syntax: /rss <-fhi> <url> <file|htb> or $!rss(-fhi, url, file|htb) | %r
}
var %flag = $mid($1,2), %filepath
if (%flag == h) %filepath = " $+ $mircdirtmprss"
else {
var %dir = $nofile($3-), %file = $nopath($3-)
if (%file != $mkfn(%file)) { %e file %file contains illegal characters. | %r }
if (* !iswm %dir) %dir = $mircdir
elseif (!$isdir(%dir)) { %e no such folder %dir | %r }
%filepath = $+(",%dir,%file,")
}
var %w = $+(@rss,$ticks,$r(1111,9999),.vbs), %a = aline %w, %size, %n = $lf
write -c %filepath
window -h %w
%a Function nohtml(byref string)
%a set regex = new regexp
%a regex.global = true : regex.pattern = "<[^>]*>|[\r\n\177]+" : nohtml = regex.replace(string,"")
%a set regex = nothing
%a End Function
%a set xml = createobject("msxml.domdocument") : set ado = createobject("adodb.stream")
%a ado.open : ado.type = 2 : ado.charset = "ascii"
%a xml.validateonparse = false : xml.async = false : xml.load " $+ $2"
%a for each item in xml.getelementsbytagname("item")
if (%flag == i) {
%a i = i + 1
%a ado.writetext "[" & i & "]",1
%a for each node in item.childnodes
%a if node.text <> "" then ado.writetext node.nodename & "=" & nohtml(node.text),1
%a next %n ado.writetext vbcrlf
}
else {
%a for each node in item.childnodes
%a name = node.nodename
%a if name = "açıklama" then %n desc = name & ": " & nohtml(node.text)
%a elseif name = "adres" or name = "Başlık" then %n tmp = tmp & name & ": " & nohtml(node.text) & chr(127)
%a end if %n next
if (%flag == h) %a i = i + 1 %n ado.writetext i & chr(10) & left(tmp & desc,920) & chr(10)
else %a ado.writetext left(tmp & desc,920) & vbcrlf
%a tmp = null
}
%a next %n ado.savetofile %filepath ,2 : ado.close %n set ado = nothing : set xml = nothing
savebuf %w %w | close -@ %w
.comopen %w wscript.shell
if (!$comerr) .comclose %w $com(%w,run,1,bstr*,%w,uint,0,bool,true)
.remove %w
if (%flag == h) {
if ($hget($3)) hfree $3
hmake $3
hload $3 %filepath
.remove %filepath
%size = $hget($3,0).item
}
else %size = $file(%filepath)
if ($isid) return $iif(%size,$true,$false)
if ($show) {
if (!%size) msg %rss websitesinden verilere ulasilamiyor. $2
;else %e Finished retrieving info from $2 (saved to $iif(%flag == h,hash table:,file:) $3-)
}
return
:error
if ($com(%w)) .comclose %w
if ($isfile(%w)) .remove %w
if ($window(%w)) close -@ %w
}
alias degistir { say $replace($1-,GMT,$null,$1,$null,apr,nis,agu,agustos,jan,ocak,f eb,şubat,mar,mart,may,mayis,jun,haziran,jul,temmuz ,sep,eylül,oct,ekim,nov,kasım,dec,aralık,Mon,Pazar tesi,Tue,Sali,Wed,Carsamba,Thu,Persembe,Fri,Cuma,S at,Cumartesi,Sun,Pazar,title=,04Konu Başlığı:02,description=,4Açıklama:02,pubdate=, 04Tarih:02,link=,$+(04Devami icin:02,$chr(32))) }
alias _rmsg {
if !%a { set %a 1 } | else { inc %a | msg $1 $chr(160) | msg $1 $chr(160) }
$iif($readini(Dünya.txt,%a,title),.play $+(-at,%a) degistir $1 Dünya.txt,durdur)
}
on *:text:!Dünya*:#: {
if $2 == Gündem {
if $timer(rss) { msg $chan Sondakika haberleri zaten acik! | halt }
else {
var %z = $shortfn($mircdirDünya.txt),%a = 1 | if $exists(%z) { .remove %z }
rss -i [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Dünya.txt | msg # 13,13 0,6 CnnTürk ( Dünya Gündemi , neler oluyor dünya'da¿ ) Özetlerinin Akışı Başlatıldı.13,13  | .timerrss 0 120 _rmsg $chan
}
}
if $2 == dur && $timer(rss) { .timerrss off | msg #KanalAdı 13,13 0,6 CnnTürk ( Dünya Gündemi ) Özetlerinin Akışı Durduruldu.13,13  | halt }
}
alias durdur { .timerrss off | unset %a }





Bu şekilde mrc uzantılı dosya açıp yerleştir ve hangi kanalda uygulamak istiyor isen , !dünya gündem < yazarak devreye girecektir, rss'lerden güncel bilgileri aktaracaktır 2 dakka aralıkla . Durdurmak için ise , !dünya dur < komutu ile durdurabilir değişik rss'ler ekleyip değiştirirsin artık !kelebek gündem !hürriyet gündem vs..
Kafana takılan birşey olur ise elimden geldiğince yardımcı olurum.

Detay'a merci emeğine sağlık.

Cevap: Haber \ Son Dakika
 

Sağolasın işe yaradı detay ve pop sağol

Cevap: Haber \ Son Dakika
 

Ne demek:o) işe yarasında..