IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   mIRC Netstat v1 (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/369005-mirc-netstat-v1.html)

Ravage 05 Aralık 2010 14:08

mIRC Netstat v1
 
mIRC Netstat v1
Coder : hellrazor666
Tarih : 05.12.2010


mIRC kullanarak netstat bilgi almanızı sağlar. Yani bilgisayar üzerindeki çalışan işlem gören exe dosyalarini görebilirsiniz.

Kod:

;Coder, Turk, mırc kodları, TurkCoder.ORG
;CTRL+A tusuna basarak kodun hepsini kopyalayınız.

alias netstat {
  if ($dialog(netstat)) dialog -x netstat
  dialog -m netstat netstat
}
dialog netstat {
  title "Netstat"
  size -1 -1 448 308
  option dbu
  list 1, 11 12 424 283, size
}
on *:dialog:netstat:init:0:{
  var %com $+(cmd,$ticks) | .comopen %com wscript.shell
  if (!$comerr) .comclose %com $com(%com,run,1,bstr,cmd.exe /c pushd $mircdir && netstat -fo > $qt($mircdirshellout) 2>&1,uint,7,bool,true)
  var %x 1
  while (%x <= $lines(shellout)) {
    var %line = $read(shellout,n,%x)
    if ($regex(%line,(.+) (.+):(\d+) (.+):(\S+) (.+) (\d+))) {
      var %prot = $regml(1), %localip = $regml(2), %localport = $regml(3)
      var %remoteaddr = $regml(4), %remoteport = $regml(5), %state = $regml(6), %pid = $regml(7)
      ;echo -a %prot - %localip $+ : $+ %localport - %remoteaddr $+ : $+ %remoteport - %state - %pid
      hadd -m netstat_ $+ %localip $+ : $+ %localport prot %prot
      hadd -m netstat_ $+ %localip $+ : $+ %localport localip %localip
      hadd -m netstat_ $+ %localip $+ : $+ %localport localport %localport
      hadd -m netstat_ $+ %localip $+ : $+ %localport remoteaddr %remoteaddr
      hadd -m netstat_ $+ %localip $+ : $+ %localport remoteport %remoteport
      hadd -m netstat_ $+ %localip $+ : $+ %localport state %state
      hadd -m netstat_ $+ %localip $+ : $+ %localport pid %pid
    }
    inc %x
  }
  .remove shellout
  var %com $+(cmd,$ticks)
  .comopen %com wscript.shell
  if (!$comerr) .comclose %com $com(%com,run,1,bstr,cmd.exe /c pushd $mircdir && tasklist > $qt($mircdirshellout) 2>&1,uint,7,bool,true)
  var %x = 1
  while (%x <= $lines(shellout)) {
    var %line = $read(shellout,n,%x)
    tokenize 32 %line
    if (%x > 4) {
      var %proc = $1, %process_id = $2
      var %y = 1
      while ($hget(%y)) {
        var %table = $v1
        if (netstat_* iswm %table) {
          var %prot = $hget(%table,prot), %localip = $hget(%table,localip), %localport = $hget(%table,localport)
          var %remoteaddr = $hget(%table,remoteaddr), %remoteport = $hget(%table,remoteport), %state = $hget(%table,state), %pid = $hget(%table,pid)
          if (%pid == %process_id) {
            if (!$hget(%table,got)) {
              hadd -m %table got 1
              if ($dialog(netstat)) did -a netstat 1 %prot - %localip $+ : $+ %localport - %remoteaddr $+ : $+ %remoteport - %state - %proc
            }
          }
        }
        inc %y
      }
    }
    inc %x
  }
  .remove shellout
  .hfree -sw netstat_*
}


Daha Sonra /Netstat yazıp çalıştırın.
Umarım İşinize Yarar. Keyifli Forumlar..

Supernova 05 Aralık 2010 14:19

Cevap: mIRC Netstat v1
 
emeğine sağlık ..

amasyaLi 05 Aralık 2010 14:26

Cevap: mIRC Netstat v1
 
Remoteye yükledim ama bariz bişey göremedim, kodun açıklamasını ve nasıl çalıştığını belirtirsen sevinirim. Teşekkürler

Ravage 05 Aralık 2010 14:39

Cevap: mIRC Netstat v1
 
Alıntı:

amasyaLi Nickli Üyeden Alıntı (Mesaj 1040603733)
Remoteye yükledim ama bariz bişey göremedim, kodun açıklamasını ve nasıl çalıştığını belirtirsen sevinirim. Teşekkürler

Başka Bir Script'e Ekle ALT+R Remoteyi Açıp yapıştır. /Netstat yapıp çalıştır.

CesuryureK 05 Aralık 2010 15:31

Cevap: mIRC Netstat v1
 
Bu kodu sen mi yazdın? yoksa hellrazor666 nickli kişi mi?

mIRCScripts.org [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Ravage 05 Aralık 2010 15:35

Cevap: mIRC Netstat v1
 
Alıntı:

CesuryureK Nickli Üyeden Alıntı (Mesaj 1040603804)
Bu kodu sen mi yazdın? yoksa hellrazor666 nickli kişi mi?

mIRCScripts.org [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

hellrazor666'yı tanımam ben CesuryureK. :) Bizzat ben kendim yazdım. ilk defa bu nicki senden duyuyorum. hatta bu kod'u yazarken mIRC Scripting Coder'i SeVDiYaR 'Dan yardım aldım. Kolay Gelsin.

CesuryureK 05 Aralık 2010 15:38

Cevap: mIRC Netstat v1
 
bu kodu sen bugün paylaşmışken o adam 22 Ekim'de piyasaya sürmüş. bugün 05 Aralık. var mı daha önce bu kodu paylaştığın site? kısacası senin olduğunu kanıtlayacak 22 ekimden önce paylaştığın bir forum sitesi vb. birşey var mı?

Kodları karşılaştıralım şimdi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

burda verilen kod 22 ekim 2010 tarihinde paylaşılmış senin paylaştığın kodla tek bir harf bile farklı değil. Tıpa tıp aynısı..

mesele şu, başkalarının kodlarını sizinkiymiş gibi rant sağlamaya çalışmayın..

ibret olsun diye sitede bırakıyorum.

Ravage 05 Aralık 2010 15:54

Cevap: mIRC Netstat v1
 
Bu Kodu yazalı, 2 Gün oldu. Ve daha bugün paylaşma geregi duydum. Dialog Kısımları Bana Aittir. Diğer Kısımlar SeVDiYaR'a Aittir. Dialog'ları bitirdikten sonra SeVDiYaR'a verdim SeVDiYaR Devam Etti. Demekki oda
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sitesinden almış. Ayrıca o nickide tanımam etmem. Sadece Dialog kısımları bana aittir. Kolay Gelsin.


----------

Alıntı:

CesuryureK Nickli Üyeden Alıntı (Mesaj 1040603812)
bu kodu sen bugün paylaşmışken o adam 22 Ekim'de piyasaya sürmüş. bugün 05 Aralık. var mı daha önce bu kodu paylaştığın site? kısacası senin olduğunu kanıtlayacak 22 ekimden önce paylaştığın bir forum sitesi vb. birşey var mı?

Kodları karşılaştıralım şimdi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

burda verilen kod 22 ekim 2010 tarihinde paylaşılmış senin paylaştığın kodla tek bir harf bile farklı değil. Tıpa tıp aynısı..

mesele şu, başkalarının kodlarını sizinkiymiş gibi rant sağlamaya çalışmayın..

ibret olsun diye sitede bırakıyorum.

Benim Rant Sağlama gibi bir amacım yok arkadaşım. SeVDiYaR'La ilk defa bir işe kalkıştık o kadar. Ben Coder falanda değilim. Sadece Arkadaşımla yaptık ve Paylaştık. Ayrıca ben rant sağlasam ne olur? sağlamasam ne olur? 1 eksik 1 fazla hepsi aynı. Birazda anlayış gösterseniz iyi olur.

CesuryureK 05 Aralık 2010 16:00

Cevap: mIRC Netstat v1
 
ortada birinin emeği çalışmış sen veya sevdiyar. orası beni bağlamaz ama burda alıntı olduğunu söylememişsin. Bu durumda çalıntı kodları paylaşanlara anlayış göstermemizi kimse beklemesin.
madem coder değilsin o zaman herkes işini yapsın. kimse kalkıpta başkalarının çalışmalarını kendi çalışmasıymış gibi göstermeye kalkmasın.

bide en iğrenci;
aldığınızı kabul etmeyip hala kendinizin yazdığını iddia etmeniz.
bu kodun yapıldığı zaman/tarih zaten kanıtlıyor. kanıtlayan ikinci durum kodun herşeyin aynı olması ikinci bir kanıt.
arkadaş veya ben ilgili yerden yada falanca yerden aldım veya aldı demeyip, alıntı yazmayı unutmuşum. kodun sahibi ben değilim demiyorsun da hala birilerinin yazdığını kabul etmeyip kendinizin yazdığınızı söylüyorsun.

pişkinlik bu başka birşey değil.

onNes 05 Aralık 2010 22:08

Cevap: mIRC Netstat v1
 
Vur kafasına :p


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:28.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk