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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - yarim lütfen... (https://www.ircforumlari.net/mirc-scripting-sorunlari/197036-yarim-lutfen.html)

yarim lütfen...

seLam Arkadaşlar aradim bulamadim warsa ozur dilerim..
ben bole birsey istiorum

sunucya qiren we cikanlarin ayri bi pencerede toplanmasini isitorum statusde cikmasin

whois cekenlerinde

Yardimci olursaniz sewinirim

simdiden teşekkurler ...

Cevap: yarim lütfen...

Sana whois çekenleri @Whois penceresinde göstermek için bu kodu;

on ^*:SNOTICE:*did a /whois on you*:{
window -e @Whois
echo @Whois 12*** $time 5 $1-
halt
}

Sunucuya giriş yapan kullanıcıları @ipuyari penceresinde görebilmek ve dilersen z:line tabilmek içinde bu kodu (diEfoRyoU) ;

on *:snotice:*Client connect*: { if (!$window(@ipuyari)) window @ipuyari
var %` = $+(%,ip!,$remove($gettok($10,2,64),$chr(41))) | inc -e $(%`,1)
echo @ipuyari $+($(%`,2),$chr(46)) giriş $+(4IP!,$gettok(%`,2,33)) Zline atmak için ip'ye tıklayabilirsin. }
on ^*:hotlink:*:@ipuyari: { return }
on *:hotlink:*IP*:@ipuyari: { var %tip $numtok($hotline,33) | .zline $+(*@,$gettok($gettok($hotline,%tip,33),1,32)) Clone }

kullanabilirsin.

Cevap: yarim lütfen...

Peki Zline reklam unsurli kelimeler yazanlari da ayri bi opencerede qormek istesem mumkun mu

Cevap: yarim lütfen...

on ^*:snotice:*[Spamfilter]*: {
window -e @Spam
echo @Spam 5 ( Spam ) $2-
halt
}

Cevap: yarim lütfen...

teşekkurler [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kolay qelsin

Cevap: yarim lütfen...

Rica Ederim Saol'un Sizede Kolay Gelsin.

Cevap: yarim lütfen...

Alıntı:

aXe_LAZ Nickli Üyeden Alıntı (Mesaj 686281)

teşekkurler [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kolay qelsin

Hiç önemli değil, ne demek.. Bende teşekkür ederim! :)

Cevap: yarim lütfen...

Heyacandan unutmustur arkadasım onun yerine ben tsk ederim :) Feridun emegine saglık ;)

Cevap: yarim lütfen...

arkadaşlar windows penceresindeki çıkan noticelere tıklaya rak nasıl akill ata biliriz arkadaşlar

Cevap: yarim lütfen...

arkadaşlar Client connect vs gibi özelde çıkan pencerelere tıklayarak iplerine gline zline vs atamazmıyız yardıcı olurmusunuz tşk

Cevap: yarim lütfen...

Birazdaha Açarsan İsteğini Yardımcı Olabiliriz Diye Düşünüyorum

Cevap: yarim lütfen...

Kod:

 #giriscikis off
 on ^*:join:#:{
  if !$window(@Join/Part) { window -ne @Join/Part }
  echo $colour(join text) -t @Join/Part *** Giriş: $chan - $nick - $gettok($fulladdress,2,33) / (Sebepli-Ban) - (Hızlı-ban)
  halt
 }
 on ^*:part:#:{
  if !$window(@Join/Part) { window -ne @Join/Part }
  echo $colour(part text) -t @Join/Part *** Çıkış: $chan - $nick - $gettok($fulladdress,2,33) / (Sebepli-Ban) - (Hızlı-ban)
  halt
 }
 on ^*:quit:{
  if !$window(@Join/Part) { window -ne @Join/Part }
  echo $colour(quit text) -t @Join/Part *** Exit: $chan - $nick - $gettok($fulladdress,2,33)
  halt
 }
 on ^*:hotlink:*:@Join/Part:return
 on *:hotlink:*:@Join/Part:{
  if *Sebepli-Ban* iswm $1 { ban -k $gettok($hotline,4,32) $gettok($hotline,6,32) 2 $$?="Sebep?" }
  if *Hızlı-Ban* iswm $1 { ban -k $gettok($hotline,4,32) $gettok($hotline,6,32) 2 Atıldınız }
 }
 #giriscikis end

