Evet arkadaşlar, Bu mirc kod ile,Windows Kayıt Defterine girdi ekleyebilir, silebilir ve okuyabilirsiniz.  Regs Snippets (Windows Kayıt Defteri İşlemleri) için kullanılır.

Kodu Buradan Görebilirsiniz

Dialog’unuzda kayan yazı örneğini nasıl uygulatabilirsiniz? Bu konuya dâir örnek bir kod. Bu kodu kullanabilmeniz için “mDX.DLL” Dosyasına ihtiyacınız olacaktır.

mdx.DLL dosyasini mIRC’inizde system\dlls\ klasörünün içerisinde olmalidir.

Tıkla Txt Şeklinde Görüntüle.

Bu kod Winamp’ın bulunduğu klasör’ü verir. Winamp her zaman C:\Program Files\Winamp\ klasöründe bulunmayabilir. Bu o kadarda önemli değil. Bu kod ile tam ve doğru klasörü alabilirsiniz.

Kullanımı : //echo -a $wampdir

Kodu Öğrenmek için Tıkla

Bu kod ile herhangi bir sitenin IP adresini ögrebilirsiniz. Remotelere ekleyiniz. Kullanimi : /dns mirctr.biz yazdiginizda bilgileri görebiliceksiniz. Normalde Status’te de vermektedir ama bu kod ile ekranınızda ögrenebiliceksiniz. Statuste ikinci kere aynı yazıda cıkmıcaktir.

mIRC Dns Kod  ;
on *:dns: {
var %d 1
while %d <= $dns(0) {
echo -a Çözülen IP ( $+ %d $+ ): $dns(%d).ip
inc %d
}
linesep -a
echo -a Toplam: $dns(0) adet IP çözüldü.
linesep -a
halt
}

Random Nick Girişlerini bu kod ile engelleyebilirsiniz.

Örnek : klasdsd, sdfdfd, kxnbl gibi nickler..

Yazanı XcLusive diye hatırlıyorum yanlışda olabilir.
Random Nick Korumasi kodu için
VN:F [1.3.2_665]
Bekleyiniz…
Rating: 0.0/10 (0 votes cast)

alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha && $1- islower {
if (($count($1,a,e,i,o,u) >= 4)) { return $false }
if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
if ($regex($1,/^[^aeiou]{3}/)) { return $true }
elseif ($regex($1,/([a-z])\1{2}/)) { return $true }
elseif ($regex($1,/[aeiou]{3/)) { return $true }
elseif ($regex($1,q[^u])) { return $true }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
else { return $false }
}
}
}
alias randn {
if $1- isalpha && $1- islower {
if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
if ($len($1) == 7) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 9) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 10) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }
else { return $false }
}
}
menu channel,status {
Random Nick Koruması
Aç :.enable #random | echo -at Random Nick Koruması Acılmışdır.
kapat:.disable #random | echo -at Random Nick Koruması Kapatılmışdır.
}

Bu kod spamfilter ekleyerek uzun yazi yazma flood gibi korumalarda direk engellenecektir kelime. Yazilan yazi karşi tarafa gitmeden block olucaktir.

/spamfilter add c block - Harfleri_Uzattiginiz_icin_Mesajiniz_BLOCK_Edildi ([a-zA-

Bu kod ile size Notice geldiginde @Notices diye bir pencere açılıcaktir. Size Notice gönderen kişinin nick nick list bölümünde gözükcektir. Notice mesaji ve Notice zamani göstericektir. Diğer Noticelerden farklidir.

on ^*:notice:*:?:{
  if (!$window(@notices)) { window -mel20 @notices }
  if (. !isin $nick) && (????serv !iswm $nick) && ($network != $nick) {
    echo -m @Notices $+(5-,$nick,-) $1- Saat: $time Gün: $date | .linesep @notices | notices $nick
    halt
  }
}

mIRC SCriptlerinizi kaç kere açtiginizi görebilirsiniz. Gerekli kodu ALT+R ile remotelere koyununuz.

on 1:start:{
  inc %scriptsay
  echo -a mIRC Toplam %scriptsay kez açılmiştir
}

Bu kod ile google çeviri sayesinde birçok dil’i tercüme edebilirsiniz. Çok kullanişli bir kod.

Türkçeden ingilizceye çevirelim.

<~admin> !googlecevir tr|en Seni Seviyorum admin
Google Ceviri Admin : I love you admin

!cevir yazarak da hangi dillere cevirebiliceginizi göstericektir.

Buradaki Mantik Pembe renkle yazdıgım tr Türkiye anlamındadir. Yani ilk türkçe kelime sonra en yazdıgım kelimede english ( ingilizce ) cevabi alacaginiz kelimedir.

mIRCTR.Biz !

Google çevir addonu indirmek için tıkla

mIRC Scriptleriniz için Günün Sözü Kodu. GununSozu.com sitesinden cekilmektedir.

alias gununsozu { if $sock(gununsozu) { echo 12 -a * /gununsozu: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen gununsozu www.mynet.com 80 } }
on *:sockopen:gununsozu:{
  var %c = sockwrite -n $sockname
  if ($sockerr) { echo $colour(info) -a * /gununsozu: Hata. | return }
  %c GET /soz.asp HTTP/1.1 | %c Host: mynet.com | %c Connection: Close $str($crlf,2)
}
on *:sockread:gununsozu:{
  var %g | sockread %g | if *class="f1001">* iswm %g { echo 4 -a * Günün sözü; $htmlfree($v2) }
}
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)