mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
05 Kasım 2023, 02:17 | #1 |
Mobil web applet giris yasaklama !mobilban !webban
Kodon *:snotice:*: { $iif(*Client connecting* iswm $1-,.timer 1 15 ctcp $9 version) } on *:ctcpreply:*version*: { if $regex($2-,qwebirc v0.93) { var %:uid $token($1-,-1,32) if $hget(webban,%:uid) || $hget(mobilban,%:uid) { msg #X 0,4 UYARI 4 : $nick 1Yasaklı giriş yaptığı tespit edildi. - 4Tür: 1Mobil Ban 4Yasak Sıra No:1 %:uid $+ zline $nick 0 0,12 * 1 Girişiniz 12Yöneticiler1 tarafından yasaklanmıştır1. return } echo -s $15 if *Windows* iswm $15 { msg #X 1[12Web Giriş1] - Nick:12 $nick 1Tarayıcı:12 $iif(*KHTML* iswm $18,$21,$iif(like = $18,Opera/11.748.47,$iif(*Gecko* iswm $18,Mozilla/8.4781.254,$18))) 1İşletim Sistemi:12 Windows $iif(10 isin $remove($token($11,1,46),;),$remove($token($11,1,46),;),7) 1Cihaz:12 Bilgisayar 1UID:12 %:uid } elseif *Linux* iswm $15 || *iphone* iswm $15 { msg #X 1[10Mobil Giriş1] - Nick:10 $nick 1Tarayıcı:10 $iif($left($17,-1) = X,$18,$iif(*KHTML* iswm $17,$20,$iif(like = $17,Opera/11.748.47,$iif(*Gecko* iswm $17,Mozilla/8.4781.254,$17)))) 1İşletim Sistemi:10 $iif(CPU* iswm $10,İOS $token($13,1,$asc(_)),$10 $left($11,-1)) 1Cihaz:10 $iif(O = $left($12,-1),iPhone,$left($12,-1)) 1UID:10 %:uid } msg #X 4***2 $nick 1nickinin girişini yasaklamak için2 $iif(*Windows* iswm $9,!webban,!mobilban) ekle %:uid 1komutunu kullanabilirsiniz. 0,4 UYARI 4 :1 Gereksiz kullanmak yasaktır. .hadd -m banned %:uid $nick msg #X } if $regex($2-,SekerShell Mobile IRC) { var %:uid $token($1-,-1,32) if $hget(webban,%:uid) || $hget(mobilban,%:uid) { msg #X 0,4 Sabıkalı Giriş 1:4 $nick 1yasaklı giriş tespit edildi. (4Yasak Sıra No: %:uid $+ 1) zline $nick 0 0,4 * 1Girişiniz 4Yöneticiler1 Tarafından Yasaklanmıştır. return } if *Windows* iswm $10 { msg #X 1[12Web Girişi1] - Nick:12 $nick 1Tarayıcı:12 $iif(*KHTML* iswm $19,$22,$iif(like = $19,Opera/11.748.47,$iif(*Gecko* iswm $19,Mozilla/8.4781.254,$19))) 1İşletim Sistemi:12 Windows $iif(*10* iswm $remove($token($12,1,46),;),$remove($token($12,1,46),;),7) 1Cihaz:12 Bilgisayar 1UID:12 %:uid } elseif *Linux* iswm $10 || *iphone* iswm $10 { msg #X 1[10Mobil Giris1] - Nick:10 $nick 1Tarayıcı:10 $iif($left($18,-1) = X,$19,$iif(*KHTML* iswm $18,$21$iif(like = $18,Opera/11.748.47,$iif(*Gecko* iswm $18,Mozilla/8.4781.254,$18)))) 1İşletim Sistemi:10 $iif(CPU* iswm $11,İOS $token($14,1,$asc(_)),$11 $left($12,-1)) 1Cihaz:10 $iif(O = $left($13,-1),iPhone,$left($13,-1)) 1UID:10 %:uid } msg #X 4***2 $nick 1nickinin girişini yasaklamak için2 $iif(*Windows* iswm $10,!webban,!mobilban) ekle %:uid 1komutunu kullanabilirsiniz. 0,4 UYARI 4 :1 Gereksiz kullanmak yasaktır. .hadd -m banned %:uid $nick msg #X } haltdef } on *:text:*:*: { if $regex($1,/^([!.]mob[iİı]lban)/Si) { mkdir Hash if !$regex($2,/^(ekle|s[iıİ]l|l[iİı]st)/Si) { msg #X Hatalı Komut Kullandınız12 ( $1 on|off ) | return } if $2 == ekle && $3 { if $hget(mobilban,$3) { msg #X $3 Zaten Mobil Ban Konumunda. | return } .hadd -m mobilban $3 ok | .hsave mobilban Hash/mobilban.ymc msg #X $3 Mobil Ban Lisesine Eklendi. zline $hget(banned,$3) 0 1Girişiniz Yöneticiler1 Tarafindan Yasaklanmıştır. } elseif $regex($2,/^(s[iYy]l)/Si) && $3 { if !$hget(mobilban,$3) { msg #X $3 Zaten Mobil Ban Konumunda Değil. | return } .hdel mobilban $3 | .hsave mobilban Hash/mobilban.ymc msg #X $3 Mobil Ban Lisesinden Silindi. } elseif $regex($2,/^(l[iYy]st)/Si) { msg #X 1[12 $_network $_host - Mobil Ban Listesi1 ] msg #X var %i = 1 | while %i <= $hget(mobilban,0).item { msg #X -12 $hget(mobilban,%i).item inc %i } } } if $regex($1,/^([!.]webban)/Si) { mkdir Hash if !$regex($2,/^(ekle|s[iıİ]l|l[iİı]st)/Si) { msg #X Hatalı Komut Kullandınız12 ( $1 on|off ) | return } if $2 == ekle && $3 { if $hget(webban,$3) { msg #X $3 Zaten Web Ban Konumunda. | return } .hadd -m webban $3 ok | .hsave webban Hash/webban.ymc msg #X $3 Web Ban Lisesine Eklendi. zline $hget(banned,$3) 0 1Girişiniz Yöneticiler1 Tarafından Yasaklanmıştır. } elseif $regex($2,/^(s[iYy]l)/Si) && $3 { if !$hget(webban,$3) { msg #X $3 Zaten Web Ban Konumunda Değil. | return } .hdel webban $3 | .hsave webban Hash/webban.ymc msg #X $3 Web Ban Lisesinden Silindi. } elseif $regex($2,/^(l[iYy]st)/Si) { msg #X 1[12 $_network $_host - Web Ban Listesi1 ] msg #X var %i = 1 | while %i <= $hget(webban,0).item { msg #X -12 $hget(webban,%i).item inc %i } } } }
________________
Hersey icin fazla sanalsiniz.
|
|
|
07 Kasım 2023, 10:19 | #2 |
Paylaşım için teşekkürler.
________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] HerŞeyi Sana Yazdım, HerŞeye Seni YazdIm... |
|
|
09 Kasım 2023, 11:27 | #3 |
emeğine sağlık paylaşım için teşekkürler
________________
Çekme, Cennetimin Pencerelerine perde.
Kaldır! Göz kapaklarını |
|
|
13 Kasım 2023, 12:17 | #4 |
Emeğine sağlık
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
________________
Edep; aklın Tercümanıdır. İnsan edebi kadar akıllı, Aklı kadar şerefli, Şerefi kadar Kıymetlidir. Massive.. ~ E & B ~ |
|
|
13 Kasım 2023, 13:52 | #5 | |
Alıntı:
Yakinda detayli bir bot paylasicam
________________
Hersey icin fazla sanalsiniz.
|
||
|
13 Kasım 2023, 13:58 | #6 |
Değerli paylaşımınız için teşekkürler
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
________________
~ E & B ~ |
|
|
13 Kasım 2023, 16:47 | #7 |
Oluyorsun oluyorsun piyasada pes etmeyen sayılı kişilerden birtanesisin
________________
Edep; aklın Tercümanıdır. İnsan edebi kadar akıllı, Aklı kadar şerefli, Şerefi kadar Kıymetlidir. Massive.. ~ E & B ~ |
|
|
13 Kasım 2023, 22:08 | #8 |
Emeğine sağlık
________________
Seviyorum içimdeki alıngan ama haylaz çocuğu.. Sever, kırılır, küser.. Ama göz ucuyla hep bir gülücük bekler... |
|
|
19 Kasım 2023, 01:57 | #9 |
Emeğinize sağlik
________________
bazen insanlar iyilesmek istemez.
cünkü , icindeki acı sevdiklerinin son hatirasidir.. per aspera ad astra ✨ |
|
|
24 Kasım 2023, 08:26 | #10 |
Emeğinize Sağlık
|
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|