Kategori arşivi: mİRC Hazır Kodlar

Giriş Çıkışlarda IP Gösteren Kod


Giriş Çıkışlarda IP Gösteren Kod

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 diyiniz.

#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 }
}
;Bu kod Seo tarafından yapılıp ilkkez http://www.tmirc.org sitesinde paylaşıldı.

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
}
;Bu kod Seo tarafından yapılıp ilkkez http://www.tmirc.org sitesinde paylaşıldı.
raw 340:*: {
haltdef
hadd Giris $gettok($2,1,61) $+($chr(40),$gettok($2,2,43),$chr(41))
}
;Bu kod Seo tarafından yapılıp ilkkez http://www.tmirc.org sitesinde paylaşıldı.
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 }
}
;Bu kod Seo tarafından yapılıp ilkkez http://www.tmirc.org sitesinde paylaşıldı.
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 }

Reklamlar

Mirc Script Yapimcilari İçin Bilgiler


Mirc Script Yapimcilari İçin Bilgiler.
Görsel yönden zengin, iyi bir mIRC Script hazırlamak ve kullanıcılarınıza böyle birmIRC indirtmek istiyorsanız kesinlikle okumanızda yarar olduğunu düşünüyorum. İşte o mIRC dersi aşağıda yer alıyor;
Script yapmak mi istiyorsunuz ?
Ama nerden nasil ba$layacaginizi halaa bilmiyorsunuz ?
O halde sizlere bir kac sir vereyim ..
İlk Once kafanizda bir vizyon olusturun.
Ornek ;

Özellikleri ne olmali ?
Dialog’lari nasil olmali ?
Kac tane dialog olmali ?
Bir toolbar yada menubar olmalimi ?
En iyi Gorunumu nasil alabilirim ?
Kullanacagim dll’lar hangileri olucak?
Bir studio kullanilicakmi ?

ve buna benzer seyler, simdi gelelim ilk aşamaya ve bence
bilinmesi gereken en buyuk detay.
* Renkler
Dialog ve script’in renk uyumlarina dikkat ediyoruz.
Kanal ve ozel renklendirmelerine dikkat ediyoruz.
Fazla goz yormamasi icin elinizden geleni yapmak zorundasiniz.
Aksi halde yapacaginiz mirc kullanilmaz. En onemlisi budur.
İlk olarak scriptin renklerinde ve uyumlarinda calismalar yapabilirsiniz.
Sizlere kendi tarafimdan yapilan uyumlu bir Script Gostermek istiyorum.
Buradaki hersey uyumludur.

– Script status yazilari.
– Toolbar
– Yandaki Resim
– icon buyuklukleri
– Button siralari
– Yazi Font’u.Hemen Ardindan ..
* Dialog’lar.
Bu bir toolbar olsun, yada bir baglanti menusu olsun. Burada dikkat etmemiz gereken $udur.
Eger bir Toolbar cizecekseniz bu dialog Add-on ‘larla uyumlu Olsun ..
Hemen ufak bir ornek vereyim.
bir toolbar’i mdx studio’yla yapiyorsaniz yada dialog studio kullanarak yapiyorsaniz
hemen hemen her dialog’u ayni studio’yla yapmaya devam edin.
Cunki digerleri ile uyum saglayamayabir.
* DLL
Kullanacagimiz dll’lar hakkinda onceden bilgiler edinelim, ve genellikle
Turk Coder ‘lari tarafindan yazilan dll dosyalarina oneriyorum.
Ornek ; SeRDaR406
DLL uyumlulugunu saglayiniz, cunku bazen script’in kitlenmesine yol acabilir.
DLL Cakismasini onmlemek icin dikkatli olun.
NHTML.Dll kullanmaktan kacinin bircok antivirus bunu virus olarak algilayabilir.
Fazla DLL mIRC ‘i kasabilir, buna da cok dikkat ediyoruz.
* Altin Kurallar
Script editlemeyi gunumuzde hemen hemen herkes yapabiliyor, bunun icin siz farkli olun ve
mIRC ‘leri sifirdan yazin, tek bir alinti dialog bile sizlere ,aa bu script edit dedirtebilir.
Yani buna dikkat ediyoruz, bence siz editlemekten daha cok Script Codeing’i secin, ve mIRC’e yenilikler katin.
Cunku son zamanlarda mirc’in buna cok ihtiyaci var. Gelismis surumleri kullanin ornek
v6.31 yada v6.35 gibi ..
Script ‘iniz bittiginde test etmeyi unutmayin ve taratmayi da ..
Test a$amasi en az ; 10 Gun olmali bence, tam olarak eksiklerinizi Gormenize yardimci olabilir.
Ben genelde test yaparken 3-5 kisiyle test ederim, cunku ufak bir sorun bir seye sebeb olabilir.

