IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kaynak [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresinden alınmaktadır.
Kültür-Sanat etkinliklerinden Konserleri artık mIRC'nizden de takip edebilirsiniz...

Kim,nerede,ne zaman Konser veriyor ? sorusuna cevap alabileceğiniz bir kod.Beraber hazırladığımız bu çalışmada yardımda bulunan SeRDaR406 hocama tşk. ederim.

Kod:

alias htmlfree { 

  if ($len($1-) <= 900) { 

    var %x, %i = $regsub($replace($1,ı,ı),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x 

  } 

} 

alias konser {

  unset %serdar406

  sockclose ks 

  sockopen ks 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

  $iif($window(@Konserler),window -c @Konserler)

  echo -a 2** 4Liste alınırken lütfen bekleyiniz7(10 sn)2 **

  window -hCdk0 +let @Konserler 0 0 530 310 Verdana 11

  .timerwin 1 10 window -wa @Konserler

}

alias -l swr sockwrite -n ks $1-

on *:sockopen:ks: {

  if ($sockerr) { if ($window(@konserler)) window -c @konserler | .timerwin off | echo -a Siteye bağlanamıyorum.Sorun var galiba...!  }

  else { 

    swr GET / HTTP/1.1

    swr Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
swr $crlf

  }

}

on *:sockread:ks: {

  var %s

  sockread %s

  if (*Konser Listesi* iswm %s) set %SeRDaR406 !ok

  if (%serdar406) {

    if (width="8%">&nbsp; isin %s) set %nerede ok

    elseif (%nerede) { echo @Konserler 03 $htmlfree(%s) | unset %nerede }

    if (<strong>Sanat&ccedil isin %s) set %sanatci ok

    elseif (%sanatci) { echo @Konserler Sanatçı:12 $htmlfree(%s) | unset %sanatci }

    if (<strong>Yer isin %s) set %yer ok

    elseif (%yer) { echo @Konserler Yer: $htmlfree(%s) | unset %yer }

    if (<strong>Tarih isin %s) set %tarih ok

    elseif (%tarih) { echo @Konserler Tarih: $htmlfree(%s) | unset %tarih }

    if (<strong>Fiyat isin %s) set %fiyat ok

    elseif (%fiyat) { echo @Konserler Fiyat: $htmlfree(%s) | unset %fiyat }

    if (<td width="87%"> isin %s) set %kontarih ok

    elseif (%kontarih) { echo @Konserler 6 $htmlfree(%s) | echo 7 @Konserler _______________________________________________________________________ | unset %kontarih }

  }

}

Kodu mIRC'inizde (ALT + r) ile açılan panelde Remote kısmına ekliyorsunuz.
/konser komutunu uyguladıktan 10 sn. sonra listeyi alacaksınız...

Hoşca paylaşımlar...