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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Haber \ Son Dakika (https://www.ircforumlari.net/mirc-scripting-sorunlari/69782-haber-son-dakika.html)

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, ,$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

Alıntı:

goKhaN` Nickli Üyeden Alıntı (Mesaj 421080)

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.

Bu kodu

Kod:

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*)

aşağıdaki gibi değiştirdiğinizde sorun çözümlenecektir;

Kod:

var %url = $remove($gettok(%sd,3,32),onClick="MM_openBrWindow ,$chr(40),'sondakika.asp?a=,sd,width=500,height=400,top=20,left=20,scrollbars=yes,$chr(9),$chr(44),' ) | .msg $remove($sockname,sdk*)

Iyi Çalışmalar ..

Cevap: Haber \ Son Dakika

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

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,feb,şubat,mar,mart,may,mayis,jun,haziran,jul,temmuz,sep,eylül,oct,ekim,nov,kasım,dec,aralık,Mon,Pazartesi,Tue,Sali,Wed,Carsamba,Thu,Persembe,Fri,Cuma,Sat,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(hurriyet.txt,%a,title),.play $+(-at,%a) degistir $1 hurriyet.txt,durdur)

}

on *:text:!sondakika*:#: {

  if $2 == Basla {

    if $timer(rss) { msg $chan Sondakika haberleri zaten acik! | halt }

    else {

      var %z = $shortfn($mircdirhurriyet.txt),%a = 1 |  if $exists(%z) { .remove %z }

      rss -i http://rss.hurriyet.com.tr/rss.aspx?sectionId=1 hurriyet.txt |  msg # Sondakika Haber Özeti akışı Başlatildi. |  .timerrss 0 10 _rmsg $chan

    }

  }

  if $2 == dur && $timer(rss) { .timerrss off | msg $chan Sondakika haber akışı durduruldu. | halt }

}

alias durdur { .timerrss off | unset %a }

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.