mİRC'de Kanala Giren Kişiye Mesaj


mİRC’de Kanala Giren Kişiye Mesaj

 

on *:join:#kanal:set -u2 %who ! | who $nick
raw 352:*:{
if $3 == Admin && Sunucu Yetkilisi isin $9- && %who == ! && $6 !ison #Opers { msg $6 Lütfen #Opers kanalına giriş yapınız.  }
}

Remote Kısmına eklemeniz yeterli olucaktir..

mIRCa Radyo Eklemek


mIRCa Radyo Eklemek

 

Mirciniz açık konumda iken ALT+R yapip bu hazor olan kodu remote kısmına eklemeniz yeterli olacaktır. Birde Adres yerlerini kendinize göre ayarlamayı unutmayin.

on *:start: { run http://radyoip:port/listen.pls } mircini açtığında winampın açılır ve radyo çalmaya başlar.
on *:connect: { run http://radyoip:port/listen.pls } sunucuya bağlandığında başlar ..
on *:join:#radyo: { run http://radyoip:port/listen.pls } #radyo kanalına girdiğinde başlar…

mIRC'da Diyalogdan Yazı Kaldırma


dialog baglan {
title “BaGlanti Paneli”
size -1 -1 133 100
option dbu
box “”, 1, 3 -1 128 78
edit “”, 2, 56 8 70 12, autohs
edit “”, 3, 56 26 70 12, autohs
edit “”, 4, 56 41 70 12, autohs
text ” Nickiniz”, 5, 6 10 36 8
text ” Yedek Nickiniz”, 6, 6 27 44 8
text ” IRC Sunucu”, 7, 7 44 44 8
edit “”, 8, 56 60 70 12, autohs
text ” IRC Sifre”, 9, 6 61 43 8
button “« « BAGLAN » »”, 10, 25 80 90 16, ok cancel
}
On *:DIALOG:baglan:*:*: {
if ($devent == init) {
idset 19
did -a $dname 2 $me
did -a $dname 3 $anick
did -a $dname 4 %server
did -a $dname 8 %nicksifre
mdx MarkDialog $dname
mdx SetFont 1,2,3,4,5,6,7,8,9,10 -11 700 Tahoma
}
if ($devent == sclick) {
if ($did == 10) && $did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | set %nicksifre $did(8) | /dialog -c baglan baglan | server $+(%server,:,6667) %nicksifre }
elseif ($did == 10) && !$did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | dialog -c baglan baglan | server $+(%server,:,6667)  }
}
}

Nick Oto Away



Belli bir süre konusmadıgınız
zaman nickiniz otomatikmen away olsun
 istiyorsanız bu kod işinize yarayacaktır :) Bu yazının geri kalanını okuyun 

mirc Helper Uyarı Sistemi


Kod: 
on ^*:Rawmode:#Help:{
    if (o isin $1) { $+(.,timer,$2) off }
    if (h isin $1) { $+(.,timer,$2) off }
}

on  *:join:#Help: {
  if ($me != $nick) && ($me isop $chan) || ($me ishop $chan) {
     $+(.,timer,$nick)  1 1 /helpegirdi $chan $nick
  }
}

alias helpegirdi {
  if $input($2 nickini $1 kanalında voice vererek yardım yapmak istiyor musunuz?,y , DIKKAT! ) { .voicele $1 $2 }
}