Bu kod XcLuse arkadasımıza aittir.

Kod:

 on *:sockopen:yerelbilgi:{
  sockwrite -n $sockname GET /ip_tracer/?QRY= $+ %yerelipno  HTTP/1.1
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf
  sockwrite -n $sockname $clrf   
 }
 on *:sockread:yerelbilgi:{
  if ($sockerr) {
    echo 4 -a Veri alımında Hata oluştu. | .timers off | halt
  }
  else {
    var %difi 
    sockread %difi 
    if (*<td>*</td>* iswm %difi) { %yerelbilgi = $addtok(%yerelbilgi ~,$remove($htmlfree(%difi),$chr(9)),126) }
    if (*<img src*alt="ip address flag">*</td>* iswm %difi) { set %yerelulke $remove($htmlfree(%difi),$chr(9)) }
  }
 }
 alias bağlan {
  sockclose yerelbilgi
  sockopen yerelbilgi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  if !$window(@Whois) {
    .timer -h 1 2800 window -adk0 +let @Whois 700 80 260 175 Verdana 12
    .timer -h 1 2850 titlebar @Whois yerel bilgiler...
  }
  else { .timer -h 1 2800 window -a @Whois }
  .timer -h 1 2900 aline @Whois 11,1Nick1...11:8 $!eval(%yerelnick,1) 1....................................................           
  .timer -h 1 2950 aline @Whois 11,1IP no1.11:8 $!eval(%yerelipno,1) 1.....................................................
  .timer -h 1 3000 aline @Whois 11,1Ülke1...............11:9 $!eval(%yerelulke,1) 1............................................
  .timer -h 1 3100 aline @Whois 11,1Bölge1.............11:9 $!token(%yerelbilgi,1,126) 1.......................................
  .timer -h 1 3200 aline @Whois 11,1Şehir1..............11:9 $!token(%yerelbilgi,2,126) 1......................................
  .timer -h 1 3300 aline @Whois 11,1Enlem1............11:9 $!token(%yerelbilgi,3,126) 1........................................
  .timer -h 1 3400 aline @Whois 11,1Boylam1..........11:9 $!token(%yerelbilgi,4,126) 1.........................................
  .timer -h 1 3500 aline @Whois 11,1Organizasyon:9 $!token(%yerelbilgi,5,126) 1.................................................
  .timer -h 1 3600 aline @Whois 11,1Yerel Zaman1..11:9 $!token(%yerelbilgi,7,126) 1............................................
  .timer -h 1 3700 aline @Whois 0,1----------------Bilgi Sonu-------------------
  .timer -h 1 3750 sockclose yerelbilgi
  .timer -h 1 4000 unset %yerel*
 }
 alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
 }
 on *:snotice:*whois*on*you*: { 
  if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) { 
    hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41)) 
    set %yerelipno $remove($token($3,2,64),$chr(41)) 
    set %yerelnick $2  
    bağlan 
    echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor...
  }
 }

Bu kod ise Difuzyon arkadaşımızın yapmış olduğu whois kodudur ve cok kullanışlı. Iyi forumlar..

Cevap: yarim lütfen...

Arkadaşın İstediği Bu dEğil Sanırım...

Cevap: yarim lütfen...

Connecting exiting gibi noticeleri ayrı ayrı pencerelerde görüyorum o pencerelerdeki noticeler'e çift tıklayarak akill atmak istiyorum noticeye bir örnek vereyim

*** Notice -- Client exiting: romantikk (KLBKBETA@81.214.2.211) [12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Notice -- Client connecting on port 6667: kral_ ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) [clients]

gibi noticeler de böyle