mIRC Son Dakika Haberleri
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 |
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-,,-, ,¿,DiÄŸer haberler için tıklayın...,difuzyonnnn),/(^[^< ]*>|< [^>]*>|< [^>]*$)/g,$null,%x), %x = $remove(%x, ,$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:!haberler:#haber:set $+(%,haber,nick) $nick | sondakika | .msg %habernick 3 Son dakika haberleri listeleniyor : alias haberler { unset %haberler sockclose s6 sockopen s6 sondakika.hurriyet.com.tr 80 } on *:sockopen:s6: { if (!$sockerr) { if $window(@Haberler) { clear @Haberler | window -a @Haberler } else { window -adCk0 +let @Haberler 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 @Haberler $replace(%srdr,-,4-10) inc %iks } } } |
Kodu (ALT + r) remote kısmına ekliyorsunuz.İki işlevselliği olan bir koddur.
#Haber(yada kendi belirlediğiniz bir kanal) kanalında !haberler yazan nickin özeline Son Dakika Haberlerini bildirebilirsiniz…
Son Dakika Haberlerini kendiniz görebilmeniz için : /haberler
yapmanız yeterlidir.
DİPNOT : Düşük version scriptlerde göstermeyebilir.Bu sorun içinde bir çalışma yapılacak arkadaşlar…