Galatasaray Türkçe mIRC
Script’i Buradan İndirebilirsiniz.>> http://rapidshare.com/files/197753351/gskscript.exe
» Devamını OkuTürkçe mIRC indir – Resmi mIRC indirme Sitesi
Türkçe mirc resmi adresi TurkIRC. Mirc indir, mirc sohbet, mirc chat odaları, mirc addonları, IRC Client komutları alanında kaliteli hizmet vermektedir.
Türkçe Mirc Scriptlerini indirmenize kolaylık sağlayan , Mirc programları üzerinde yapabileceğiniz keyifli komutların yer aldığı kategori
Script’i Buradan İndirebilirsiniz.>> http://rapidshare.com/files/197753351/gskscript.exe
» Devamını Oku
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
alias tara { hmake kontrolip set %ta $gettok($address($active,2),2,64) var %i 1 while %i < = $chan(0) { who $chan(%i) | set %kc on | set %nc $active inc %i } .timer 1 1 ka } raw 352:*: { if %kc == on { if $4 == %ta { hadd -m kontrolip $6 hdel kontrolip %nc } } } alias ka { var %i 1 while (%i <= $hmatch(kontrolip,*,0)) { echo -a 12Bu Nickin Cloneleri: 4 $hmatch(kontrolip,*,%i) inc %i } unset %nc %kc %ta | hfree kontrolip } |
Merhabalar , bu snippets yardimiyla Webinizin hız’ını ogrenebilirsiniz . Komut: /webhiz Web Örnek: /webhiz turkirc.com
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
on *:sockopen:hiz*: { var %komut sockwrite -nt $sockname var %63 $+(links=,$sock($sockname).mark) %komut POST /website-hiz-testi HTTP/1.1 %komut Host: wmaraci.com %komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0 %komut Accept: */* %komut Accept-Language: tr-TR %komut Accept-Encoding: gzip, deflate %komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7 %komut Connection: keep-alive %komut Content-Type: application/x-www-form-urlencoded; charset=UTF-8 %komut X-Requested-With: XMLHttpRequest %komut Referer: http://wmaraci.com/website-hiz-testi %komut Content-Length: $calc($len(%63) + 1) %komut Cookie: __utma=149776233.1948714681.1309876669.1312743942.1312764627.30; __utmz=149776233.1312764627.30.27.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=wmaraci; bblastvisit=1309945768; bblastactivity=0; PHPSESSID=b2f6f4894026bde81b22c7731e45584f; __utmb=149776233.5.10.1312764627; __utmc=149776233 %komut Pragma: no-cache %komut Cache-Control: no-cache %komut %komut %63 } on *:sockread:hiz*: { var %whois | sockread %whois if ($regex(%whois, 1tokenize 60 $token(%whois,5,34) | tokenize 62 $1- echo -a Domains: $sock($sockname).mark echo -a Sayfa Boyutu: $gettok($1-,5,32) kb echo -a Yukleme Zamani: $gettok($1-,9,32) sn. echo -a Kb basina Ortalama Hiz: $gettok($1-,13,32) sn } alias webhiz { var %random $rand(0,99999) sockopen $+(hiz,%random) wmaraci.com 80 sockmark $+(hiz,%random) $1 echo -a $qt($1) web hızı test ediliyor.. } |
Kod remoteye eklenilirken aşağıdak işlemlere göre eklenilmesi önerilir. mIRC açıkken “ALT+R” yapın Çıkan mirc remote panelinin sol üst köşesinde “Dosya(File)” var. Ona tıklayıp, Çıkan sekmelerden “Yeni(New)” kısmını tıklayın. Çıkan boş mirc remote sayfasına aşağıdaki kod aynen kopyalayıp tamam deyiniz.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
#IPGoster on on *:snotice:*: { if (Client connecting isin $1-) { if (!$hget(Giris)) { hmake giris 100 } hadd Giris $9 $10 } if (Client exiting isin $1-) { if !$hget(Giris,$6) { hadd Giris $6 $7 } } } on ^*!:Join:#: { haltdef if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(Giris,$nick) } elseif (!$hget(Giris,$nick)) { set -u3 %gnick $nick | set -u3 %gchan $chan | giris | .timer 1 1 .userip $nick } } on ^*:quit: { haltdef var %i = 1, %t = $comchan($nick,0) while (%i < = %t) { echo $comchan($nick,%i) $+($chr(3),$color(quit)) $timestamp *** IRC’den Çıktı: $nick $hget(Giris,$nick) inc %i } hdel Giris $nick } raw 340:*: { haltdef hadd Giris $gettok($2,1,61) $+($chr(40),$gettok($2,2,43),$chr(41)) } on ^*!:Part:#: { haltdef if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(part)) $timestamp *** Ayrıldı: $nick $hget(Giris,$nick) } elseif (!$hget(Giris,$nick)) { set -u5 %pnick $nick | set -u %pchan $chan | cikis | .timer 1 1 .userip $nick } } alias giris { echo %gchan %gnick $hget(Giris,%gnick) } alias cikis { echo %pchan %pnick $hget(Giris,%pnick) } #IPGoster End on *:Exit: { disable #IPGoster } raw 381:*: { enable #IPGoster } |
Kurulum: Kodu çalıştırmak için aşağıdaki 2 işlemden birini uygulayabilirsiniz. 1) Kodları ALT+R yapıp açılan pencereye yapıştırın. 2) Bir not defteri açıp içine yapıştırın ve mIRC klasörünüzün içine atın. Daha sonra mIRCte /load -rs Dosyanız.txt komutunu uygulayın. Kodlar:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 |
;-------------------------------------------------- ; Kötü Rumuz Koruması ; /KötüRumuz Yazarak Çalıştırabilirsiniz... on *:LOAD:{ run notepad.exe nickler.txt set %oto-tara on set %NickDeğiş on set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız. } ;--------------------------------------------------------- alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz } dialog kötürumuz { title "Kötü Rumuz Koruması" size -1 -1 200 180 option dbu text "..:: Rumuz Listesi ::..", 999, 20 10 60 10 combo 1, 5 20 90 130 button "Ekle (+)", 2, 4 146 27 13 button "Çıkar (-)", 3, 32 146 27 13 button "Temizle (!)", 4, 60 146 35 13 box "Seçenekler", 5, 101 17 93 40 check "OP olduğumda tarama yap!", 6, 106 28 73 10 check "Yeni rumuz kötüyse at!", 7, 106 40 70 10 button "?", 8, 182 28 9 9 button "?", 9, 182 40 9 9 box "Kick Mesajınız", 10, 101 60 93 40 edit "", 11, 106 76 83 10, autohs box "Açıklamalar", 12, 101 103 93 55 text "Kötü Rumuz Koruması www.IRCForumlari.net S1y4H", 13, 106 110 85 40 link "www.ircforumlari.net", 14, 108 164 52 15 button "Kapat!", 15, 168 161 27 13 text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable } on *:dialog:kötürumuz:*:*:{ if ($devent == init) { loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1 if (%oto-tara == on) { did -c kötürumuz 6 } if (%NickDeğiş == on) { did -c kötürumuz 7 } did -a $dname 11 %kckmsg } if ($devent == sclick) { if ($did == 2) { var %kötürmz = $did(1).text if $read(nickler.txt,w,%kötürmz) { echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut. } else { write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text } } if ($did == 3) { if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel } } if ($did == 4) { if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki $+ %satırsayısı $+ adet rumuz silindi. | unset %satırsayısı } | else { return } } if ($did == 8) { did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır. } if ($did == 9) { did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır. } if ($did == 6) { if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. } elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. } } if ($did == 7) { if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. } elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. } } if ($did == 14) { run http://www.ircforumlari.net } if ($did == 15) { if ($did(11) == $Null) { echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak. dialog -x kötürumuz kötürumuz set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız. } else { set %kckmsg $did(11) dialog -x kötürumuz kötürumuz } } } } ;-------------------- ; Kodlamalar... ;-------------------- on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg } #NickDeğiş on on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } } #NickDeğiş end alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } inc %_ } return $false } alias krt { if $1 ischan && $me isop $1 { var %` = $lines(Nickler.txt) while %` { if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } dec %~ } } dec %` } } } #oto-tara on on *:OP:#:if $opnick == $me { krt $chan } #oto-tara end |
» Devamını Oku
alias haber { if !$1 { if $timer(haber) { echo -a Haber aktarımı zaten aktif. | halt } set %haberaktarı aktif barwrite Haber aktarımı başlatıldı. barwrite Son dakika haber sistemi by Paint $iif($isfile(haber.txt),.remove haber.txt) .timerhaber 0 6 .haberci } elseif $timer(haber) && $1 == kapat { sockclose haber | .timerhaber off | barhide | unset %haberaktarımı } elseif $1 == […]
» Devamını Okukullanımı /cevir # en-tr yes yazarsanız evet döner /cevir # tr-en evet yazarsanız yes döner aynı mantık diğer dillerdede geçerli örneğin almancada /cevir # de-tr Salut yazarsanız selam döner /cevir # tr-de selam yazarsanız Salut döner kanal kullanıcıları için !cevir en-tr yes yazarsanız evet döner !cevir tr-en evet yazarsanız yes döner aynı mantık diğer dillerdede geçerli örneğin almancada !cevir de-tr […]
» Devamını Oku