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.

Cevapla
 
LinkBack Seçenekler
Alt 23/07/2009, 22:02   #1
Avatar Yok
Üyelik tarihi: 18/07/2009
Mesajlar: 27
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
mS Puan: 21
mS Derece: KarabasaN
Standart 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- Kodu:
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

Konu KarabasaN tarafından (23/07/2009 Saat 22:05 ) değiştirilmiştir.
KarabasaN isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 23/07/2009, 22:49   #2
Avatar Yok
Üyelik tarihi: 10/07/2009
Yaş: 28
Mesajlar: 334
Konular: 101
Eklentiler: 3
Alınan Teşekkür: 7
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
Standart

Çok pis yazar
__________________
C/co/cod/code^man.
L4roXyL isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 24/07/2009, 00:46   #3
Avatar Yok
Üyelik tarihi: 10/07/2009
Konum: \xml:http\
Yaş: 37
Mesajlar: 96
Konular: 12
Eklentiler: 0
Alınan Teşekkür: 14
Yapılan Teşekkür: 1
mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
Standart

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ı göster
Çok pis yazar
diyena bak simetrik kodcu (;
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias

Konu CoCoRiCo tarafından (25/07/2009 Saat 13:15 ) değiştirilmiştir. Sebep: düzeltme
CoCoRiCo isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 24/07/2009, 11:22   #4
Avatar Yok
Üyelik tarihi: 18/07/2009
Mesajlar: 27
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
mS Puan: 21
mS Derece: KarabasaN
Standart

Alıntı:
CoCoRiCo Nickli Üyeden Alıntı Mesajı göster
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
KarabasaN isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 24/07/2009, 11:42   #5
Avatar Yok
Üyelik tarihi: 10/07/2009
Yaş: 28
Mesajlar: 334
Konular: 101
Eklentiler: 3
Alınan Teşekkür: 7
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
Standart

if *Connecting* iswm $1-
Olarak değiş.
__________________
C/co/cod/code^man.
L4roXyL isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 24/07/2009, 11:50   #6
Avatar Yok
Üyelik tarihi: 18/07/2009
Mesajlar: 27
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
mS Puan: 21
mS Derece: KarabasaN
Standart

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 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 24/07/2009, 13:52   #7
Avatar Yok
Üyelik tarihi: 10/07/2009
Yaş: 28
Mesajlar: 334
Konular: 101
Eklentiler: 3
Alınan Teşekkür: 7
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
Standart

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.
__________________
C/co/cod/code^man.
L4roXyL isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 24/07/2009, 14:42   #8
Avatar Yok
Üyelik tarihi: 18/07/2009
Mesajlar: 27
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
mS Puan: 21
mS Derece: KarabasaN
Standart

Oldu Valla bu Ne hız
KarabasaN isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 01/08/2009, 22:37   #9
Avatar Yok
Üyelik tarihi: 18/07/2009
Mesajlar: 27
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
mS Puan: 21
mS Derece: KarabasaN
Standart

Alıntı:
L4roXyL Nickli Üyeden Alıntı Mesajı göster
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.
KarabasaN isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

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

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
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