[KivanC]

yeni 2014 mIRC Gündeminde mIRCScripting Botumuza " Son dakika " Güncel haberleri sıralayabilicek kodumuz varmı yoksa kodlamasını sayın Coderlerimiz düşünürmü.
Kodlamar mevcut ama siteler ölü

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:sockopen:sdk*: {
if ($sockerr) .msg $remove($sockname,sdk*) Bağlantı 
Kurulamadı...!
else {
sockwrite -n $sockname GET / HTTP/1.1
sockwrite 
-n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n $sockname $crlf
 }
 
}
 on *:sockread:sdk*: {
 var %sd
sockread %sd
if 
(color="maroon"> isin %sd) set %saat $htmlfree(%sd)
if (sondakika.asp?a= 
isin %sd) { 
 var %url = $remove($gettok(%sd,3,32),onClick="MM_openBrWindow 
,$chr(40),'sondakika.asp?a=,sd,width=500,height=40 
0,top=20,left=20,scrollbars=yes,$chr(9),$chr(44),' ) | .msg 
$remove($sockname,sdk*) 
$+(,%saat,$chr(32),--,$chr(32),4,$htmlfree(%sd),$chr(32),--,$chr(32),7,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) }
 }
 
on *:text:*:#HaberLer: {
if ($1 == !sondk) {
 .msg $nick Son Dakika 
Haberleri Alınıyor.Lütfen bekleyiniz...
sockclose $+(sdk*,$nick)
sockopen 
$+(sdk*,$nick) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
 }
 }
alias htmlfree { if 
($len($1-) <= 900) { var %x, %i = 
$regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = 
$remove(%x,&nbsp;,$chr(9)) | return %x } }