remote 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

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

mIRC Html Remotesi

15 Mart 2014 • 03:27 OxiGeN Hazır Kodlar

Bu kodun amaci mirc script uzerinden web sitelerine baglanarak yaptiginiz sockopen islevlerinde gereki olan html kodlarini temizleyip duz metin halinde görmenizi saglar. Yazan kim bilmiyorum ama socks olarak baglandiginiz web sitelerinde kod halinda geliyor kodlardan arindirmak icin en güzel yontem budur.

Kod;
alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^&amp;lt;]*&amp;gt;|&amp;lt;[^&amp;gt;]*&amp;gt;|&amp;lt;[^&amp;gt;]*$)/g,$null,%x), %x = $remove(%x,&amp;amp;nbsp;)  
  return %x  
}

Bu kodun amaci mirc script uzerinden web sitelerine baglanarak yaptiginiz sockopen islevlerinde gereki olan html kodlarini temizleyip duz metin halinde görmenizi saglar. Yazan kim bilmiyorum ama socks olarak baglandiginiz web sitelerinde kod halinda geliyor kodlardan arindirmak icin en güzel yontem budur.

Kod;

alias htmlfree {

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

return %x

}

» Devamını Oku

Yorum yaz addon, html, mirc, remote

mIRC PC-win (/loadbar)

15 Mart 2014 • 03:26 OxiGeN Hazır Kodlar

Ozellik(Kullanim):
Baslik ismini belirliyebilirsiniz.
6 adet tema secenegi mevcut.
Minimum 1, maksimum 5 text ekleyebilirsiniz.
Yuklenme hizini belirliyebilirsiniz.(MS formatinda)
Not: Title-name kismina girece?iniz textde, bosluk yerine &amp;amp;#8220;-&amp;amp;#8221; kullanmalisiniz.

Resimdeki yukleniyor efekti gri renkte siz renkleri degistirebilirsiniz.

Kullanim sekli: /loadbar [title-name] [red|blue|green|grey|yellow|orange] [load speed] [loadtext1+loadtext2+3../max 5 loadtext])

Ornek: /loadbar Baslik-ismi.(title) grey 20 Birinci text+ikinci text+Ucuncu text+Dorduncu text+Besinci text

Kod;

