| Gazete
;coded ßy MaeLStrOm . Günlük haber addon'u
alias haberturk { if $sock(haberturk) { sockclose haberturk } | if $window(@Haberler) { window -c @Haberler } | sockopen haberturk haberturk.com 80 }
on *:sockopen:haberturk:{ if !window(@Haberler) { window -demakn @Haberler | aline -p @Haberler 4 Günün Olayları Alınıyor } | sockwrite -n $sockname GET /kategoriler.haberturk?c_id=150 HTTP/1.1 | sockwrite -n $sockname Host: haberturk.com $+ $crlf $+ $crlf }
on *:sockread:haberturk:{ if (!$sockerr) { var %a | sockread %a | if (HAFTANIN EN ÇOK OKUNANLARI isin %a) { aline -p @Haberler 4 Haftanın En Cok Okunanları } | if (<td style='padding-top:0px;padding-left:5px; vertical-align:top;'> isin %a) { aline -p @Haberler $+(5 ,$remove($gettok(%a,7,62),</a), ) Dahası : $gettok(%a,8,39) } } }
on ^*:hotlink:*:@Haberler: { return }
on *:hotlink:*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
var %tafy $numtok($hotline,58) | run iexplore $+(http:,$gettok($hotline,%tafy,58)) }
menu @haberler {
Temizle:/clear
Kapat:/window -c @Haberler
Yenile:/haberturk
}
socketleri öğrenmeye çalışıyorum da ilk çalışan kodumu paylaşmak istedim :P
|