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..