mIRC Scripting  


Go Back   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Reply
 
LinkBack Thread Tools
Old 23/07/2009, 22:02   #1
Avatar Yok
Join Date: 18/07/2009
Posts: 27
Threads: 7
Attachments: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
mS Puan: 21
mS Derece: KarabasaN
Default 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.


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

PHP Code:
on ^1:SNOTICE:*:{ 
  if (
exiting isin $1-) { 
    if (!
$window(@Network)) { window -en @Network 
    echo 
-@Network 5  4[5 Çıkış 4]12 $$halt 
  

  if (
Connecting isin $1-) { 
    if (!
$window(@Network)) { window -en @Network 
    echo 
12 -@Network 4 [12 Giriş 412 $$10  halt
  
}
  
halt 
}
on ^1:HOTLINK:*.*.*:*:{
  if ( 
$active #) { halt } 
  
else {
    if (@ 
isin $1) {
      
$x:CoCoRiCo($1,2)
      return $

    
}
  } 
  
halt 
}
on *:HOTLINK:*.*.*:*:{ 
  if (
$active #) { halt } 
  
else { 
    if (@ 
isin $1) {
      
$x:CoCoRiCo($1,1)
    }
  }
}
alias -l X:CoCoRiCo 
  if ($
) {
    var %
q $mid($1,$pos($1,@),$len($1))
    var %
x $calc($len(%q) - )
    ;
S:ban secenegi (Kline
    .
gline $+(*,$left(%q,%x)) [ $me 
    echo 
Yasaklanan ip $+(*,$left(%q,%x))
  }
  if ($
) {
    var %
q $mid($1,$pos($1,@),$len($1))
    var %
x $calc($len(%q) - )
  }



Kodlayan; CoCoRiCo

Last edited by KarabasaN; 23/07/2009 at 22:05.
KarabasaN is offline   Reply With Quote
Old 23/07/2009, 22:49   #2
Avatar Yok
Join Date: 10/07/2009
Yaş: 28
Posts: 334
Threads: 101
Attachments: 3
Alınan Teşekkür: 10
Yapılan Teşekkür: 0
mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
Default

Çok pis yazar
__________________
C/co/cod/code^man.
L4roXyL is offline   Reply With Quote
Old 24/07/2009, 00:46   #3
Avatar Yok
Join Date: 10/07/2009
Konum: \xml:http\
Yaş: 37
Posts: 97
Threads: 13
Attachments: 0
Alınan Teşekkür: 20
Yapılan Teşekkür: 7
mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
Default

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ı.

Code:
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
}
Quote:
Originally Posted by L4roXyL View Post
Çok pis yazar
diyena bak simetrik kodcu (;
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias

Last edited by CoCoRiCo; 25/07/2009 at 13:15. Reason: düzeltme
CoCoRiCo is offline   Reply With Quote
Old 24/07/2009, 11:22   #4
Avatar Yok
Join Date: 18/07/2009
Posts: 27
Threads: 7
Attachments: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
mS Puan: 21
mS Derece: KarabasaN
Default

Quote:
Originally Posted by CoCoRiCo View Post
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ı.

Code:
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
KarabasaN is offline   Reply With Quote
Old 24/07/2009, 11:42   #5
Avatar Yok
Join Date: 10/07/2009
Yaş: 28
Posts: 334
Threads: 101
Attachments: 3
Alınan Teşekkür: 10
Yapılan Teşekkür: 0
mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
Default

if *Connecting* iswm $1-
Olarak değiş.
__________________
C/co/cod/code^man.
L4roXyL is offline   Reply With Quote
Old 24/07/2009, 11:50   #6
Avatar Yok
Join Date: 18/07/2009
Posts: 27
Threads: 7
Attachments: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
mS Puan: 21
mS Derece: KarabasaN
Default

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
KarabasaN is offline   Reply With Quote
Old 24/07/2009, 13:52   #7
Avatar Yok
Join Date: 10/07/2009
Yaş: 28
Posts: 334
Threads: 101
Attachments: 3
Alınan Teşekkür: 10
Yapılan Teşekkür: 0
mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
Default

Code:
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.
__________________
C/co/cod/code^man.
L4roXyL is offline   Reply With Quote
Old 24/07/2009, 14:42   #8
Avatar Yok
Join Date: 18/07/2009
Posts: 27
Threads: 7
Attachments: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
mS Puan: 21
mS Derece: KarabasaN
Default

Oldu Valla bu Ne hız
KarabasaN is offline   Reply With Quote
Old 01/08/2009, 22:37   #9
Avatar Yok
Join Date: 18/07/2009
Posts: 27
Threads: 7
Attachments: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
mS Puan: 21
mS Derece: KarabasaN
Default

Quote:
Originally Posted by L4roXyL View Post
Code:
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.
KarabasaN is offline   Reply With Quote
Reply

Tags
Çıkışlarda, giriş, gline, tek, tıkla

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Internet Explorer Giriş Sayfasını Değiştirme! SeRDaR406 Snippets - Parça kodlar 3 07/08/2009 14:04


Yasal Uyarı
    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting © 2015



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