IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý
Sayfa 2 Toplam 3 Sayfadan 1 2 3
Konuya ait 40 Mesajý baþka Sayfada göster

IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý (https://www.ircforumlari.net/)
-   mIRC Scripting Hazýr Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Son Dakika Haberleri (Hurriyet.com.tr) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/172044-son-dakika-haberleri-hurriyetcomtr.html)

basbeLasi 10 Temmuz 2009 22:47
Cevap: Son Dakika Haberleri (Hurriyet.com.tr)
 
eLinize saqLýk beyLer

Heartbroken 14 Ekim 2009 02:08
Cevap: Son Dakika Haberleri (Hurriyet.com.tr)
 
Alýntý:
basbeLasi Nickli Üyeden Alýntý (Mesaj 758850)
eLinize saqLýk beyLer
teþekkürler ancak :P

02:04:13: <k_1>Son dakika haberleri listeleniyor :
02:04:14: <k_1>00:24-New York borsasý
02:04:14: <k_1>00:19-Lodos önüne geçeni yýktý
02:04:14: <k_1>00:18-Alaska'da 6,3'lük deprem
02:04:14: <k_1>00:00-BDDK'dan bankalara talimat
02:04:14: <k_1>00:00-Danýþmanýnýn kýzý iltica talebinde bulundu
02:04:14: <k_1>00:00-Ankaragücü'nün baþý dertte
02:04:14: <k_1>00:00-Murat Aksu adaylýðýný açýklayacak
02:04:14: <k_1>00:00-Türk kökenli vekilden Türkleri üzecek açýklama
02:04:14: <k_1>00:00-Çin'de kuraklýk nedeniyle 900 gemi mahsur kaldý
02:04:14: <k_1>22:39-Obama'nýn saðlýk reformu onaylandý
02:04:14: <k_1>22:20-ÝBB'den bütçe açýðý açýklamasý
02:04:15: <k_1>22:19-Ýdil Biret Konya'da konser verdi
02:04:16: <k_1>22:05-Saddam sonrasý Irak: 85 bin ölü
02:04:18: <k_1>22:02-Bursaspor Baþkaný gazeteci dövdü iddiasý

bi sorun var gibi :

þöyle ki sadece haber baþlýklarý geçioð oysa bu baþlýklarýn yanýnda bide link olmasý gerekmez mi?

yani diyelim ben yada bakan biri bu haberi merak ettiðinde haberin devamýný okuyabilþmesi için bide bu haberin linki olsa yanýnda rss akýþý olacak tamda öle dimi ama ? :)

kheldor 10 Mart 2013 23:08
Cevap: Son Dakika Haberleri (Hurriyet.com.tr)
 
Kod artýk calýsmýyor. Difüzyon veya Serdar bakip hatayý çözerse sevinirim.
Son dakika haberleri listeleniyor :
Diyip kalýyor.


Alýntý:
alias sondakika {
unset %haber
sockclose s4
sockopen s4 sondakika.hurriyet.com.tr 80
}
alias -l sw sockwrite -n $sockname $1-
on *:sockopen:s4: {
if (!$sockerr) {
sw GET /?sid=0 HTTP/1.1
sw Host: sondakika.hurriyet.com.tr
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
.msg %habernick $replace(%s,-,4-01)
inc %i
}
}
}
on *:text:!haber:#bitturk:set $+(%,haber,nick) $chan | sondakika | .msg %habernick 3Son dakika haberleri listeleniyor :
alias haberler {
unset %haberler
sockclose s6
sockopen s6 sondakika.hurriyet.com.tr 80
}
on *:sockopen:s6: {
if (!$sockerr) {
if $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
else { window -adCk0 +let @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 0 500 270 Verdana 13 }
sw GET /?sid=0 HTTP/1.1
sw Host: sondakika.hurriyet.com.tr
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
}
}
on *:sockread:s6: {
sockread %cenk
if (class="hurtextverdana"> isin %cenk) {
set %haberler $htmlfree(%cenk)
var %iks = 1 , %ide $numtok(%haberler,191)
while (%iks <= $calc(%ide - 1)) {
var %srdr $gettok(%haberler,%iks,191)
if (difuzyon isin %srdr) { halt }
aline 7 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $replace(%srdr,-,4-10)
inc %iks
}
}
}

