mIRC Web Siir Okuma

Kullanimi;

Harfa gore arama yapabilme!
* Komut: / harf
* Ornek: /siir A

on *:sockopen:siir*: {  var %komut sockwrite -n $sockname  %komut GET $+(/usta,$sock($sockname).mark,siir.html) HTTP/1.1  %komut Host: www.siirparki.com  %komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8  %komut Accept-Language: tr-TR  %komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7  %komut Connection: keep-alive  %komut Referer: http://www.siirparki.com/siireh.html  %komut Cookie: fadedin=yes  %komut $crlf}on *:sockread:siir*: {  var %s | sockread %s  if ($regex(%s,javascript:winopen)) { set %links [ $+ [ $sockname ] ] $gettok(%s,2,39) | set %anahtar [ $+ [ $sockname ] ] $gettok($gettok(%s,3,47),1,46) }  if ($regex(%s,<font size="1">)) { echo @Siir 6Siirler:2 $htmlfree(%s) 6Link:2 %links [ $+ [ $sockname ] ] 6Anahtar Kelime:2 %anahtar [ $+ [ $sockname ] ] | inc %h [ $+ [ $sockname ] ] }  if ($regex(%s,width=500>)) {     echo @Siir 2Siir aramasinda belirtiginiz harf $+(6,$upper($sock($sockname).mark),2) ,    echo @Siir 2Toplam siir sayisi:6 %h [ $+ [ $sockname ] ]     echo @Siir 2Okumak istediginiz siiri listeden6 /goster AnahtarKelime 2 olarak belirtebilirsiniz.    echo @Siir 2Ya da link'i yıklayip siir'i okuyabilirsiniz.    unset %h [ $+ [ $sockname ] ] %links [ $+ [ $sockname ] ] %anahtar [ $+ [ $sockname ] ]  }}on *:sockopen:goster*: {  var %kmt sockwrite -n $sockname  %kmt GET $+(/,$sock($sockname).mark,.html) HTTP/1.1  %kmt Host: www.siirparki.com  %kmt User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0  %kmt Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8  %kmt Accept-Language: tr-TR  %kmt Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7  %kmt Connection: keep-alive  %kmt Cookie: fadedin=yes  %kmt $crlf}on *:sockread:goster*: {  var %63 | sockread %63 | var %63x $remove(%63,<br />,$chr(9))  if ($regex(%63x,class="TimesRoman20")) { echo @Siir 6 $htmlfree(%63x) }  if ($regex(%63x,<p align="center"><i><font COLOR)) { echo @Siir 2 $htmlfree(%63x) }  if (!$regex(%63x,(<|#|-|/|}|GMT|=|{))) {  $iif($htmlfree(%63x),echo @Siir 2 $htmlfree(%63x)) }}alias siir {  if (!$1) { echo -ae 2Lutfen bir harf giriniz! | halt }  if ($len($1) !== 1) { echo -ae 2Lutfen sadece bir harf giriniz! | halt }  $iif(!$window(@Siir),window -e @Siir,window -e @Siir)  var %rands $rand(0,999999)  sockopen $+(siir,%rands) www.siirparki.com 80  sockmark $+(siir,%rands) $replace($1,ç,c,ğ,g,ı,i,l,k,ö,o,r,p,ş,s,ü,u,j,i)}alias goster {  if (!$1) { echo -ae 2Lutfen anahtar kelime giriniz! | halt }  var %randos $rand(0,999999)  sockopen $+(goster,%randos) www.siirparki.com 80  sockmark $+(goster,%randos) $1  $iif(!$window(@Siir),window -e @Siir,window -e @Siir)  echo @Siir 1,6 $str($chr(35),30) $(|) 1,6 $str($chr(35),30) }alias htmlfree {  var %x, %i =  $regsub($1-,/(^[^<]*>|< [^>]*>|< [^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;)  return %x}</font></i></p></font>

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir