Aralık 2009 için Arşiv


mIRC Adminler Servere BagLaninca HoşGeldin Mesaji Kodu

Salı, 29 Aralık 2009

Admin Arkadaşlara güzel bir kod daha. Bu kodu kullanabilmeleri için RAW yetkileri olmak zorundadir. Kod ne işe yariyor ilk önce onu belirteLim. Servere baglaniyorsunuz operinizi, Nickinizi, Nick şifrenizi oto giriyorsunuz ve NickServ, HelperServ, OperServ, ChanServ Tüm kanallara Mesaj veriyor. Mesajida göstereLim.

<NickServ> Şifreniz kaßuL EdiLdi Efendim…
<MemoServ> Yeni Mesaj’ınız Yoktur..
<ChanServ> Hoş Geldiniz Sahip !
<HelpServ> IRC/Services Hakkinda Yardim aLabilmeniz için #Help Kanalina Giriniz.
<OperServ> Sunucu Owner DizZy iS Online..

Kod;

on *:CoNNECT:{
.msg nickserv ghost Nickiniz NickŞifreniz
.oper Nickiniz OperŞifreniz
.nick Nickiniz
.msg nickserv identify NickŞifreniz
/absohaber

}

alias absohaber { if !$dde(mirc, channels) { !.echo -a Hiç Bi Kanalda Yoksunuz ! }
else { set %channels $replace($dde(mirc, channels),$chr(32),$chr(44)) }
!.os raw :nickserv privmsg %channels 4Şifreniz kaßuL EdiLdi Efendim…
!.os raw :memoserv privmsg %channels 7Yeni Mesaj’ınız Yoktur..
!.os raw :chanserv privmsg %channels 10Hoş Geldiniz Sahip 4!
!.os raw :helpserv privmsg %channels 4IRC/Services 2Hakkinda Yardim aLabilmeniz için 4#Help 2Kanalina Giriniz.
!.os raw perserv privmsg %channels 6Sunucu Owner 4 Nickiniz  6iS Online4..

}

Etiketler: , , , , , ,
Kategori: mIRC Hazır Kodlar | Yorum Yok »

mIRC Youtube URL Dedektör Kodu

Salı, 29 Aralık 2009

Bu kod ile youtubede izlediginiz veya size verilen linkin basligini görüntülenme sayisini oy verilme sayisini gibi bilgileri göstermenizi saglicaktir.

Kod;

http://www.youtube.com/watch?v=eghL7ORV1lg
<~DizZy> [YouTube]: Başlık: Seinfeld – Million to One Shot Doc | Gönderen

Etiketler: , , , , , ,
Kategori: mIRC Hazır Kodlar | Yorum Yok »

mIRC Yazi Tipi 1 ( Her harf Büyük, Ilk harf Kırmızı, Kelime Sonu 3 Nokta )

Salı, 29 Aralık 2009

Bu kod ile yazdiginiz her cümlenin baş harfi büyük olur. Ilk harf Büyük ve kırmızıdır. Her cümle sonunada kırmızı olarak iki nokta koyulur.
Örnek : Mircindir Web Sitesine Hoşgeldiniz…

Kod;

on *:input:*: {
if $left($1,1) != / && !$ctrlenter && !$inpaste {
var %/ = 1,%= = $numtok($1-,32),%: | while %/ <= %= {
var %: = 4 $addtok(%:,$+($upper($left($gettok($1-,%/,32),1)),$chr(3),$right($gettok($1-,%/,32),-1)),32)
inc %/ | haltdef
}
say %: $+ $chr(3) $+ $chr(52) $+ $chr(46) $+ $chr(46)
halt

Etiketler: , , , , ,
Kategori: mIRC Hazır Kodlar | 1 Yorum »

mIRC’te Tek Kaldigin Kanalda Part Kodu

Salı, 29 Aralık 2009

Bu kod ile tek basına kaldigin kanaldan part edersiniz. Remotelere ekleyiniz. ( ALT+R )

Kod;

on ^*:QUIT:{
var %m 1
while %m <= $comchan($nick,0) {
if $nick($comchan($nick,%m),0) <= 2 { part $comchan($nick,%m) }
inc %m
}
}

Etiketler: , , , , , , ,
Kategori: mIRC Hazır Kodlar | Yorum Yok »

mIRC Proxy Korumasi Kodu

Salı, 29 Aralık 2009

Proxy Korumasi Kodu. Kodun çalışma mantıgı Proxy’lerin baglanma portlarina göre sunucudan uzaklaştirmasidir. Proxy girişi oldugunda ekranda proxy girişini belirtmektedir. Kodu yazan kim bilmiyorum. Aşagidaki linkten kodu aliniz. Remotelere ekleyiniz. ( ALT+R )

Örnek : 1080 gibi proxy baglantisi edenler banlanir.

Kod;

menu menubar,status,channel {
. 1 $chr(11) Proxy Koruması
..Açık:.enable #MKSProxy | echo -a %mksLogo 11,2 Proxy Koruması Devrede.. 
..Kapalı:.disable #MKSProxy | echo -a %mksLogo 11,2 Proxy Koruması Devredışı.. 
}
#MKSProxy on

on ^*:snotice:*: {
if client connecting* iswm $4- {
var %:ip $remove($gettok($10,2,64),$chr(41))
kontrol %:ip
hadd -m ckontrol %:ip $9
halt
}
}
alias kontrol {
sockopen $+(kontrol,$r(1,999999999)) $1- 1080
sockopen $+(kontrol,$r(1,999999999)) $1- 3128
sockopen $+(kontrol,$r(1,999999999)) $1- 9050
sockopen $+(kontrol,$r(1,999999999)) $1- 8000
sockopen $+(kontrol,$r(1,999999999)) $1- 6588
sockopen $+(kontrol,$r(1,999999999)) $1- 3124
sockopen $+(kontrol,$r(1,999999999)) $1- 50050
sockopen $+(kontrol,$r(1,999999999)) $1- 8008
}
on *:sockopen:kontrol*: {
if !$sockerr {
.raw gline *@ $+ $sock($sockname).ip +0 14Proxy Girişi Yasaktır %mksLogo 
echo -a 2Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port,) – Nicki bu:4 $ip2nick($sock($sockname).ip)
hdel ckontrol $sock($sockname).ip
sockclose $sockname
}
}
on *:sockclose:kontrol*: {
hdel ckontrol $sock($sockname).ip
}
alias ip2nick {
var %i 1
while %i <= $hget(ckontrol,0).item {
if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt }
inc %i
}
}

#MKSProxy end

Etiketler: , , , , , , ,
Kategori: mIRC Hazır Kodlar | Yorum Yok »

mIRC TypedURLS(IE’da Girilmiş Adresler)

Salı, 29 Aralık 2009

Internet Explorer sayfasında girilmiş adresleri bu kod ile görebilirsiniz. Kullanımı : /geturls


Kod;

alias geturls {
if ($com(type)) .comclose type
.comopen type wscript.shell
var %a 1
while (%a <= 50) {
var %s $com(type,RegRead,3,bstr,HKCU\Software\Microsoft\Internet Explorer\TypedUrls\url $+ %a) , %url $com(type).result
if (%url) echo -a %url
inc %a
}
}

Etiketler: , , , , ,
Kategori: mIRC Hazır Kodlar | Yorum Yok »

mIRC Renk Kodu Msn Plus Koduna Çevirici

Salı, 29 Aralık 2009

Bu kod ile mIRC Scriptinizde CTRL+K kullanarak yazdıgınız renkli yazılari MSN PLUS olan kişilerde msn plus kodlarina çevirebilirsiniz.

Örnek : Kırmızı renkte DizZy yazdım bu yazıyı CTRL tusuna basarak mIRC’de kopyaladım. Çevirici ile basarak kodu çeviriyorum. Msn Plus da iletilerinizi renkli yazmanizi saglar böyle bi kolaylık olur.

Kod;

alias plus {
var %x $regsubex($1-,/(\d+)( $+ $chr(44) $+ \d+)?\s?/g,\1),%c 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

echo -a $regsubex(%x,/(\d+)\s?(\S+)(\s+|$)/g,[c= $+ $gettok(%c,$iif(\1,$v1,1),32) $+ ]\2[/c]\3)

}

Etiketler: , , , , ,
Kategori: mIRC Hazır Kodlar | Yorum Yok »

mIRC Başka Nickle Gireni Belirleme Kodu

Pazartesi, 28 Aralık 2009

Bu kod ile mIRC’de baska baska nickler ile giren varsa bu kod ile uyari alabilirsiniz. Remotelere ekleyiniz.

Kod;

on 1art:#: { if ( $comchan($nick,0) < 2 ) { nicksgrab $nick $site } }
on 1:quit: { nicksgrab $nick $site }
on 1:kick:#: {
if ( $comchan($knick,0) < 2 ) {
if ( $ial($knick).host != $null ) { nicksgrab $knick $ifmatch }
}
}
alias nicksgrab {
.hadd nicksch $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) $1
}
alias NicksTrouve {
var %a = $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2)
return $iif($hget(nicksch,%a) != $1,$ifmatch)
}
on 1:JOIN:#: {

Etiketler: , , , , , , ,
Kategori: mIRC Hazır Kodlar | Yorum Yok »

mIRC Status Bekleyeni Sajoin – Listele – Gzline

Pazartesi, 28 Aralık 2009

Statuste bekleyenleri istediginiz bir kanala çekebilirsiniz. SF1 tusuna basarak serverdan atabilirsiniz. Kaç tane Statusde nick bekliyor panel üzerinde gelebilirsiniz.

sajoin #X yazan yeri değiştirmeyi unutmayiniz. Almak istediginiz kanali yazin

Kod : Dark   & Edit : DizZy
Kullanımı : /slist

 
Kod;

alias slist .enable #r | who
#r off
raw *:*: {
haltdef
if ($numeric == 352) { $iif(!$window(@slist),window -Cak0dl +L @slist 0 0 200 300) | if ($chr(35) !isin $2) && ($right($6,4) != serv) && ($6 != Global) { inc %1 | aline 5 @slist $+(%1,-,$6)) | sajoin $6 #x } }
if ($numeric == 315) { if ($window(@slist)) { aline @slist $chr(160) | aline @slist Toplam: $+($chr(2),%1,$chr(2)) adet kullanıcı. } | unset %1 | .disable #r }
}
#r end
menu @slist {
lbclick:set %klinenick $gettok($line(@slist,$1,1),2,45)
}
alias SF1 gzline %klinenick +300 Server Kurallarına Aykırı Nick Kullandığınız

Etiketler: , , , , , ,
Kategori: mIRC Hazır Kodlar | Yorum Yok »

mIRC Tüm Kanallardan Banlamak 8 Çeşit Ban

Pazartesi, 28 Aralık 2009

Buna benzer bir kod vermiştim. Bu kodda 8 çeşit ban atıyor. Op oldugun tüm kanallardan atmaya yarar. ALT+R basarak Remotelere giriniz. Aşagidaki kodu yerleştiriniz. F1 tuşuna bastiginizda çalişir.

Kod;

alias F1 {
if $regex($active,/#/A) && $sline($active,0) != $null { .enable #difiwho | who +cn $active $sline($active,1) }
}
#difiwho off
raw 352:*:haltdef | set %difi $2 $6 $3 $4
raw 315:*:haltdef | userip $token(%difi,2,32)
raw 340:*:{
haltdef
var %denisa 1 | while %denisa <= $chan(0) {
if $me isop $chan(%denisa) {
mode $chan(%denisa) +b $+($token(%difi,2,32),!,$token(%difi,3,32),@,$token(%difi,4,32))
mode $chan(%denisa) +b $+($token(%difi,2,32),!,*,@,$token(%difi,4,32))
mode $chan(%denisa) +b $+(*,!,$token(%difi,3,32),@,$token(%difi,4,32))
mode $chan(%denisa) +b $+($token(%difi,2,32),!,$token(%difi,3,32),@,*)
mode $chan(%denisa) +b $+(*,!,*,@,$token(%difi,4,32))
mode $chan(%denisa) +b $+($token(%difi,2,32),!,*,@,*)
mode $chan(%denisa) +b $+(*,!,$token(%difi,3,32),@,*)
mode $chan(%denisa) +b $+(*,!,@,$token($2,2,64))
if $token(%difi,2,32) ison $chan(%denisa) {
kick $chan(%denisa) $token(%difi,2,32) Sebebinizi buraya yazınız
}
}
inc %denisa
}
unset %difi
.disable #difiwho
}
#difiwho end,

Etiketler: , , , , , , , , ,
Kategori: mIRC Hazır Kodlar | Yorum Yok »

« Eski Yazılar
Yeni Yazılar »