Kod: Kodu kopyalamak için üzerine çift tıklayın!
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.