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.

Yeni Konu aç Cevapla
LinkBack Seçenekler Stil
  #1  
Okunmamış 07-23-2009, 22:02
KarabasaN - ait Kullanıcı Resmi (Avatar)
Scripting user
 
Üyelik tarihi: Jul 2009
Mesajlar: 27
Beğenim: 13
Beğenilen: 4 \ 2
Tecrübe Puanı: 0
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 (07-23-2009 Saat 22:05 ) değiştirilmiştir.
Alıntı ile Cevapla
  #2  
Okunmamış 07-23-2009, 22:49
Dirty coder,,.
 
Üyelik tarihi: Jul 2009
Yaş: 27
Mesajlar: 334
Beğenim: 12
Beğenilen: 232 \ 99
Tecrübe Puanı: 10
L4roXyL Kod delisiL4roXyL 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.
Alıntı ile Cevapla
  #3  
Okunmamış 07-24-2009, 00:46
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
Chief
 
Üyelik tarihi: Jul 2009
Bulunduğu yer: \xml:http\
Yaş: 36
Mesajlar: 97
Beğenim: 86
Beğenilen: 108 \ 47
Tecrübe Puanı: 10
CoCoRiCo ÇalışkanCoCoRiCo Ç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ı.

Ms 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
}
Mesajdan yapılan 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 (07-25-2009 Saat 13:15 ) değiştirilmiştir. Sebep: düzeltme
Alıntı ile Cevapla
  #4  
Okunmamış 07-24-2009, 11:22
KarabasaN - ait Kullanıcı Resmi (Avatar)
Scripting user
 
Üyelik tarihi: Jul 2009
Mesajlar: 27
Beğenim: 13
Beğenilen: 4 \ 2
Tecrübe Puanı: 0
KarabasaN
Standart

Mesajdan yapılan 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ı.

Ms 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
Alıntı ile Cevapla
  #5  
Okunmamış 07-24-2009, 11:42
Dirty coder,,.
 
Üyelik tarihi: Jul 2009
Yaş: 27
Mesajlar: 334
Beğenim: 12
Beğenilen: 232 \ 99
Tecrübe Puanı: 10
L4roXyL Kod delisiL4roXyL 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.
Alıntı ile Cevapla
  #6  
Okunmamış 07-24-2009, 11:50
KarabasaN - ait Kullanıcı Resmi (Avatar)
Scripting user
 
Üyelik tarihi: Jul 2009
Mesajlar: 27
Beğenim: 13
Beğenilen: 4 \ 2
Tecrübe Puanı: 0
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
Alıntı ile Cevapla
  #7  
Okunmamış 07-24-2009, 13:52
Dirty coder,,.
 
Üyelik tarihi: Jul 2009
Yaş: 27
Mesajlar: 334
Beğenim: 12
Beğenilen: 232 \ 99
Tecrübe Puanı: 10
L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
Standart

Ms 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.
Alıntı ile Cevapla
L4roXyL kullanıcısının bu postunu beğenenler.
KarabasaN (08-01-2009)
  #8  
Okunmamış 07-24-2009, 14:42
KarabasaN - ait Kullanıcı Resmi (Avatar)
Scripting user
 
Üyelik tarihi: Jul 2009
Mesajlar: 27
Beğenim: 13
Beğenilen: 4 \ 2
Tecrübe Puanı: 0
KarabasaN
Standart

Oldu Valla bu Ne hız
Alıntı ile Cevapla
  #9  
Okunmamış 08-01-2009, 22:37
KarabasaN - ait Kullanıcı Resmi (Avatar)
Scripting user
 
Üyelik tarihi: Jul 2009
Mesajlar: 27
Beğenim: 13
Beğenilen: 4 \ 2
Tecrübe Puanı: 0
KarabasaN
Standart

Mesajdan yapılan alıntı:
L4roXyL Nickli Üyeden Alıntı Mesajı göster
Ms 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.
Alıntı ile Cevapla
Cevapla

Bookmarks

Seçenekler
Stil

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



++ 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




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

Content Relevant URLs by vBSEO 3.6.0 PL2