mirc Türkçe mIRC indir - Resmi mIRC indirme Sitesi

Whois Çeken kişinin yerel Bilgilerini gösteren Addon

27 Mart 2014 • 19:20 OxiGeN Addonlar

on *:sockopen:whoiz:{
  sockwrite -n $sockname GET /index.php?query= $+ %difyipno  HTTP/1.1
  sockwrite -n $sockname Host: www.iplocation.net $+ $crlf $+ $crlf
  sockwrite -n $sockname $clrf   
}
on *:sockread:whoiz:{
  if ($sockerr) { echo -a Veri alımında Hata oluştu. | halt }
  else {
    var %difi 
    sockread %difi
    if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,&lt;/td&gt;,$chr(32))) }
    elseif (*Registry*Information* iswm %difi) { 
      sockclose whoiz
      if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) {
        set %difuzyon $regml(1)
        <span style="color: #4169e1">if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler... }
        else { window -a @Whois }
        aline @Whois 11,1Nick1...11:8 %difyyerelnick 1....................................................           
        aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1.....................................................
        aline @Whois 11,1Ülke1...............11:9 $token(%difuzyon,2,32) 1............................................
        aline @Whois 11,1Bölge1.............11:9 $token(%difuzyon,3,32) 1.......................................
        aline @Whois 11,1Şehir1..............11:9 $token(%difuzyon,4,32) 1......................................
        aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1.................................................
        aline @Whois 0,1----------------Bilgi Sonu------------------------------------------------------------</span>
        unset %dif*
      }      
    }
  }
}
alias bağlantı {
  sockclose whoiz
  sockopen whoiz www.iplocation.net 80
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^&lt;]*&gt;|&lt;[^&gt;]*&gt;|&lt;[^&gt;]*$)/g,$null,%x), %x = $remove(%x,&amp;nbsp;)
  return %x
}
on *:snotice:*whois*on*you*: { 
  if !$hfind(Whoisler,$2).item &amp;&amp; !$regex($sock(yerelbilgi).status,active) { 
    hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41)) 
    set -e %difyipno $remove($token($3,2,64),$chr(41)) 
    set -e %difyyerelnick $2  
    bağlantı 
    echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor...
  }
}

on *:sockopen:whoiz:{

sockwrite -n $sockname GET /index.php?query= $+ %difyipno HTTP/1.1

sockwrite -n $sockname Host: www.iplocation.net $+ $crlf $+ $crlf

sockwrite -n $sockname $clrf

}

on *:sockread:whoiz:{

if ($sockerr) { echo -a Veri alımında Hata oluştu. | halt }

else {

var %difi

sockread %difi

if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,</td>,$chr(32))) }

elseif (*Registry*Information* iswm %difi) {

sockclose whoiz

if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) {

set %difuzyon $regml(1)

<span style="color: #4169e1">if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler... }

else { window -a @Whois }

aline @Whois 11,1Nick1...11:8 %difyyerelnick 1....................................................

aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1.....................................................

aline @Whois 11,1Ülke1...............11:9 $token(%difuzyon,2,32) 1............................................

aline @Whois 11,1Bölge1.............11:9 $token(%difuzyon,3,32) 1.......................................

aline @Whois 11,1Şehir1..............11:9 $token(%difuzyon,4,32) 1......................................

aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1.................................................

aline @Whois 0,1----------------Bilgi Sonu------------------------------------------------------------</span>

unset %dif*

}

alias bağlantı {

sockclose whoiz

sockopen whoiz www.iplocation.net 80

}

alias htmlfree {

var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

return %x

}

on *:snotice:*whois*on*you*: {

if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) {

hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41))

set -e %difyipno $remove($token($3,2,64),$chr(41))

set -e %difyyerelnick $2

bağlantı

echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor...

}

» Devamını Oku

Yorum yaz addon, gösteren, mirc, remote, yerel bilgi

mIRC Dusman Listesi Addon

27 Mart 2014 • 17:41 OxiGeN Addonlar

on @shit:join:#:{
ban $chan $nick 2
kick $chan $nick 4Düşman Listemdesin…!
echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı. 
}

alias shitlist { /dialog -m shitlist shitlist }
dialog shitlist {
title “DeLimIRC - Düşman Listesi”
size -1 -1 136 99
option dbu
box “Nick:”, 6, 66 0 68 97
button “Ekle(+)”, 4, 82 25 39 11
button “Kaldır(-)”, 10, 82 41 39 11
edit “”, 1, 70 8 61 10, autohs
button “&amp;Tamam”, 3, 82 70 39 18, ok default
list 2, 5 3 57 83, size
; check “Düşman Listesi Aktif”, 5, 5 90 57 6
}
on 1:dialog:shitlist:init:0: {
unset %vo1
shitkontrol
}
on 1:dialog:shitlist:sclick:4: {
.auser shit $did(1)
did -a shitlist 2 $did(1)
; shitkontrol
}

on 1:dialog:shitlist:sclick:10: {
.ruser shit $did(2,$did(2).sel)
did -r shitlist 2
shitkontrol
}
alias shitkontrol {
goto shitlist
:shitlist
inc %vo1
if ($ulist(*,shit,%vo1) == $null) { unset %vo1 | halt }
did -a shitlist 2 $ulist(*,shit,%vo1)
goto shitlist
}

on @shit:join:#:{

ban $chan $nick 2

kick $chan $nick 4Düşman Listemdesin…!

echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı.

}

alias shitlist { /dialog -m shitlist shitlist }

dialog shitlist {

title “DeLimIRC - Düşman Listesi”

size -1 -1 136 99

option dbu

box “Nick:”, 6, 66 0 68 97

button “Ekle(+)”, 4, 82 25 39 11

button “Kaldır(-)”, 10, 82 41 39 11

edit “”, 1, 70 8 61 10, autohs

button “&Tamam”, 3, 82 70 39 18, ok default

list 2, 5 3 57 83, size

; check “Düşman Listesi Aktif”, 5, 5 90 57 6

}

on 1:dialog:shitlist:init:0: {

unset %vo1

shitkontrol

}

on 1:dialog:shitlist:sclick:4: {

.auser shit $did(1)

did -a shitlist 2 $did(1)

; shitkontrol

}

on 1:dialog:shitlist:sclick:10: {

.ruser shit $did(2,$did(2).sel)

did -r shitlist 2

shitkontrol

}

alias shitkontrol {

goto shitlist

:shitlist

inc %vo1

if ($ulist(*,shit,%vo1) == $null) { unset %vo1 | halt }

did -a shitlist 2 $ulist(*,shit,%vo1)

goto shitlist

}

» Devamını Oku

Yorum yaz addon, dusman, listesi, mirc

Bad nick’leri kanala toplayan Remote

27 Mart 2014 • 17:40 OxiGeN Hazır Kodlar

alias bad { .auser 02 $1 }
on ^&amp;*:JOIN:#:{
if ($nick != $me) {
if ($ulist($address($nick,-1),02,1)) {
if (o isin $usermode) {
mode # +b $nick | kick # $nick %logo
sapart $nick # | sajoin $nick #KANAL
}
}
}
}

alias bad { .auser 02 $1 }

on ^&*:JOIN:#:{

if ($nick != $me) {

if ($ulist($address($nick,-1),02,1)) {

if (o isin $usermode) {

mode # +b $nick | kick # $nick %logo

sapart $nick # | sajoin $nick #KANAL

}

» Devamını Oku

Yorum yaz Bad, mirc, Nick, remote, toplayan

Script’inize Ses Dosyaları Ekleyen Remote.

27 Mart 2014 • 17:38 OxiGeN Hazır Kodlar

wav türünde ses dosyalarını, bir klasöre atıp aşağıdaki kod metinlerinde klasör/sesdosyasiadi.wav yazan kısımleri editleyerek belirtilen işlem için ses tanımlayabilirsiniz.

Kanala giriş sesi;

on 1:join:#: {
if ($nick != $me) { halt }
else { splay klasör\sesdosyasininadi.wav | halt } }

Kanaldan çıkma sesi;

on 1:part:#: {
if ($nick != $me) { halt }
else { splay klasör\sesdosyasininadi.wav | halt } }

Voice verildiğinde çalacak olan ses;

on 1:voice:#: {
if ($vnick != $me) { halt }
else { splay klasör\sesdosyasininadi.wav | halt } }

Op olduğunuzda çalacak ses;

on 1:op:#: {
if ($opnick != $me) { halt }
else { splay klasör\sesdosyasininadi.wav | halt } }

wav türünde ses dosyalarını, bir klasöre atıp aşağıdaki kod metinlerinde klasör/sesdosyasiadi.wav yazan kısımleri editleyerek belirtilen işlem için ses tanımlayabilirsiniz.

Kanala giriş sesi;

on 1:join:#: {

if ($nick != $me) { halt }

else { splay klasör\sesdosyasininadi.wav | halt } }

Kanaldan çıkma sesi;

on 1:part:#: {

if ($nick != $me) { halt }

else { splay klasör\sesdosyasininadi.wav | halt } }

Voice verildiğinde çalacak olan ses;

on 1:voice:#: {

if ($vnick != $me) { halt }

else { splay klasör\sesdosyasininadi.wav | halt } }

Op olduğunuzda çalacak ses;

on 1:op:#: {

if ($opnick != $me) { halt }

else { splay klasör\sesdosyasininadi.wav | halt } }

» Devamını Oku

Yorum yaz ekle, mirc, remote, script, ses

mIRC Deprem okuyucu Remote

27 Mart 2014 • 17:36 OxiGeN Hazır Kodlar

alias depremler {   set %koeri-writedir $+($scriptdir,depremler\)   if $sock(koeri-depremler) { .sockclose koeri-depremler }   sockopen koeri-depremler www.koeri.boun.edu.tr 80   if !$exists($qt(%koeri-writedir)) { mkdir $qt(%koeri-writedir) }}on *:sockopen:koeri-depremler: {   if ($sockerr) { return }   set %koeri-get-begin $false   sockwrite -n $sockname GET /scripts/lst2.asp HTTP/1.1 $crlf   sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) $crlf   sockwrite -n $sockname Accept: */* $crlf   sockwrite -n $sockname Host: www.koeri.boun.edu.tr $crlf   sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf}on *:sockread:koeri-depremler: {   sockread %getstr   if $regex(%getstr,^&lt;pre&gt;$) { set %koeri-get-begin $true | return }   elseif $regex(%getstr,^&lt;/pre&gt;$) {      var %file = $qt($+(%koeri-writedir,$replace($date,/,.),.txt))     set %koeri-get-begin $false | sockclose $sockname      if $exists(%file) { loadbuf -a %file }   }   if %koeri-get-begin &amp;&amp; $regex(%getstr,^\d{4}\.\d{2}\.\d{2}) {      var %getdate = $gettok(%getstr,1,32), %knowndate = $+($gettok(%getdate,3,46),.,$gettok(%getdate,2,46),.,$gettok(%getdate,1,46))     var %time = $gettok(%getstr,2,32), %location = $gettok(%getstr,9-,32), %MD = $iif($gettok(%getstr,6,32) != -.-,MD: $v1,$null), %ML = $iif($gettok(%getstr,7,32) != -.-,ML: $v1,$null), %MS = $iif($gettok(%getstr,8,32) != -.-,MS: $v1,$null)     var %totalstr = $+([,%knowndate %time,]) %location &#65533;B&#65533;üyüklüğü %MD %ML %MS     if !$read($qt($+(%koeri-writedir,%knowndate,.txt)),w,%totalstr) {       write $qt($+(%koeri-writedir,%knowndate,.txt)) %totalstr     }   }}

alias depremler { set %koeri-writedir $+($scriptdir,depremler\) if $sock(koeri-depremler) { .sockclose koeri-depremler } sockopen koeri-depremler www.koeri.boun.edu.tr 80 if !$exists($qt(%koeri-writedir)) { mkdir $qt(%koeri-writedir) }}on *:sockopen:koeri-depremler: { if ($sockerr) { return } set %koeri-get-begin $false sockwrite -n $sockname GET /scripts/lst2.asp HTTP/1.1 $crlf sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) $crlf sockwrite -n $sockname Accept: */* $crlf sockwrite -n $sockname Host: www.koeri.boun.edu.tr $crlf sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf}on *:sockread:koeri-depremler: { sockread %getstr if $regex(%getstr,^<pre>$) { set %koeri-get-begin $true | return } elseif $regex(%getstr,^</pre>$) { var %file = $qt($+(%koeri-writedir,$replace($date,/,.),.txt)) set %koeri-get-begin $false | sockclose $sockname if $exists(%file) { loadbuf -a %file } } if %koeri-get-begin && $regex(%getstr,^\d{4}\.\d{2}\.\d{2}) { var %getdate = $gettok(%getstr,1,32), %knowndate = $+($gettok(%getdate,3,46),.,$gettok(%getdate,2,46),.,$gettok(%getdate,1,46)) var %time = $gettok(%getstr,2,32), %location = $gettok(%getstr,9-,32), %MD = $iif($gettok(%getstr,6,32) != -.-,MD: $v1,$null), %ML = $iif($gettok(%getstr,7,32) != -.-,ML: $v1,$null), %MS = $iif($gettok(%getstr,8,32) != -.-,MS: $v1,$null) var %totalstr = $+([,%knowndate %time,]) %location �B�üyüklüğü %MD %ML %MS if !$read($qt($+(%koeri-writedir,%knowndate,.txt)),w,%totalstr) { write $qt($+(%koeri-writedir,%knowndate,.txt)) %totalstr } }}

» Devamını Oku

Yorum yaz deprem, mirc, okuyucu, remote

Join/Part Saldirilari icin Addon

27 Mart 2014 • 17:36 OxiGeN Addonlar

alias ipkick {
  var %c 1
  var %chan $1
  var %ip $2
  var %sebep $3-
  ; degişkenlerimizi atadık
  while %c &lt;= $nick(%chan,0) {
    ; while dongusune soktum
    if  %ip == $remove($address($nick(%chan,%c),2),*!*@) {
      ; %ip degişkeni while dongusunun sonuçu olan nick ise
      mode %chan +b *!*@ $+ $ifmatch
       ; sebebi banla
      kick $chan $nick(%chan,%c) %sebep
       ; sebepli kişiyi kanalda salla.
    }
    inc %c
    ; her seferinde %c yi 1 arttır
  }
}
on *:join:#: {
  ; kanal mı girdi?
  if $me !isop $chan { goto devam2 } | if $nick isop $chan { goto devam2 }
  ; ben op degilsem veya o kişi opsa kalda devam2 ye git
  inc -u20 %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ] 
  ; degil ise 20 saniyeligine %joinip ipadresi olarak deişkene al
  if %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ] &lt; 4 goto devam2
  ; eger %joinip degeri 4 den küçükse devam et yani 4 aynı ip girdi ise
  unset %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ] 
   ; yukardaki olasılıklar tutmadı ise %joinip i kaldır devam et
  mode $chan +b $address($nick,2) 
  ; banla...
  kick $chan $nick Join Floodu Ha? Yerlermi ?
   ; kickle...
  ipkick $chan $remove($address($nick,2),*!*@) 
}

alias ipkick {

var %c 1

var %chan $1

var %ip $2

var %sebep $3-

; degişkenlerimizi atadık

while %c <= $nick(%chan,0) {

; while dongusune soktum

if %ip == $remove($address($nick(%chan,%c),2),*!*@) {

; %ip degişkeni while dongusunun sonuçu olan nick ise

mode %chan +b *!*@ $+ $ifmatch

; sebebi banla

kick $chan $nick(%chan,%c) %sebep

; sebepli kişiyi kanalda salla.

}

inc %c

; her seferinde %c yi 1 arttır

}

on *:join:#: {

; kanal mı girdi?

if $me !isop $chan { goto devam2 } | if $nick isop $chan { goto devam2 }

; ben op degilsem veya o kişi opsa kalda devam2 ye git

inc -u20 %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ]

; degil ise 20 saniyeligine %joinip ipadresi olarak deişkene al

if %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ] < 4 goto devam2

; eger %joinip degeri 4 den küçükse devam et yani 4 aynı ip girdi ise

unset %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ]

; yukardaki olasılıklar tutmadı ise %joinip i kaldır devam et

mode $chan +b $address($nick,2)

; banla...

kick $chan $nick Join Floodu Ha? Yerlermi ?

; kickle...

ipkick $chan $remove($address($nick,2),*!*@)

}

» Devamını Oku

Yorum yaz addon, join, mirc, part

Showmirc komutu ve parametreleri

27 Mart 2014 • 16:16 dELi IRC Komutları

ShowmIRC komutu çalışmakta olan mIRC programına çeşitli direktifler vererek işlem yaptırmak için kullanılır. Simge durumunda küçültme, ekranı kaplama seçeneğinin büyümesi, programı açma, programı saatin olduğu sağ alt bölüme yerleştirme, ekranı kaplama seçeneğinin küçülmesi, program üzerine farklı pencereler açma ve açmama gibi işlemler yapmak mümkündür. Parametreler : /Showmirc – m-n-r-s-t- x -o-p /Showmirc -m : mIRC programını görev çubuğuna yerleştirir /Showmirc […]

» Devamını Oku

Yorum yaz mirc, script, showmirc, Türkçe

« 1 … 38 39 40 41 42 … 60 »