alias loadbar {
  var %echo = (/loadbar [title-name] [red|blue|green|grey|yellow|orange] [load speed] [loadtext1+loadtext2+3../max 5 loadtext]) 
  if ($regex($1-,/\\\\s/g) &amp;lt; 3) { echo $color(info) -e */loadbar: Hatal? veya eksik kullan?m. %echo | halt }
  $iif($window(@loadbar),window -c @loadbar) | unset %load | clr $2 
  set %fill $hget($2,fill) | set %rect $hget($2,rect) | set %ptitle $hget($2,title) | set %clr $2
  window -aCpdhBk0 +d @loadbar 0 0 220 65 | window -a @loadbar | drawfill -r @loadbar %fill %fill 0 0 
  drawrect -r @loadbar %rect 2 0 0 220 65 0 0 220 17 7 37 206 22 | drawrect -rf @loadbar %ptitle 1 2 2 216 13
  drawtext -rbo @loadbar %fill %ptitle Arial 9 5 3 $ll($regsubex($1,/-/g,$chr(32))) | drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = x
  .timerload -m 200 $3 inc %load $(|) drawrect -rf @loadbar %ptitle 1 10 40 $!(%load,2) 16 $(|) drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $!+(Load,$chr(40),%,$round($calc($(%load,2) /2),0),$chr(41)) $(|) txt %clr $4-
}
alias -l clr {
  if ($regex(red,$1)) { hadd -m red fill $rgb(169,14,21) | hadd -m red rect $rgb(43,0,14) | hadd -m red title $rgb(60,0,13) }
  if ($regex(blue,$1)) { hadd -m blue fill $rgb(30,72,240) | hadd -m blue rect $rgb(5,20,78) | hadd -m blue title $rgb(9,33,132) }
  if ($regex(green,$1)) { hadd -m green fill $rgb(0,200,0) | hadd -m green rect $rgb(0,35,0) | hadd -m green title $rgb(0,60,0) }
  if ($regex(grey,$1)) { hadd -m grey fill $rgb(85,85,85) | hadd -m grey rect $rgb(25,25,25) | hadd -m grey title $rgb(50,50,50) }
  if ($regex(yellow,$1)) { hadd -m yellow fill $rgb(255,255,0) | hadd -m yellow rect $rgb(85,85,0) | hadd -m yellow title $rgb(105,105,0) }
  if ($regex(orange,$1)) { hadd -m orange fill $rgb(255,128,0) | hadd -m orange rect $rgb(66,33,0) | hadd -m orange title $rgb(128,64,0) } 
}
alias -l ll var %t = $iif($len($1-) &amp;gt;= 29,$+($left($1-,28),..),$1-) | var %tt = $regsubex(%t,/(?&amp;lt;=^)(.)/g,$upper(\\\\1)) | return %tt
alias -l mse if ($mouse.x &amp;gt;= $gettok($1,1,45) &amp;amp;&amp;amp; $mouse.x &amp;lt; $gettok($1,2,45)) &amp;amp;&amp;amp; ($mouse.y &amp;gt;= $gettok($1,3,45) &amp;amp;&amp;amp; $mouse.y &amp;lt; $gettok($1,4,45)) return $true 
alias -l txt {
  var %:- = $timer(load).reps
  if ($regex(%:-,^190$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t1 $gettok($2-,1,43) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t1) }
  if ($regex(%:-,^140$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t2 $iif(!$gettok($2-,2,43),%t1,$gettok($2-,2,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t2) }
  if ($regex(%:-,^90$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t3 $iif(!$gettok($2-,3,43),%t2,$gettok($2-,3,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t3) }
  if ($regex(%:-,^50$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t4 $iif(!$gettok($2-,4,43),%t3,$gettok($2-,4,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t4) }
  if ($regex(%:-,^10$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t5 $iif(!$gettok($2-,5,43),%t4,$gettok($2-,5,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t5) }
  if ($regex(%:-,^0$)) .timer 1 1 drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $+(Veriler ba?ar?yla yüklendi.,$str($chr(160),30)) $(|) unset %t1 %t2 %t3 %t4 %t5 $(|) .timercls 1 3 window -c @loadbar
}
on *:close:@loadbar:$iif($timer(cls),.timercls off)
menu @loadbar {
  sclick:$iif($mse(202-207-4-9),window -n @loadbar) | if ($mse(209-216-4-11)) window -c @loadbar | .timerload off 
  mouse: { 
    $iif($mse(202-207-4-9),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 202 2 =,drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = $+(x,$chr(160))) 
    $iif($mse(209-216-4-11),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 210 2 x)
  }
}

Ozellik(Kullanim):

Baslik ismini belirliyebilirsiniz.

6 adet tema secenegi mevcut.

Minimum 1, maksimum 5 text ekleyebilirsiniz.

Yuklenme hizini belirliyebilirsiniz.(MS formatinda)

Not: Title-name kismina girece?iniz textde, bosluk yerine &amp;#8220;-&amp;#8221; kullanmalisiniz.

Resimdeki yukleniyor efekti gri renkte siz renkleri degistirebilirsiniz.

Ornek: /loadbar Baslik-ismi.(title) grey 20 Birinci text+ikinci text+Ucuncu text+Dorduncu text+Besinci text

Kod;

alias loadbar {

if ($regex($1-,/\\\\s/g) &lt; 3) { echo $color(info) -e */loadbar: Hatal? veya eksik kullan?m. %echo | halt }

$iif($window(@loadbar),window -c @loadbar) | unset %load | clr $2

set %fill $hget($2,fill) | set %rect $hget($2,rect) | set %ptitle $hget($2,title) | set %clr $2

window -aCpdhBk0 +d @loadbar 0 0 220 65 | window -a @loadbar | drawfill -r @loadbar %fill %fill 0 0

drawrect -r @loadbar %rect 2 0 0 220 65 0 0 220 17 7 37 206 22 | drawrect -rf @loadbar %ptitle 1 2 2 216 13

drawtext -rbo @loadbar %fill %ptitle Arial 9 5 3 $ll($regsubex($1,/-/g,$chr(32))) | drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = x

.timerload -m 200 $3 inc %load $(|) drawrect -rf @loadbar %ptitle 1 10 40 $!(%load,2) 16 $(|) drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $!+(Load,$chr(40),%,$round($calc($(%load,2) /2),0),$chr(41)) $(|) txt %clr $4-

}

alias -l clr {

if ($regex(red,$1)) { hadd -m red fill $rgb(169,14,21) | hadd -m red rect $rgb(43,0,14) | hadd -m red title $rgb(60,0,13) }

if ($regex(blue,$1)) { hadd -m blue fill $rgb(30,72,240) | hadd -m blue rect $rgb(5,20,78) | hadd -m blue title $rgb(9,33,132) }

if ($regex(green,$1)) { hadd -m green fill $rgb(0,200,0) | hadd -m green rect $rgb(0,35,0) | hadd -m green title $rgb(0,60,0) }

if ($regex(grey,$1)) { hadd -m grey fill $rgb(85,85,85) | hadd -m grey rect $rgb(25,25,25) | hadd -m grey title $rgb(50,50,50) }

if ($regex(yellow,$1)) { hadd -m yellow fill $rgb(255,255,0) | hadd -m yellow rect $rgb(85,85,0) | hadd -m yellow title $rgb(105,105,0) }

if ($regex(orange,$1)) { hadd -m orange fill $rgb(255,128,0) | hadd -m orange rect $rgb(66,33,0) | hadd -m orange title $rgb(128,64,0) }

}

alias -l ll var %t = $iif($len($1-) &gt;= 29,$+($left($1-,28),..),$1-) | var %tt = $regsubex(%t,/(?&lt;=^)(.)/g,$upper(\\\\1)) | return %tt

alias -l mse if ($mouse.x &gt;= $gettok($1,1,45) &amp;&amp; $mouse.x &lt; $gettok($1,2,45)) &amp;&amp; ($mouse.y &gt;= $gettok($1,3,45) &amp;&amp; $mouse.y &lt; $gettok($1,4,45)) return $true

alias -l txt {

var %:- = $timer(load).reps

if ($regex(%:-,^190$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t1 $gettok($2-,1,43) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t1) }

if ($regex(%:-,^140$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t2 $iif(!$gettok($2-,2,43),%t1,$gettok($2-,2,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t2) }

if ($regex(%:-,^90$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t3 $iif(!$gettok($2-,3,43),%t2,$gettok($2-,3,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t3) }

if ($regex(%:-,^50$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t4 $iif(!$gettok($2-,4,43),%t3,$gettok($2-,4,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t4) }

if ($regex(%:-,^10$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t5 $iif(!$gettok($2-,5,43),%t4,$gettok($2-,5,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t5) }

if ($regex(%:-,^0$)) .timer 1 1 drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $+(Veriler ba?ar?yla yüklendi.,$str($chr(160),30)) $(|) unset %t1 %t2 %t3 %t4 %t5 $(|) .timercls 1 3 window -c @loadbar

}

on *:close:@loadbar:$iif($timer(cls),.timercls off)

menu @loadbar {

sclick:$iif($mse(202-207-4-9),window -n @loadbar) | if ($mse(209-216-4-11)) window -c @loadbar | .timerload off

mouse: {

$iif($mse(202-207-4-9),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 202 2 =,drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = $+(x,$chr(160)))

$iif($mse(209-216-4-11),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 210 2 x)

}

» Devamını Oku

Yorum yaz addon, loadbar, mirc, pc win, remote

mIRC Açılışında Farklı Karikatürler

13 Mart 2014 • 02:02 OxiGeN Addonlar

alias -l dw.tools { 
if (!%ons) set %ons on 
drawrect -rf @karika $rgb(255,255,255) 1 20 $1 14 13 
drawrect -r @karika $rgb(0,0,0) 1 20 $1 14 13 
drawtext -or @karika $rgb(0,0,0) Tahoma 11 38 $calc($1 + 1) Her Açılışta Göster 
drawrect -r @karika $rgb(245,245,245) 1 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) $width(Kapat,Tahoma,11,1) $height(Kapat,Tahoma,11) 
drawtext -or @karika $rgb(0,0,0) Tahoma 11 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) Kapat! 
if (%ons == on) drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $1 X 
} 
alias ktur { if ($1 == acik) { echo -a 4Her açlışta karikatür gösterimi açık! | set %ons on } | elseif ($1 == kapali) { echo -a 4Her açılışta karikatür gösterimi kapalı | set %ons off } } 
alias ktr sockopen ka www.komikim.com 80 
on *:sockopen:ka: { 
var %m = sockwrite -n $sockname 
%m GET / HTTP/1.1 
%m Host: www.komikim.com 
%m $crlf 
} 
on *:sockread:ka: { 
sockread %xw 
$iif(HTTP/1.1 500 * iswm %xw,echo -a 7(Karikatür Addonu)4Kaynak sitede şuan sorun var.Daha sonra tekrar deneyin.) 
if (/karikaturgoster.asp isin %xw) { 
write -c ss.jpg 
set %kadd $gettok($remove($gettok(%xw,4,32),src=,"),1-2,46) 
sockopen ktr www.komikim.com 80 
} 
} 
on *:sockopen:ktr: { 
var %s = sockwrite -n $sockname 
%s GET %kadd HTTP/1.1 
%s Host: www.komikim.com 
%s $crlf 
} 
on *:sockread:ktr: { 
sockread %s 
$iif(Length: isin %s,set %by $gettok(%s,2,32)) 
if (Data isin %s) set %hazır sadsadsa 
elseif (* !iswm %s) { 
set %size $sock(ktr).rcvd | sockrename ktr re 
} 
} 
on *:sockread:re: { 
sockread &amp;oo 
bwrite ss.jpg -1 -1 &amp;oo 
var %yuz = $round($calc(100 * ($sock(re).rcvd - %size) / %by),1) 
if (%yuz &gt;= 100) { 
set %pw $pic($shortfn(ss.jpg)).width 
set %ph $calc($pic($shortfn(ss.jpg)).height + 30) 
window -dohpBk[0]C +dL @karika 0 0 %pw %ph 
window -a @karika 
drawrect -rf @karika $rgb(245,245,245) 1 0 0 %pw %ph 
drawpic @karika 0 0 $shortfn(ss.jpg) 
drawrect -r @karika $rgb(0,0,0) 1 0 0 %pw %ph 
drawrect -r @karika $rgb(0,0,0) 1 0 $calc(%ph - 30) %pw 1 
dw.tools $calc(%ph - 20) $calc(%pw - 20) 
.remove $shortfn(ss.jpg) 
unset %hazır %by %s %size %xw %kadd 
} 
} 
menu @karika { 
uclick: { 
if ($inrect($mouse.x,$mouse.y,20,$calc(%ph - 20),13,13)) { 
if (%ons == on) { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph - 20) 13 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph - 20) 13 13 | set %ons off } 
else { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph - 20) 14 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph - 20) 14 13 | drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $calc(%ph - 20) X | set %ons on } 
} 
if ($inrect($mouse.x,$mouse.y,$calc((%pw - 20) - $width(Kapat,Tahoma,11,1)),$calc((%ph - 20) + 1),$width(Kapat,Tahoma,11,1),$height(Kapat,Tahoma,11))) { window -c @karika | unset %ph %pw } 
} 
} 
on *:start: { if (!%ons) set %ons on | if (%ons == on) ktr }

alias -l dw.tools {

if (!%ons) set %ons on

drawrect -rf @karika $rgb(255,255,255) 1 20 $1 14 13

drawrect -r @karika $rgb(0,0,0) 1 20 $1 14 13

drawtext -or @karika $rgb(0,0,0) Tahoma 11 38 $calc($1 + 1) Her Açılışta Göster

drawrect -r @karika $rgb(245,245,245) 1 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) $width(Kapat,Tahoma,11,1) $height(Kapat,Tahoma,11)

drawtext -or @karika $rgb(0,0,0) Tahoma 11 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) Kapat!

if (%ons == on) drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $1 X

}

alias ktur { if ($1 == acik) { echo -a 4Her açlışta karikatür gösterimi açık! | set %ons on } | elseif ($1 == kapali) { echo -a 4Her açılışta karikatür gösterimi kapalı | set %ons off } }

alias ktr sockopen ka www.komikim.com 80

on *:sockopen:ka: {

var %m = sockwrite -n $sockname

%m GET / HTTP/1.1

%m Host: www.komikim.com

%m $crlf

}

on *:sockread:ka: {

sockread %xw

$iif(HTTP/1.1 500 * iswm %xw,echo -a 7(Karikatür Addonu)4Kaynak sitede şuan sorun var.Daha sonra tekrar deneyin.)

if (/karikaturgoster.asp isin %xw) {

write -c ss.jpg

set %kadd $gettok($remove($gettok(%xw,4,32),src=,"),1-2,46)

sockopen ktr www.komikim.com 80

}

on *:sockopen:ktr: {

var %s = sockwrite -n $sockname

%s GET %kadd HTTP/1.1

%s Host: www.komikim.com

%s $crlf

}

on *:sockread:ktr: {

sockread %s

$iif(Length: isin %s,set %by $gettok(%s,2,32))

if (Data isin %s) set %hazır sadsadsa

elseif (* !iswm %s) {

set %size $sock(ktr).rcvd | sockrename ktr re

}

on *:sockread:re: {

sockread &oo

bwrite ss.jpg -1 -1 &oo

var %yuz = $round($calc(100 * ($sock(re).rcvd - %size) / %by),1)

if (%yuz >= 100) {

set %pw $pic($shortfn(ss.jpg)).width

set %ph $calc($pic($shortfn(ss.jpg)).height + 30)

window -dohpBk[0]C +dL @karika 0 0 %pw %ph

window -a @karika

drawrect -rf @karika $rgb(245,245,245) 1 0 0 %pw %ph

drawpic @karika 0 0 $shortfn(ss.jpg)

drawrect -r @karika $rgb(0,0,0) 1 0 0 %pw %ph

drawrect -r @karika $rgb(0,0,0) 1 0 $calc(%ph - 30) %pw 1

dw.tools $calc(%ph - 20) $calc(%pw - 20)

.remove $shortfn(ss.jpg)

unset %hazır %by %s %size %xw %kadd

}

menu @karika {

uclick: {

if ($inrect($mouse.x,$mouse.y,20,$calc(%ph - 20),13,13)) {

if (%ons == on) { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph - 20) 13 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph - 20) 13 13 | set %ons off }

else { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph - 20) 14 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph - 20) 14 13 | drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $calc(%ph - 20) X | set %ons on }

}

if ($inrect($mouse.x,$mouse.y,$calc((%pw - 20) - $width(Kapat,Tahoma,11,1)),$calc((%ph - 20) + 1),$width(Kapat,Tahoma,11,1),$height(Kapat,Tahoma,11))) { window -c @karika | unset %ph %pw }

}

on *:start: { if (!%ons) set %ons on | if (%ons == on) ktr }

» Devamını Oku

Yorum yaz addon, karikatür, mirc, remote

« 1 … 8 9 10 11 12 13 »