mIRC Scripting  


Geri dön   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
  #1  
Alt 23 Temmuz 2009, 22:02
Avatar Yok

mS Puan: 21
mS Derece: KarabasaN
 
Üyelik tarihi: 18 Temmuz 2009
Mesajlar: 27
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
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 Temmuz 2009 Saat 22:05 ) değiştirilmiştir.
Alıntı ile Cevapla
  #2  
Alt 23 Temmuz 2009, 22:49
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 29
Mesajlar: 336
Konular: 101
Eklentiler: 3
Alınan Teşekkür: 21
Yapılan Teşekkür: 0
Standart

Çok pis yazar
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #3  
Alt 24 Temmuz 2009, 00:46
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 38
Mesajlar: 117
Konular: 20
Eklentiler: 0
Alınan Teşekkür: 57
Yapılan Teşekkür: 13
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 Temmuz 2009 Saat 13:15 ) değiştirilmiştir. Sebep: düzeltme
Alıntı ile Cevapla
  #4  
Alt 24 Temmuz 2009, 11:22
Avatar Yok

mS Puan: 21
mS Derece: KarabasaN
 
Üyelik tarihi: 18 Temmuz 2009
Mesajlar: 27
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
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
Alıntı ile Cevapla
  #5  
Alt 24 Temmuz 2009, 11:42
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 29
Mesajlar: 336
Konular: 101
Eklentiler: 3
Alınan Teşekkür: 21
Yapılan Teşekkür: 0
Standart

if *Connecting* iswm $1-
Olarak değiş.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #6  
Alt 24 Temmuz 2009, 11:50
Avatar Yok

mS Puan: 21
mS Derece: KarabasaN
 
Üyelik tarihi: 18 Temmuz 2009
Mesajlar: 27
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

Evet Şimdi Sorunsuz Çalışıyor.

[11:45] Giriş : *** Notice -- Client connecting on port 6667: yuhbee ([email protected]) [clients]
[11:45] Çıkış : *** Notice -- Client exiting: tarık41 ([email protected]) [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 ([email protected]) [clients] (GLİNE) - (Nick-Ban) - (SHUN)
[11:45] Çıkış : *** Notice -- Client exiting: tarık41 ([email protected]) [Connection reset by peer] (GLİNE) - (Nick-Ban) - (SHUN)


Gibi Geliştirilebilir mi
Alıntı ile Cevapla
  #7  
Alt 24 Temmuz 2009, 13:52
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 29
Mesajlar: 336
Konular: 101
Eklentiler: 3
Alınan Teşekkür: 21
Yapılan Teşekkür: 0
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.
Alıntı ile Cevapla
  #8  
Alt 24 Temmuz 2009, 14:42
Avatar Yok

mS Puan: 21
mS Derece: KarabasaN
 
Üyelik tarihi: 18 Temmuz 2009
Mesajlar: 27
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

Oldu Valla bu Ne hız
Alıntı ile Cevapla
  #9  
Alt 01 Ağustos 2009, 22:37
Avatar Yok

mS Puan: 21
mS Derece: KarabasaN
 
Üyelik tarihi: 18 Temmuz 2009
Mesajlar: 27
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
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.
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 Ağustos 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