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

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

- - !Haberler Sorun Çıkartıyor (https://www.ircforumlari.net/mirc-scripting-sorunlari/186130-haberler-sorun-cikartiyor.html)

!Haberler Sorun Çıkartıyor

Kod:

alias sondakika {

  unset %haber

  sockclose s4

  sockopen s4 kelebekhaber.com/rss.asp 80

}

alias -l sw sockwrite -n $sockname $1-

on *:sockopen:s4: {

  if (!$sockerr) {

    sw GET /?sid=0 HTTP/1.1

    sw Host: kelebekhaber.com/rss.asp

    sw User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5

    sw Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

    sw Accept-Language: tr-TR,tr;q=0.8,en-us;q=0.5,en;q=0.3

    sw Accept-Encoding: gzip,deflate

    sw Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7  

    sw Connection: Close

    sw $crlf

  }

}   

alias htmlfree {

  var %x, %i = $regsub($replace($1-,</strong>,-,</a></td></tr><tr>,¿,DiÄŸer haberler iÃ§in tÄ±klayÄ±n...,difuzyonnnn),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9))

  return %x

}

on *:sockread:s4: {

  sockread %a

  if (class="hurtextverdana"> isin %a) { 

    set %haber $htmlfree(%a) 

    var %i = 1 , %id $numtok(%haber,191)

    while (%i <= $calc(%id - 1)) {

      var %s $gettok(%haber,%i,191)

      if (difuzyon isin %s) halt 

      .notice #Kanal 7 $replace(%s,-,4-2: )

      inc %i

    }

  }

}

on *:text:!Haberler:#Kanal@:{ if $istok(Nick,$nick,32) { if  $1 == !Habeler:set $+(%,haber,nick) $nick | sondakika | .notice #Kanal 3Son dakika haberleri listeleniyor : }

Böyle Bir Code Var Elimde Yanlız Sadece
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Buradan Alıyordu Haberleri Bende Onu Değiştrerek kelebekhaber.com/rss.asp Almasını İstediğimden Değiştirdim Fakat Artık Sadece Listeleniyor Diyor Ve Listelemiyor Haberleri ?

Cevap: !Haberler Sorun Çıkartıyor

bu kod hürriyet haberleri almak için yapılan bir koddur. öyle değiştirip netice alamazsın istediğin siteye göre socktan bilgi alabilmesi için yeniden kodlanması gerekir. her sitenin sayfa yapısı farklı çünkü.

Cevap: !Haberler Sorun Çıkartıyor

Hımm Peki Bunu Nasıl Yapacam Yeniden Kodlayamam sanırım Pek Bilgim Yk

Cevap: !Haberler Sorun Çıkartıyor

Kod:

alias sondakikahaber {

  unset %haberl

  sockclose s4d

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

}

alias -l sew sockwrite -n $sockname $1-

on *:sockopen:s4d: {

  if (!$sockerr) {

    sew GET /rss.asp HTTP/1.1

    sew Host: kelebekhaber.com $+ $crlf $+ $crlf

    sew $crlf

  }

}

on *:sockread:s4d: {

  if (!$sockerr) {

    var %difi 

    sockread %difi

    if (*</description>* iswm %difi) { 

      %haberl = $addtok(%haberl,$htmlfree($replace(%difi,</description>,~,<link>,$chr(32),</link>,$chr(32),</title>,</title,<description>,description>)),32) 

    }

  }

}

alias htmlfree {

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

  return %x

}

on *:text:!Haberler:#Kanal:if !%haberl { sondakikahaber | msg $chan Bilgiler alınıyor | .timer 1 5 haberyaz }
 

alias -l haberyaz {

  if %haberl {

    var %1 1 | while %1 <= $numtok(%haberl,126) { msg #Kanal $token(%haberl,%1,126) | inc %1 }

    unset %haberl

  }

}

 

alias haberoku {

  if !%haberl { sondakikahaber | echo -a Bilgiler alınıyor | .timer 1 5 echohaber }

}

alias -l echohaber {

  if %haberl {

    var %1 1 | while %1 <= $numtok(%haberl,126) { echo -a $token(%haberl,%1,126) | inc %1 }

    unset %haberl

  }

}

#Kanal 'daki bir nick !Haberler (Sen değil,başkası) yazarsa haberleri yazar...

Sadece "Kendim göreceğim , başkası görmesin" diyorsan /haberoku yazacaksın.

İyi forumlar...

Cevap: !Haberler Sorun Çıkartıyor

Teşekkürler [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Fakat Çok Karışık Geliyor
(18:12:37) <Nick> Olum kuyularindan kemik ciktiOlum kuyularindan kemik cikti
(18:12:38) <Nick> Topuklu ayakkabi bile sorun olduTopuklu ayakkabi bile sorun oldu
(18:12:39) <Nick> Claudia Schiffer dan formda kalma sirasiClaudia Schiffer dan formda kalma sirasi

Gördüğünüz Gibi Üsteki Link Olan Yeride Onun İçin Yolluyor Yani Direk Yazı Gibi

Sitedede Belli Zaten Mavi İle Yazılan Yerler Link O Linkleri Pastlasa Olabilirmi ?

Link
Haber Ayrıntısı
Link
Haber Ayrıntısı
Veya
Haber Ayrıntısı Link
Haber Ayrıntısı Link

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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 }

Aslında Şunu Buldum Aramalarımda Bu Tam İstediğim Gibi Link Li Veriyor Bunu Değişirsek O Site İçin Olacaktır.

Cevap: !Haberler Sorun Çıkartıyor

"Haber başlığı - Haber başlığının mini detayı"
Şeklinde veriyor,ben kodu senin ilk mesajından hareketle bu noktaya kadar getirdim.

Daha fazlasını sağlamak senin elinde...

Cevap: !Haberler Sorun Çıkartıyor

Kod:

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

Şurada Bir Hata Var Sanırım guin= Şeklinde sitenin adresini ikinci kez veriyor :S

Birde Buradaki

Kod:

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

cccturk Olan Yerleri Kelebeğinki İle Değişemiyorum Hata Veriyor :S Boş Boş Yazıyor

Cevap: !Haberler Sorun Çıkartıyor

Alıntı:

<Che> 04Konu Başlığı:02=ABD Kongresi'nde Patrikhane tasarisi
<Che> 4Açıklama:02ABD Temsilciler Meclisi'ne Pazarulan bir tasariyla Turkiye'ye, Fener Rum Patrikhanesinin haklarina ve dini ozgurluklerine saygi gosterilmesi cagrisinda bulunuldu.
<Che> 04Devami icin: 02
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
guid=
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
10 mart 2009 15:39:00

Şu Şekilde Gösterim Herşeyini Yapdım Sadece Bu Guid Ve CnnTurk Yerine KelebekHaberden Almasını Yapamadım Code Süper Çalışıyor Normalde Tek Hatası Bu