mIRC Scripting

mIRC Scripting (https://www.mircscripting.net/)
-   Showcase - Hazır kodlar (https://www.mircscripting.net/showcase-hazyr-kodlar/)
-   -   Giriş ve Çıkışlarda IP Tek Tıkla Gline (https://www.mircscripting.net/showcase-hazyr-kodlar/255-girith-ve-cykythlarda-ip-tek-tykla-gline.html)

KarabasaN 23 Temmuz 2009 22:02
Giriş ve Çıkışlarda IP Tek Tıkla Gline
 
Adminlerin Çok işini Gören CoCoRiCo 'nun Yazdığı Bir Kod. Coderi Bu Sitede Olduğu İçin Gönül Rahatlığı ile Kodu verebilirim. Ben Kendime Göre Editlemiştim. Aynen o Şekilde veriyorum. :D


Kodun İşlevi: Network Penceresinde Giriş Çıkış Yapanların IP sine Tıklama ile Gline Atıyor.

PHP- Kodu:
on ^1:SNOTICE:*:{ 
  if (exiting isin $1-) { 
    if (!$window(@Network)) { window -en @Network } 
    echo 5 -t @Network 5  4[5 Çıkış 4]12 $6 $7 | halt 
  } 
  if (Connecting isin $1-) { 
    if (!$window(@Network)) { window -en @Network } 
    echo 12 -t @Network 4 [12 Giriş 4] 12 $9 $10  | halt
  }
  halt 
}
on ^1:HOTLINK:*.*.*:*:{
  if ( $active = #) { halt } 
  else {
    if (@ isin $1) {
      $x:CoCoRiCo($1,2)
      return $1 
    }
  } 
  halt 
}
on *:HOTLINK:*.*.*:*:{ 
  if ($active = #) { halt } 
  else { 
    if (@ isin $1) {
      $x:CoCoRiCo($1,1)
    }
  }
}
alias -l X:CoCoRiCo { 
  if ($2 = 1 ) {
    var %q $mid($1,$pos($1,@),$len($1))
    var %x $calc($len(%q) - 1 )
    ;S:ban secenegi (Kline) 
    .gline $+(*,$left(%q,%x)) [ $me ] 
    echo Yasaklanan ip $+(*,$left(%q,%x))
  }
  if ($2 = 2 ) {
    var %q $mid($1,$pos($1,@),$len($1))
    var %x $calc($len(%q) - 1 )
  }
} 


Kodlayan; CoCoRiCo

L4roXyL 23 Temmuz 2009 22:49
Çok pis yazar :p

CoCoRiCo 24 Temmuz 2009 00:46
o zamanlar kodların üzerine yatma modası vardı biraz karma ve corba sekli yapmıstım
sonra kücülttük böyle bi sekil almıstı.

Kod:
on ^&*:SNOTICE:*:{
  if *client*exiting* iswm $1- {
    $iif(!$window(@Giris/Cikis),window -en @Giris/Cikis,echo 4 -t @Giris/Cikis Çıkış : $1-  )
    halt
  }
  if *Connecting* iswm $1- {
    $iif(!$window(@Giris/Cikis),window -en @Giris/Cikis ,echo 3 -t @Giris/Cikis Giriş : $1- )
    break
  }
}
on ^*:HOTLINK:*.*.*:*:{
  if  @Giris/Cikis == $window($active)  {
    return $1
  }
  Break
}
on *:HOTLINK:*.*.*:*:{
  if @Giris/Cikis $window($active) {
    titlebar Kline : $+([,$gettok($1-,2,$asc(@)),])
    .Kline $+(*@,$gettok($1-,2,$asc(@))) http://www.mircscripting.net/rules.php?do=kline&c=15m
  }
  Break
}
Alıntı:
L4roXyL Nickli Üyeden Alıntı (Mesaj 378)
Çok pis yazar :p
diyena bak simetrik kodcu (;

KarabasaN 24 Temmuz 2009 11:22
Alıntı:
CoCoRiCo Nickli Üyeden Alıntı (Mesaj 380)
o zamanlar kodların üzerine yatma modası vardı biraz karma ve corba sekli yapmıstım
sonra kücülttük böyle bi sekil almıstı.

Kod:
on ^&*:SNOTICE:*:{
  if *client*exiting* iswm $1- {
    $iif(!$window(@Giris/Cikis),window -en @Giris/Cikis,echo 4 -t @Giris/Cikis Çıkış : $1-  )
    halt
  }
  if *Connecting*isin* $1- {
    $iif(!$window(@Giris/Cikis),window -en @Giris/Cikis ,echo 3 -t @Giris/Cikis Giriş : $1- )
    break
  }
}
on ^*:HOTLINK:*.*.*:*:{
  if  @Giris/Cikis == $window($active)  {
    return $1
  }
  Break
}
on *:HOTLINK:*.*.*:*:{
  if @Giris/Cikis $window($active) {
    titlebar Kline : $+([,$gettok($1-,2,$asc(@)),])
    .Kline $+(*@,$gettok($1-,2,$asc(@))) http://www.mircscripting.net/rules.php?do=kline&c=15m
  }
  Break
}
diyena bak simetrik kodcu (;


Verdiğin Kodda Çıkışlarda Sorun Yok ama Girişlerde Şu Hatayı Veriyor.

* /if: Geçersiz format (Satır 6, script1.ini)


Satır 6. Şu Kod

if *Connecting*isin* $1- {

Çıkışlar Sorunsuz Girişler Sorunlu Yani :)

L4roXyL 24 Temmuz 2009 11:42
if *Connecting* iswm $1-
Olarak değiş.

KarabasaN 24 Temmuz 2009 11:50
Evet Şimdi Sorunsuz Çalışıyor.

[11:45] Giriş : *** Notice -- Client connecting on port 6667: yuhbee (ident@IP) [clients]
[11:45] Çıkış : *** Notice -- Client exiting: tarık41 (ident@IP) [Connection reset by peer]


Görünümü Bu IP de Tek Tıkla Ban Atılıyor

[11:45] Giriş : *** Notice -- Client connecting on port 6667: yuhbee (ident@IP) [clients] (GLİNE) - (Nick-Ban) - (SHUN)
[11:45] Çıkış : *** Notice -- Client exiting: tarık41 (ident@IP) [Connection reset by peer] (GLİNE) - (Nick-Ban) - (SHUN)


Gibi Geliştirilebilir mi :D

L4roXyL 24 Temmuz 2009 13:52
Kod:
on ^&*:snotice:*client connect*:$iif(!$window(@root),window -nk0 @root) | echo -ct info @root Client: $9-10 $chr(9) "GLINE" - "NICKBAN" - "SHUN"
on ^*:hotlink:"*":@root:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex
on *:hotlink:*:*: {
  var %_word = $noqt($1),%_ip = $remove($token($token($hotline,4,32),2,64),$chr(41)),%_nick = $token($hotline,3,32)
  if ($(,%_word) = nickban) { var %1 = 1 | while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick) 2 sebeb. | inc %1 } }
  if ($(,%_word) = shun) shun $(,%_nick)
  if ($(,%_word) = gline) gline $(,%_nick) :sebeb.
  ;echo 4 $target IP: %_ip - NICK: %_nick - Clicked: %_word
}

Şeklinde yapabilirsin. Ben sadece client connectig/giriş için olanı yazdım. Bundan örnek alarak sende çıkış vs. için olanı yazabilirsin.
Not: /shun ve /gline komutlarının nasıl olduğunu tam olarak bilmiyorum. Mantık basitdir: %_ip(ip numarası) - %_nick(nick) olarak döner.

KarabasaN 24 Temmuz 2009 14:42
Oldu Valla bu Ne hız :D

KarabasaN 01 Ağustos 2009 22:37
Alıntı:
L4roXyL Nickli Üyeden Alıntı (Mesaj 392)
Kod:
on ^&*:snotice:*client connect*:$iif(!$window(@root),window -nk0 @root) | echo -ct info @root Client: $9-10 $chr(9) "GLINE" - "NICKBAN" - "SHUN"
on ^*:hotlink:"*":@root:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex
on *:hotlink:*:*: {
  var %_word = $noqt($1),%_ip = $remove($token($token($hotline,4,32),2,64),$chr(41)),%_nick = $token($hotline,3,32)
  if ($(,%_word) = nickban) { var %1 = 1 | while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick) 2 sebeb. | inc %1 } }
  if ($(,%_word) = shun) shun $(,%_nick)
  if ($(,%_word) = gline) gline $(,%_nick) :sebeb.
  ;echo 4 $target IP: %_ip - NICK: %_nick - Clicked: %_word
}
Şeklinde yapabilirsin. Ben sadece client connectig/giriş için olanı yazdım. Bundan örnek alarak sende çıkış vs. için olanı yazabilirsin.
Not: /shun ve /gline komutlarının nasıl olduğunu tam olarak bilmiyorum. Mantık basitdir: %_ip(ip numarası) - %_nick(nick) olarak döner.

Bunu Kullanıyomda Çıkışlarda İşlem Yapmaması Kötü. Çıkışlarda Sadece Gline Atamazmıyım.


++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz.   Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.



mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials



User Alert System provided by Advanced User Tagging v3.1.3 (Lite) - vBulletin Mods & Addons Copyright © 2026 DragonByte Technologies Ltd. Runs best on HiVelocity Hosting.

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76

SEO by vBSEO 3.6.1