mIRC Giriş çıkışlarda IP adresini görüntüleme
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 } |