mircmekan.tr.gg,mircmekan,trresim,resim,tr resim,telehaber.tr.gg,haber,sapancam.net,sapancam,telehaber.tr.gg,telehaber

Yeni BiLGiLeR(9)

Mesaj Uyarıcısı v0.2

BY SeRDaR406

Bu addon mirc’in aktif olmadığı durumlarda özeline mesaj geldiğinde yada

kanaldan birisi size seslendiğinde sizi uyaran bir addondur.Web’de sörf

yaparken işinize yarayacağını düşündüğüm bir addon

Uyarıcı pencereleri normal ve msn tarzında olmak üzere 2′ye ayrılmıştır.

Normal stilde birbirinden değişik gradient renkler yer almaktadır.

Her iki stildeki uyarıcı da uyarı sesi yer almaktadır.Uyarı pencerelerinin

titlebar(başlık çubuğu)’ında yer alan checkbox’a tıklayarak uyarıcıyı

kapatabilirsiniz…
================================================== =====

Addonu indirmek için: http://www.geocities.com/serdar_none/muyv02.zip


===========================================================

mIRC Alexa Sıranız Ve PR Değeriniz

Alexa; Trafik Durumudur Web Siteniz Kaçıncı Sırada Onu Gösterir
PR Değeriniz; Bunuda biliyorsunuz Google Popülerliğiniz :)

2 Ayrı Kod yazdım Kodlarımız;

1- mIRC üzerinden Komut Olarak Öğrenmek

; Bu Satırdan sonra yapıcağınız değişiklikler çalışmamasına sebep olabilir
; PR Ve Alexa Değerleri IWebtool'dan Alınmaktadır
; www.mIRCDb.Com / www.PREkle.Com
; CipriXCem@GmaiL.Com
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
on *:sockopen:pr:{
sockwrite -n $sockname GET /tool/tools/rank/rank.php?domain= $+ %site HTTP/1.1
sockwrite -n $sockname Host: iwebtool.com $+ $crlf $+ $crlf
}
on *:sockread:pr:{
var %prdeger
sockread %prdeger
if ($+(*,Google*Pagerank*For,*) iswm %prdeger) {
if */* iswm $+(,$gettok($remove($htmlfree(%prdeger),Google,PageRank,for,is:),2,32),) {
echo -a Verdiğiniz Web Sitesi hatalı veya böyle bi site mevcut değil Lütfen Tekrar Deneyiniz.. (Verdiğiniz Site: $+(,%site,) $+ )
.halt
}
else {
echo -a 4—————————————————————————————–
echo -a $+(,www.,%site,) : 10 Pagerank Değeri Üzerinden Web Sitenizin Değeri $+(,$gettok($remove($htmlfree(%prdeger),Google,PageRank,for,is:),2,32),)
}
}
if ($+(*,Alexa*Ranking*For,*) iswm %prdeger) {
echo -a 4—————————————————————————————–
echo -a $+(,www.,%site,) : Alexa Trafik Sırası Sitenizin Bütün Dünyadaki Siteler arasındaki Sırası $+(,$gettok($htmlfree(%prdeger),7,32),)
echo -a 4—————————————————————————————–
}
}
alias pa {
if $1 == $null {
echo -a Lütfen Bir Site Belirtiniz ÖRN: /pa mircdb.com
}
else {
.set %site $remove($1,www.)
.sockclose pr
.sockopen pr www.iwebtool.com 80
echo -a Alexa Sıranız Ve Pagerank Değerinize Bakılıyor Lütfen Bekleyiniz ( $+ $+(,%site,) $+ )
}
}

ÖRNEKLER;

Komut: /pa mirctr.org
Cevap:

Alexa Sıranız Ve Pagerank Değerinize Bakılıyor Lütfen Bekleyiniz (mirctr.org)
—————————————————————————————–
www.mirctr.org : 10 Pagerank Değeri Üzerinden Web Sitenizin Değeri 2
—————————————————————————————–
www.mirctr.org : Alexa Trafik Sırası Sitenizin Bütün Dünyadaki Siteler arasındaki Sırası 117,249
—————————————————————————————–

Komut: /pa heheehahahaha.com
Cevap:

Alexa Sıranız Ve Pagerank Değerinize Bakılıyor Lütfen Bekleyiniz (heheehahahaha.com)
Verdiğiniz Web Sitesi hatalı veya böyle bi site mevcut değil Lütfen Tekrar Deneyiniz.. (Verdiğiniz Site: heheehahahaha.com)

====================================

2- Bot Üzerinden Kanaldan Öğrenmek

; Bu Satırdan sonra yapıcağınız değişiklikler çalışmamasına sebep olabilir
; PR Ve Alexa Değerleri IWebtool'dan Alınmaktadır
; www.mIRCDb.Com / www.PREkle.Com
; CipriXCem@GmaiL.Com
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
on *:sockopen:pr:{
sockwrite -n $sockname GET /tool/tools/rank/rank.php?domain= $+ %site HTTP/1.1
sockwrite -n $sockname Host: iwebtool.com $+ $crlf $+ $crlf
}
on *:sockread:pr:{
var %prdeger
sockread %prdeger
if ($+(*,Google*Pagerank*For,*) iswm %prdeger) {
if */* iswm $+(,$gettok($remove($htmlfree(%prdeger),Google,PageRank,for,is:),2,32),) {
msg %kanal Verdiğiniz Web Sitesi hatalı veya böyle bi site mevcut değil Lütfen Tekrar Deneyiniz.. (Verdiğiniz Site: $+(,%site,) $+ )
.halt
}
else {
msg %kanal 4—————————————————————————————–
msg %kanal $+(,www.,%site,) : 10 Pagerank Değeri Üzerinden Web Sitenizin Değeri $+(,$gettok($remove($htmlfree(%prdeger),Google,PageRank,for,is:),2,32),)
}
}
if ($+(*,Alexa*Ranking*For,*) iswm %prdeger) {
msg %kanal 4—————————————————————————————–
msg %kanal $+(,www.,%site,) : Alexa Trafik Sırası Sitenizin Bütün Dünyadaki Siteler arasındaki Sırası $+(,$gettok($htmlfree(%prdeger),7,32),)
msg %kanal 4—————————————————————————————–
}
}
alias pa {
.set %site $remove($1,www.)
.sockclose pr
.sockopen pr www.iwebtool.com 80
msg %kanal Alexa Sıranız Ve Pagerank Değerinize Bakılıyor Lütfen Bekleyiniz ( $+ $+(,%site,) $+ )
}
on *:text:*:#Kanal:{
if !pa* iswm $1- {
if $2 == $null {
msg $chan Lütfen Site Belirtiniz ÖRN: !pa mircdb.com
}
else {
.set %kanal $chan
pa $remove($2,www.)
}
}
}