JohnGalt 11 Mart 2013 10:23
Cevap: Son Dakika Haberleri (Hurriyet.com.tr)
 
Kod:
alias sondakika {
  $iif(!%habernick,window -adCk0 +let @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 0 800 270 Verdana 13)
  sockopen son_dk sondakika.hurriyet.com.tr 80
}
alias -l sw sockwrite -n $sockname $1-
on *:sockopen:son_dk: {
  if (!$sockerr) {
    sw GET /?sid=0 HTTP/1.1
    sw Host: sondakika.hurriyet.com.tr
    sw $crlf
  }
} 
on *:sockread:son_dk:{
  var %a
  sockread %a
  if (class="hurtextverdana"> isin %a && $regex(%a,/(\d{2}:\d{2}).{52}"(http:\/\/[^"]*)".{45}([^<]*)</g) && !%haberler) {
    $iif(%habernick,.msg %habernick $+($chr(3),3,Son) dakika haberleri listeleniyor:) | inc %haberler | var %þ = 1 | while $regml(%þ) {
      $iif(!%habernick,aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],.msg %habernick) $utfdecode($regml(%þ) : $regml($calc(%þ + 2)) : $+($chr(31),$regml($calc(%þ + 1)),$chr(31)))
      inc %þ 3
    }
  }
  if (news alt isin %a) { unset %haber* | sockclose $sockname }
}
on *:text:!haberler:#haber:{ set -s %habernick $nick | sondakika }
Kod eski hali ile neden çalýþmýyordu tam bilmiyorum ama þu hali ile çalýþýyor. (mIRC 6.17 ve üstü sürümlerinde deneme yaptým.)

#haber kanalýnda (kanalý deðiþtirmek için turuncu ile belirttiðim kýsmý deðiþtirin) !haberler yazýldýðýnda kiþinin özeline sondakika.hurriyet.com.tr'den alýnan son dakika haberlerini ve linklerini yollar. Örnek;

11.03 [10:13:53] <JohnGalt> Son dakika haberleri listeleniyor:
11.03 [10:13:54] <JohnGalt> 09:58 : Asya borsalarý karýþýk seyretti : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
11.03 [10:13:54] <JohnGalt> 09:57 : Piyasalar banka hisselerini izleyecek : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
11.03 [10:13:54] <JohnGalt> 09:53 : Brent petrol 111 dolarýn altýnda : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
11.03 [10:13:54] <JohnGalt> 09:52 : PTT 1. Lig'de görünüm : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
11.03 [10:13:54] <JohnGalt> 09:52 : ÝMKB haftaya yatay baþladý : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
11.03 [10:13:54] <JohnGalt> 08:18 : Papua Yeni Gine'de 6,7 büyüklüðünde deprem : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
Eðer ki kodun bulunduðu mIRC'i kullanan sizseniz ve haberleri okumak istiyorsanýz /sondakika yazdýðýnýz takdirde kodun ilk halindeki gibi bir pencere açýlacak ve oraya haberlerin dökümünü verecektir.

Not: Site 08:00 gibi haberleri sýfýrlamaktadýr. Eðer ki haberler çok fazlaysa bir nevi-i flood korumasý da olmasý için son ~15 haberi verecek þekilde ayarladým. Eðer ki bu þekilde olsun istemezseniz kýrmýzý ile belirttiðim yerleri silmeniz yeterli olacaktýr.

Not: @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tarafýndan yazýlan kodun düzenlenmiþ halidir.

Umarým ki iþinize yarar.

StyLechiLd 17 Mart 2013 09:10
Cevap: Son Dakika Haberleri (Hurriyet.com.tr)
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Codeyi aldým fakat /sondakika yazdýgýmda haberler die bi pencere açýlýyor ama malesef haberler çýkmýyor..

JohnGalt 17 Mart 2013 09:29
Cevap: Son Dakika Haberleri (Hurriyet.com.tr)
 
Alýntý:
stylechild Nickli Üyeden Alýntý (Mesaj 1041290643)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Codeyi aldým fakat /sondakika yazdýgýmda haberler die bi pencere açýlýyor ama malesef haberler çýkmýyor..
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresinden haberleri takip edebilirsiniz kod mu çalýþmýyor yoksa haber mi yok diye doðrulamak için. Sabahýn erken saatlerinde son dakika haberleri olmuyor, sabahýn bu saatlerinde (08:00-09:00) gibi sýfýrlýyorlar haberleri. Daha ileri saatlerde yine deneyin lütfen.

Fredyyy 26 Eylül 2019 11:26
Cevap: Son Dakika Haberleri (Hurriyet.com.tr)
 
Merhabalar, haber kodlarýnýn güncel hali mevcut mu acaba? Þimdiden teþekkürler.

YouMyCure 27 Eylül 2019 19:12
Cevap: Son Dakika Haberleri (Hurriyet.com.tr)
 
Alýntý:
Fredyyy Nickli Üyeden Alýntý (Mesaj 1042161439)
Merhabalar, haber kodlarýnýn güncel hali mevcut mu acaba? Þimdiden teþekkürler.
"Coder" arkadaþlarýmýz yazar belki ;)
onun haricinde Alternatif: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Toprak 27 Eylül 2019 19:20
Cevap: Son Dakika Haberleri (Hurriyet.com.tr)
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

RSS ile çekebilirsiniz..

Emrehan 28 Eylül 2019 21:13
Cevap: Son Dakika Haberleri (Hurriyet.com.tr)
 
Alýntý:
Fredyyy Nickli Üyeden Alýntý (Mesaj 1042161439)
Merhabalar, haber kodlarýnýn güncel hali mevcut mu acaba? Þimdiden teþekkürler.
Kod:
alias chrduzelt return $replace($1-,ç,ç,ç,ç,Ç,Ç,Ç,Ç,ÄŸ,ð,ð,ð,ÄŸ,Ð,Ð,Ð,ı,ý,ý,ý,Ä°,Ý,Ý,Ý,ö,ö,ö,ö,Ö,Ö,Ö,Ö,ÅŸ,þ,þ,þ,Åž,Þ,ÅŸ,Þ,Þ,Þ,ü,ü,ü,ü,Ãœ,Ü,Ü,Ü,',')
on *:sockopen:hurriyet: {
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET /son-dakika-haberleri/ HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname $crlf
}
on *:sockread:hurriyet:{
  if ($sockerr) { .sockclose $sockname | return }
  var %hbr | sockread %hbr
  if $regex(%hbr,/<time class="time">(.+?)<\/time><h3 class="son-dakika-headline">(.+?)<\/h3><\/div><a target="_blank" href="(.+?)" rel=/Si) {
    var %habersaat $regml(1), %haberbaslik $chrduzelt($regml(2)), %haberlink $+(http://,$sock($sockname).addr,$regml(3))
    if %haberbaslik { notice $token($sock($sockname).mark,1,191) 1Saat:6 %habersaat 5-1 Baþlýk:4 %haberbaslik 5-1 Link:12 %haberlink | inc -eu2 %habersayi 1 }
  }
  if (.Logout isin %hbr) {
    if !$var(%habersayi)  { msg $token($sock($sockname).mark,2,191) 1Þu an son dakika haberi bulunamadý. | sockclose $sockname | return }
    notice $token($sock($sockname).mark,1,191) 
    notice $token($sock($sockname).mark,1,191) 1Toplam3 %habersayi adet 1son dakika haberi bulundu.
    msg $token($sock($sockname).mark,2,191) $+(4,$token($sock($sockname).mark,1,191),1) haberler size notice yoluyla iletildi.
    sockclose $sockname | return
  }
}
on *:text:*:#: {
  if $regex($1,/^[!.]haberler/Si) {
    msg # 1Son dakika haberleri aranýyor...
    msg # 
    if !$sock(hurriyet) { sockopen hurriyet
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark hurriyet $+($nick,¿,#) }
  }
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Herhangi bir kanalda !haberler yazýlarak kullanýlýr.


Tüm Zamanlar GMT +3 Olarak Ayarlanmýþ. Þuanki Zaman: 03:51.
Sayfa 2 Toplam 3 Sayfadan 1 2 3
Konuya ait 40 Mesajý baþka Sayfada göster

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