alias voicele {
  if ($2 ison $1) && ($status == connected) { mode $1 +v $2 | /msg $1 2 Hoş Geldiniz $2 ; Size IRC/Services Hakkında nasıl yardımcı olabilirim? | .window -a $1 }
  if ($2 !ison $1) || ($status != connected) { .echo -a Kaçırdın ;) }
}

Açıklama: #help’e giren kullanıcı olduğunda uyarı kutusu gelir ve Evet mi Hayır mı seçenekleri sunar. Bu sayede daha hızlı bir şekilde yardım yapmış olursunuz.
Coder: Lociz

_______________

 

mirc script koruma ekle


Script’ine Koruma Eklemek isteyen Arakda$’lara Yardım’cı Olmak için Hazırladım Umarım işinize Yarar.

Download

Zip’teki Dosyaları Script’in Ana klasörüne Cıkartın, Sonra
“/load -rs Sercan.mrc” Yapın Sorunsuz Yüklenecektir.
Screen :

İyi Çalışmalar.

mIRC Web Proxy Security ( Socket Sistem )



Oncelikle Merhaba’lar , Bu konutu acip acmamak’la az teredut ettigimde oldu , sebebi ise kendi sitemin icerdiqi bir sistem oldugu icin , yani ters bir gorus olupta reklam icerikli bir kod tanitimi oldugunu varsayilabilir diye ..

Sistem Tanitim;

Sistem kode ismi üstünde olup , proxy korumasi amacli yazilmis bir sistemdir !!. bu sistem kendi sunucumda bulunan bir bot sayesinde verdigim kodeyle potansiyelli calismaktadir , Sunucumda bulunan bot win ( Windows Sanal PC ) ‘den sokuldugu icin kalici durumda olmasidir ,

Sistem Calisima;

Socket Sistemi Kendi Botumda Bulunan Proxy Korumasini Icerdim Bir Nebze Olsada %95 Oraninda Proxy Atmasini Gordum , bu koruma kendi koruma botumda bulunan proxy korumasiyla aynidir Ajan v3’tekiyle , tam 6 cesit korumadan gecirmektedir ve suana kadar %0 oraninda yanlis ban attigina sayet oldum.. ve bu sistem pc’inizi rahat kasabilir , bu socket sayesinde mircinizi o kadar kasmadan ( neredeyse belli etmiycek ) sekilde duzenledim ..

Gorunum;

[Giris] *@67.162.36.212 Proxy Girisi!
[Giris] *@24.236.72.246 Proxy Girisi!
[Giris] *@76.120.207.180 Proxy Girisi!
[Giris] *@76.120.207.180 Proxy Girisi!

Kod gorunum :

NOT: bu sistemi daha farkli sekillerdede sunmak isterim , bu sistemi bunun gibi ama daha farkli bir sekilde fikirleri olanlar yazarsa sevinirim..

Seslenmede BALONCUK Addonu


Merhabalar,

Kanal genelinde yada özellerde nickimize $me seslenildiğinde genelde echo tarzı uyarıları kullanırız.Bu düşüncede biraz değişikliğe gidelim ve bunu biraz baloncuku andıran bir çalışma olarak düşünelim.

Aktif olmayan herhangi bir kanal yada özel penceresinde nickinize seslenildiğinde @Balon çıkacaktır.
Yaklaşık 4 sn. süre boyunca size hangi pencereden,kimin seslendiğini ve mesaj içeriği hakkında bilgi verecektir.
Dikkat edilmesi gereken bir diğer nokta nickiniz $me cümle içerisinde tam değer olarak alınmaktadır.Bir başka deyişle kelime içerisinde algılamayacaktır.
Ahmet nickini örnek vermem gerekirse:
ahmet (algılar)
AHMET (algılar)
Sultanahmet (Algılamaz)

Şayet nickinizi yazan kanal\nicke cevap vermek isterseniz yada mesaja ulaşmak isterseniz @Balon’a bir defa tıklamanız halinde ekranınız kanal\nicke geçiş yapacaktır.

O an pencereden rahatsızlık duyarsanız mouse’u @Balon üzerine getirdiğinizde kapatma X işareti belirecek ve kapatabileceksiniz.