NOT KANAL İÇİN KULLANICAKLAR #KANAL’I KENDİ KANALINA GÖRE AYARLAMALIDIR


===========================================================


mIRC Kanal bilgi

Kodenin amacı,
Bulunduğunuz herhangi kayıtlı bir kanal hakkında ayrıntılı bilgi almaktır.
Uygulanma; /tara #kanal şeklindedir.
Tavsiyeler;
Herhangi bir kanal’ı taramadan önce, en az 1/bir dakika o kanalın içinde bulunmanız size daha net sonuçlar sunacaktır.
Yaptığı işlevler;

1 - Kanaldaki normal kullanıcı sayısı ve yüzdesi.
2 - Kanaldaki voice sayısı ve yüzdesi(Nickler’le beraber)
3 - Kanaldaki halfop sayısı ve yüzdesi(Nickler’le beraber)
4 - Kanaldaki op sayısı ve yüzdesi(Nickler’le beraber)
5 - Kanaldaki protect sayısı ve yüzdesi(Nickler’le beraber)
6 - Kanaldaki owner sayısı ve yüzdesi(Nickler’le beraber)
7 - Kanaldaki ban sayısı.
8 - Kanal kayıt tarihi.
9 - Kanal sahibi.
10 - Varsa e-mail adresi.
11 - Varsa web(url) adresi.
12 - Varsa mode kilitleri.
13 - Topic’i yazanı gösterme.
14 - Varsa ek korumalar.
15 - Kanalda’ki IRCop sayısı(Nickler’le beraber)

###############################
# Yazan: L4roXyL #
# Yazılış tarihi: 22/08/2207 #
# mIRC Scripting bir sanattır.#
###############################
#k off
raw *:*:{ if ($numeric == 352) && ( * isin $7 ) { set %s $addtok(%s,$6,32) | haltdef } | if ($numeric == 315) { var %sayı = $numtok(%s,32) | .aline @Tarama-Sonuç -2 IRCOP sayısı:5 %sayı | .aline @Tarama-Sonuç -2 IRCOP Nickler:5 %s | .aline @Tarama-Sonuç - | .disable #k | unset %s | haltdef } }
#k end
#y on
raw 324:*: { .aline @Tarama-Sonuç -2 Online modeler:5 $str($chr(32),3) $3- | .aline @Tarama-Sonuç - | halt | .disable #y }
#y end
on *:notice:*:?: {
if ($nick == ChanServ) && (*Kanal Sahibi* iswm $1-) { var %sahib = $3 | aline @Tarama-Sonuç -2 Kanal Sahibi:5 $str($chr(32),3) $iif(!%sahib,Kanal kayıtlı değil.,%sahib) }
if ($nick == ChanServ) && (*Founder* iswm $1-) { var %sahib = $3 | aline @Tarama-Sonuç -2 Kanal Sahibi:5 $str($chr(32),3) $iif(!%sahib,Kanal kayıtlı değil.,%sahib) }
if ($nick == ChanServ) && (*Kayit Zamani* iswm $1-) { var %kayıt = $+($addtok(Ay:,$3,32),$chr(32),$addtok(Gün:,$4,32),$chr(32),$addtok(Saat:,$5,32),$chr(32),$addtok(Yıl:,$6,32)) | aline @Tarama-Sonuç -2 Kayıt tarihi:5 $str($chr(32),3) $iif(!%kayıt,Kanal kayıtlı değil.,%kayıt) }
if ($nick == ChanServ) && (*Kayıt Tarihi* iswm $1-) { var %kayıt = $+($addtok(Ay:,$3,32),$chr(32),$addtok(Gün:,$4,32),$chr(32),$addtok(Saat:,$5,32),$chr(32),$addtok(Yıl:,$6,32)) | aline @Tarama-Sonuç -2 Kayıt tarihi:5 $str($chr(32),3) $iif(!%kayıt,Kanal kayıtlı değil.,%kayıt) }
if ($nick == ChanServ) && (*URL* iswm $1-) { var %URL = $2 | aline @Tarama-Sonuç -2 Web adresi:5 $str($chr(32),3) $iif(!%URL,Girilmemiş.,%URL) }
if ($nick == ChanServ) && (*E-mail adresi* iswm $1-) { var %email = $3 | aline @Tarama-Sonuç -2 E-mail adresi:5 $str($chr(32),3) $iif(!%email,Girilmemiş.,%email) }
if ($nick == ChanServ) && (*Ekler* iswm $1-) { var %ek $2- | aline @Tarama-Sonuç -2 Ek korumalar:5 $str($chr(32),3) $iif(!%ek,Eklenmemiş.,%ek) }
if ($nick == ChanServ) && (*Mode Kilidi* iswm $1-) { var %mode = $3- | aline @Tarama-Sonuç -2 Mode kilitleri:5 $str($chr(32),3) $iif(!%mode,Eklenmemiş.,%mode) | aline @Tarama-Sonuç - }
if ($nick == ChanServ) && (*Topici yazan* iswm $1-) { var %top = $3- | aline @Tarama-Sonuç -2 Topic'i yazan:5 $str($chr(32),3) $iif(!%top,Yazılmamış.,%top) }
}
alias ak { .artakalan | .vop | .hop | .op | .sop | .fon }
alias hop { var %x = $nick(#,0,%) | var %y | while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x,%),32) } | dec %x } | if ($nick($chan,0,%) != 0) { aline @Tarama-Sonuç -2 Halfop sayısı:5 $nick($chan,0,%) $str($chr(32),5) | aline @Tarama-Sonuç -2 Yüzdelik oranı:5 $+(%,$left($calc($nick($chan,0,%) * 100 / $nick($chan,0)),4)) $str($chr(32),5) | aline @Tarama-Sonuç -2 Halfop Nick:5 %y | aline @Tarama-Sonuç - } }
alias fon { var %: = $nick(#,0,~) | var %. | while %: { if $nick(#,%:) != $me { %. = $addtok(%.,$nick(#,%:,~),32) } | dec %: } | if ($nick($chan,0,~) != 0) { aline @Tarama-Sonuç -2 Owner sayısı:5 $nick($chan,0,~) $str($chr(32),5) | aline @Tarama-Sonuç -2 Yüzdelik oranı:5 $+(%,$left($calc($nick($chan,0,~) * 100 / $nick($chan,0)),4)) $str($chr(32),5) | aline @Tarama-Sonuç -2 Owner Nick:5 %. | aline @Tarama-Sonuç - } }
alias op { var %- = $nick(#,0,@) | var %_ | while %- { if $nick(#,%-) != $me { %_ = $addtok(%_,$nick(#,%-,@),32) } | dec %- } | if ($nick($chan,0,@) != 0) { aline @Tarama-Sonuç -2 Op sayısı:5 $nick($chan,0,@) $str($chr(32),5) | aline @Tarama-Sonuç -2 Yüzdelik oranı:5 $+(%,$left($calc($nick($chan,0,@) * 100 / $nick($chan,0)),4)) | aline @Tarama-Sonuç -2 Op Nick:5 %_ | aline @Tarama-Sonuç - } }
alias vop { var %:: = $nick(#,0,+) | var %" | while %:: { if $nick(#,%::) != $me { %" = $addtok(%",$nick(#,%::,+),32) } | dec %:: } | if ($nick($chan,0,+) != 0) { aline @Tarama-Sonuç -2 Voice sayısı:5 $nick($chan,0,+) $str($chr(32),5) | aline @Tarama-Sonuç -2 Yüzdelik oranı:5 $+(%,$left($calc($nick($chan,0,+) * 100 / $nick($chan,0)),4)) | aline @Tarama-Sonuç -2 Voice Nick:5 %" | aline @Tarama-Sonuç - } }
alias sop { var %-_ = $nick(#,0,&) | var %_- | while %-_ { if $nick(#,%-_) != $me { %_- = $addtok(%_-,$nick(#,%-_,&),32) } | dec %-_ } | if ($nick($chan,0,&) != 0) { aline @Tarama-Sonuç -2 Protect sayısı:5 $nick($chan,0,&) $str($chr(32),5) | aline @Tarama-Sonuç -2 Yüzdelik oranı:5 $+(%,$left($calc($nick($chan,0,&) * 100 / $nick($chan,0)),4)) | aline @Tarama-Sonuç -2 Protect Nick:5 %_- | aline @Tarama-Sonuç - } }
alias artakalan { var %oyeah # | if ($nick(#,0) != 0) { set %kullanıcı $calc($nick(%oyeah,0)-$calc($nick(%oyeah,0,+)+$nick(%oyeah,0,%)+$nick(%oyeah,0,@)+$nick(%oyeah,0,&)+$nick(%oyeah,0,~))) | aline @Tarama-Sonuç - | aline @Tarama-Sonuç -2 Toplam Kullanıcı:5 $str($chr(32),3) %kullanıcı | aline @Tarama-Sonuç -2 Yüzdelik Oranı:5 $str($chr(32),3) $+($chr(37),$left($calc(%kullanıcı * 100 / $nick(%oyeah,0)),4)) | aline @Tarama-Sonuç - | .unset %kullanıcı } }
alias tara { if $left($1,1) != $chr(35) { echo -a $timestamp ==> Bilgi: Lütfen kanal taramak için kanal işaretini geriniz. Örnek: /tara #kanal | halt } | if ($me !ison $1) { echo -a $timestamp ==> Bilgi: Bulunmadığın bir kanalı taramayazsın. | halt } | if !$1 { .echo -a $timestamp ==> Bilgi: Herhangi bir kanal ismi girmediniz. Kullanım şekli /tara #kanal | halt } | else {
.echo -a $timestamp ==> Bilgi: Lütfen bekleyiniz, $1 kanal'ı için tarama başlatıldı. | .var %tik = $ticks | .enable #k | .who $1 | .cs info $1 | .enable #y | .mode $1 | .window -aCbldk0 -t20,25 @Tarama-Sonuç -1 -1 800 700 Tahoma 12 | .aline @Tarama-Sonuç -2 Bağlı olduğunuz ağ:5 $network | .aline @Tarama-Sonuç -2 Bağlı olduğunuz sunucu:5 $server | .aline @Tarama-Sonuç -2 Taranan kanal:5 $1 | .aline @Tarama-Sonuç - | .aline @Tarama-Sonuç -2 Bilgiler sıralanıyor, bekleyiniz. | .aline @Tarama-Sonuç - | .aline @Tarama-Sonuç -2 Ban sayısı:5 $ibl($1,0) | .timer 1 6 .ak | .timer 1 8 .aline @Tarama-Sonuç -2 Tarama tamamlandı. Tarama süresi:5 $calc(($ticks - %tik) / 1000) 2saniye. }
}
on 1:load: { .echo -a 2==> Bilgi: 5Kanal tarama snippet, başarı ile yüklendi. | echo -a 2==> 2Bilgi:5 Herhangi bir kanalı taramadan önce, kanal içerisinde en geç 1 dakika süre bulunmak zorundasınız. | .echo -a 2==> 2Bilgi:5 Yani tarayacağınız kanal'da, en az 1 dakikadır bulunuyor olmalısınız. | .echo -a 2==> 2Yapımcı:5 L4roXyL | .echo -a 2==> 2Tarih:5 22/08/2007 - Çarşamba | .echo -a 2==> 2Kaldırmak için:5 /unload -rs yuklediğinizdosyaismi.uzantısı 2yazınız. }
on 1:unload: { .echo -a 2==> Bilgi:5 Kanal tarama snippet, başarı ile kaldırıldı. 2Yapımcı :5 L4roXyL }

=============================================================

mIRC Topic Menüsü ( POPUPS ) ( Xpopups.dLL)

Bu addon sadece popups menuden ve xpopups.dll ile Oluşuyor…

mIRCte sağ tıkladığımızda karsınıza çıkan popups’ü renklendirdim ve örnek olarakda topic menusu verdim örneğe bakarak bu addonu genişletebilirsiniz…

resme gerek duymadım çünkü sadece popup menüsü… kolay menü…

indirme adresi http://files-upload.com/files/463944/topic.rar

neden topic ekledin derseniz sadece xpopups.dll nin icon ve resimleri nasıl kullanılıyor onu göstermek istedim
resim dll nin tek koduyla oluyor ama…
İcon Yerleştirmek ise 1 $chr(11) yazısını her menunun basına koymakla Oluyor dialoglarda işe yaramaz sadece popups menulerinde işe yarar bu topic menusunu o yüzden örnek verdim…

================================================================

mIRC Günlük Burc Yorumcusu Addonu

Günlük Burc Yorumcusu(+PLuS)
Günlük olarak değişen burc yorumlarınızı okuyabileceğiniz,seçtiğiniz burcun özelliklerini inceleyebileceğiniz ve seçtiğiniz burcun para,aşk,iş ve sağlık durumlarını grafik olarak görebileceğiniz bir addon.

================================================================


mIRC Sözlük

mIRC Sözlük v0.1 BY SeRDaR406

5 dilde kelime çevirisi yapabileceğiniz bir addon.

Herhangi bir dil seçimi yapmanıza gerek yok.Girdiğiniz

kelimenin bu 5 dildeki anlamlarını verir.

Diller: Türkçe,İngilizce,İtalyanca,Almanca ve Ispanyolca

Ayrıca herhangi bir ismin anlamını,kökenini,söylenişini ve hangi

cinsiyete ait olduğunu öğrenebilirsiniz.

Babylon kadar olmasada yazdık basit bi sözlük işte (:

Addonu indirmek için: http://www.geocities.com/serdar_none/mmsoz01.zip

===========================================================


mIRC /dtara sürücü dosya(Dosya arama)

Vereceğim kod’un bu kadar karmaşık olduğuna bakmayın, yani kafanız karışmasın.
Ben zaten karmaşık yazmayı seviyorum.
Zaten bu kod’un oluşmasının sebebi $finddir identifier’ı.
Diğer identifier’lar zaten bildikleriniz.
Bilmediklerinizi açıklıyacağım.
Kullanılan identifier’lar;
$disk(sürücü-adı) : Adı üstünde bilgisayarınız’daki sürücü ismini kontrol eder.
//echo -a $disk(C) yaparsanız ve C adında bir sürücünüz varsa, $true olarak dönecektir.
$qt(text) : Bu identifier’ın görevi; içerisine yazılan yazının başına ve sonuna tırnak işareti koyacaktır. Yani //echo -a $qt(Hasan) yaptığınızda; “Hasan” olarak dönecektir.
Sanırım kod’un içerisinde başka yabancı gelecek bir identifier mevcut değil.
$gettok : Token identifier’ı bol bol görmüşsünüzdür.
$chr(sayı) : Girilen ascii numarasını, ait karakter’e çevirir. Bunuda biliyorsunuz.
$strip : Yazıyı renk kalın ince vb. detaylardan arındırmak için kullanılır.
Sanırım başka bir identifier’da kullanmamışım.
Buyrun Kod;

alias dtara {
if !$1 { echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(32),Sürücü ismi girmediniz. Kullanım şekli; $chr(2),/dtara sürücü dosya-adı,$chr(2)) | halt }
if !$disk($1) || $len($1) >= 2 { echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(32),$chr(2),$qt($1),$chr(2),$chr(32),adında bir sürücü mevcut değil.) | halt }
if !$2 { echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(32),Aranacak dosya ismini girmediniz.) | halt }
if $1 && $2 {
write -c dosyalar.txt
echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(32),Tarama başlatılıyor.)
var %. = 1,%~ = $finddir($+($1,:),$2,0),%+ = $1,%- = $2
if $finddir($+($1,:),$2,0) == 0 {
echo -s $+($chr(45),$chr(32),Taranan sürücü,$chr(58)) $+($chr(2),$qt(%+))
echo -s $+($chr(45),$chr(32),Aranan dosya ismi,$chr(58)) $+($chr(2),$qt(%-))
echo -s $+($chr(45),$chr(32),Bulunan dosya sayısı,$chr(58)) $+($chr(2),$qt(%~))
echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(32),Herhangi bir dosya bulunamadı.)
}
if $finddir($+($1,:),$2,0) >= 1 {
echo -s $+($chr(45),$chr(32),Taranan sürücü,$chr(58)) $+($chr(2),$qt(%+))
echo -s $+($chr(45),$chr(32),Aranan dosya ismi,$chr(58)) $+($chr(2),$qt(%-))
echo -s $+($chr(45),$chr(32),Bulunan dosya sayısı,$chr(58)) $+($chr(2),$qt(%~))
echo -s $+($chr(45),$chr(32),Sonuçlar sıralanıyor,$chr(44),$chr(32),tarama tamamlanana kadar bekleyiniz;)
while %. <= %~ {
echo -s - $+(Sıra,$chr(58),$chr(32),$chr(2),%.,$chr(32),$chr(45),$chr(32),$chr(2),Yeri,$chr(58),$chr(32),$chr(2),$finddir($+(%+,:),%-,%.))
write dosyalar.txt $+(%.,%,$chr(32),$finddir($+(%+,:),%-,%.))
inc %.
}
echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(32),Tarama tamamlandı.)
echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(32),Çıkan dosyalardan herhangi birini açmak için;,$chr(2),$chr(32),/ac sıranumarası,$chr(2),$chr(32),yazmanız yeterlidir.)
echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(32),Bulunan her dosya'ya bir numara verilir,$chr(2),(Sıra: 1 gibi),$chr(2),$chr(32),Eğer yazdığınız numara sıra numarasında yoksa dosya açılmayacaktır.)
}
}
}
alias ac {
if !$1 { echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(32),Numara girmediniz.) | halt }
if !$left($read(dosyalar.txt,w,$+($1,*)),1) { echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(32),$chr(2),$qt($1),$chr(2),$chr(32),varolmayan bir numara,$chr(44),$chr(32),lütfen çıkan numaralar dahiline işlev yapınız.) | halt }
if $1 && $left($read(dosyalar.txt,w,$+($1,*)),1) { echo -s $+($chr(45),$chr(32),Bilgi,$chr(58),$chr(2),$chr(32),$qt($gettok($read(dosyalar.txt,w,$+($1,*)),2,37)),$chr(2),$chr(32),klasör'ü 1 saniye sonra açılacak.) | .timer 1 1 run $strip($gettok($read(dosyalar.txt,w,$+($1,*)),2,37)) }
}

Kullanımı;

/dtara sürücü-ismi dosya-ismi
Örnek: /dtara C *mIRC* (C sürücüsünde içinde mIRC kelimesi geçen tüm klasör’leri sıralıyacaktır.)
Gördüğünüz gibi, wildcard kullanabilirsiniz.
Yani *kelime ve/ya kelime* ve/ya *kelime* şeklinde.
“Yalnız siz kalkıpta, /dtara C *a* gibi saçma bir işlev yaparsanız mIRC donacaktır.”
Kod’u gerekli yerlerde kullanırsanız işinize yarıyacağını düşünüyorum.
Şimdi bir kaç örnek verelim;
/dtara C *mIRC* (C sürücüsün’de içinde mIRC kelimesi geçen tüm klasöer’ler) yapıyorum ve status penceresinde çıkan sonuçlar;

- Bilgi: Tarama başlatılıyor.
- Taranan sürücü: “C”
- Aranan dosya ismi: “*mIRC*”
- Bulunan dosya sayısı: “7″
- Sonuçlar sıralanıyor, tarama tamamlanana kadar bekleyiniz;
- Sıra: 1 - Yeri: C:Documents and SettingsAll UsersStart MenuProgramlarTürkçe Mirc v6.21
- Sıra: 2 - Yeri: C:Documents and SettingsL4roXyLApplication DatamIRC
- Sıra: 3 - Yeri: C:Documents and SettingsL4roXyLDesktopKullanılmayanTürkçe Mirc v6.2
- Sıra: 4 - Yeri: C:Documents and SettingsL4roXyLDesktopKullanılmayanTürkçe Mirc v6.21
- Sıra: 5 - Yeri: C:Documents and SettingsL4roXyLDesktopKullanılmayanTürkçe Mirc v6.21mirc621
- Sıra: 6 - Yeri: C:Documents and SettingsL4roXyLDesktopL4roXyLmIRC Kodlarım
- Sıra: 7 - Yeri: C:Documents and SettingsL4roXyLDesktopL4roXyLmIRC Handcoding
- Bilgi: Tarama tamamlandı.
- Bilgi: Çıkan dosyalardan herhangi birini açmak için; /ac sıranumarası yazmanız yeterlidir.
- Bilgi: Bulunan her dosya’ya bir numara verilir(Sıra: 1 gibi) Eğer yazdığınız numara sıra numarasında yoksa dosya açılmayacaktır.
-

Birde “/ac” alias’imiz var.
Gördüğünüz gibi her çıkan sonuca bir numara verilmekte;
Siz /ac 6 komutunu uyguladığınızda, 1 saniye sonra sıra numarası 6 olan klasör’ü açıcaktır.
Umarım işinize yarar.

-

Hıı birde gruplar için çok basit bir kod yazmıştım belki işinize yarar;
mIRC’inizdeki grupların isimleri bulunduğu klasör’leri ve durumlarını göstermek için;
Buyrun;
alias gruplar {
var %# = 1,%~ = $group(0)
while %# <= %~ {
echo -a $+(Grup ismi:,$chr(32),$group(%#),$chr(32),Bulunduğu dosya:,$chr(32),$group(%#).fname,$chr(32),Durumu:,$chr(32),$replace($group(%#).status,off,Kapalı,on,Açık))
inc %#
}
}

Kullanimi /gruplar

====================================================
Sitemizdeki tüm ßiLGiLer WwW.MirCtr.Org SiteSinden aLınTıDır.
TeşekkürLer.
ßy CariSma
11 ziyaretçi
Copyright By Ahmet KOLASALI Tüm hakları açıktır.

Telehaber.tr.gg 'de sörf için Google Chrome'i tavsiye ediyoruz.
Möhüm Sayfalar;
mIRCmekan | ktunnel | msn ac | msn kaydol | Xhamster | facebook | Sohbet | köpek dövüşleri | kurtlar vadisi gladyo
trSohbet | Forumuz| Linç | ultrAslan Fun Club | Fenerbahçe Fan Club
| 29 Ekim oratoryosu | Fifa 2011 indir | Fifa 2011 e0001 Hatatsı | Fatmagül'ün suçu ne geyikleri | 2011 YGS tarihi | Mor ve Ötesi Kalbin işine bak | Fifa 2011 tek link | Desole dinle indir | Aşk'in işine bak | Kardeşimden sonra full izle | Esed Nod32 Güncelleme | WargoD | Kpss güncel bilgiler |İletişim | Reklam Alt sayfalarımız en kısa zamanda düzenlenecektir.

Sitenin tüm hakları açıktır.Copyright Ahmet KOLASALI
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=