Aslında çalışmayı $tip üzerinden de gidebilirdim ama version bazı kullanıcılara yetersiz kalabilir,düşüncesinde takıldım.
Bu nedenle Picture Window ile yazmayı uygun gördüm,belki sizlerede bir fikir edinme imkanı sağlar.

Kod: 
menu @Balon {
  mouse:drawrect -f @Balon 4 2 226 7 15 14 | drawtext -o @Balon 0 Tahoma 10 230 7 X
  sclick:if $inrect($mouse.x,$mouse.y,226,7,15,14) { window -c @Balon | unset %dify* | .timerdi* off } | elseif $inrect($mouse.x,$mouse.y,1,1,224,64) { window -a $strip(%dify.trg) | window -c @Balon | unset %dify* | .timerdi* off }
}
on *:text:*:*:{
  if $regex($1-,/(?<=^|\s)\Q $+ $me $+ \E(?<=\b|$)/iS) {
    set %dify.trg $+(,$iif($target ischan,#,$nick))
    $iif($strip(%dify.trg) == $active,halt)
    set %dify.msg $+(,$nick,:,$chr(32),$1-)
    set %dify.windw $window($active).dw
    set %dify.windh $window($active).dh
    focus 350 120 40 15 6 1 1 6
    .timerdi -m 1 150 focus 340 110 90 25 7 3 3 8
    .timerdif -m 1 250 focus 330 100 130 35 8 6 4 10
    .timerdifu -m 1 350 focus 320 90 170 45 9 7 6 15
    .timerdifuz -m 1 450 focus 310 80 210 55 10 8 8 20
    .timerdifuzy -m 1 550 baloncuk
    .timerdifuzyo -m 1 4500 focus 310 80 210 55 10 8 8 20
    .timerdifuzyon -m 1 4600 focus 320 90 170 45 9 7 6 15
    .timerdifuzyon1 -m 1 4700 focus 330 100 130 35 8 6 4 10
    .timerdifuzyon2 -m 1 4800 focus 340 110 90 25 7 3 3 8
    .timerdifuzyon3 -m 1 4900 window -c @Balon
    .timerdifuzyon4 -m 1 5000 unset %dify*
  }
}
alias focus {
  window -pdo +lnb @Balon $calc(%dify.windw - $1) $calc(%dify.windh - $2) $3 $4
  drawrect -fr @Balon $rgb(82,164,173) 1 0 0 $3 $4
  drawtext -p @Balon 1 Tahoma $5 $6 $7 Ekran: %dify.trg
  drawtext -p @Balon 1 Tahoma $5 $6 $8 %dify.msg
}
alias baloncuk {
  window -pado +lnb @Balon $calc(%dify.windw -300) $calc(%dify.windh -70) 250 65
  drawrect -fr @Balon $rgb(82,164,173) 1 0 0 250 65
  drawtext -po @Balon 6 Verdana 11 26 5 Sana sesleniyor
  drawtext @Balon 6 Webdings 13 9 4 i
  drawtext -p @Balon 1 Tahoma 11 10 25 Ekran: %dify.trg
  drawtext -p @Balon 1 Tahoma 11 10 42 $bypass(%dify.msg,Tahoma,11,230)
  drawline @Balon 11 1 2 2 20 2
  drawline @Balon 11 1 2 2 2 15
  drawline @Balon 11 1 2 60 2 47
  drawline @Balon 11 1 2 60 20 60
  drawline @Balon 11 1 245 2 225 2
  drawline @Balon 11 1 245 2 245 15
  drawline @Balon 11 1 245 60 225 60
  drawline @Balon 11 1 245 60 245 47
}
alias bypass {
  if ($width($1,$2,$3,0,0) > $4) {
    var %a = $1
    var %b = 1
    var %c = $len(%a)
    while (%b < $len(%a)) {
      if ($width(%a,$2,$3,0,0) <= $4) { return %a $+ .. }
      else { var %a = $left(%a,%c) }
      dec %c
    }
  }
  else { return $1 }
}

Hoşca paylaşımlar dilerim…

Eklenen Resim Ön İzlemesi

__________________