Ram HDD bilgisi
 

Herkze merhabalar hayırlı bayramlar.
Ram, hdd, ekran kartı, işlemci bilgilerini !ram !hdd !kart !işlemci < komutları ile kanala yansıtma yapabilirmiyiz acaba, böyle birşey olabilirmi

Cevap: Ram HDD bilgisi
 

Ford_Lawnmover 'in yazdığı birşey vardı.

Şöyle ki ;
mirc içerisine menü oluşturup çıkartabilirsin. DLL ihtiyacı konusunda fikrim yok. Denemek lazım

Kod:

---

;System Info by Ford_Lawnmower irc.mindforge.org #USA-Chat
menu channel,status {
  System Info
  .$iif(!$chan,$style(2)) Public
  ..All: allinfo say
  ..OS-Memory: say $osinfo 
  ..MotherBoard-CPU: say $cpuinfo $moboinfo
  ..Network: say $netinfo
  ..Video: say $videoinfo
  ..Disk Drives: say $diskinfo
  .Private
  ..All: allinfo echo
  ..OS-Memory: echo -a $osinfo
  ..MotherBoard-CPU: echo -a $cpuinfo $moboinfo
  ..Network: echo -a $netinfo
  ..Video: echo -a $videoinfo
  ..Disk Drives: echo -a $diskinfo
}
alias -l allinfo {
  $1- 04S14ystem 04I14nfo: $cpuinfo  $osinfo $videoinfo $moboinfo
  $1- 04S14ystem 04I14nfo: $netinfo $diskinfo
}
alias -l cpuinfo {
  .comopen Processor WbemScripting.SWbemLocator
  if (!$comerr) {
    if ($com(Processor, ConnectServer, 3, dispatch* Specs)) {
      if ($com(Specs, Get, 3, string, Win32_Processor.DeviceID='CPU0', dispatch* Results)) {
        var %manufacturer, %name, %caption, %clockspeed, %load, %architecture
        if ($com(Results, Manufacturer, 3)) { %manufacturer = $com(Results).result }
        if ($com(Results, Name, 3)) { %name = $com(Results).result }
        if ($com(Results, Caption, 3)) { %caption = $com(Results).result }
        if ($com(Results, CurrentClockSpeed, 3)) { %clockspeed = $com(Results).result }
        if ($com(Results, LoadPercentage, 3)) { %load = $com(Results).result }
        if ($com(Results, Architecture, 3)) { %architecture = $com(Results).result }
        .comclose Results
      }
      .comclose Specs
    }
    .comclose Processor
    $iif($isid,return,$iif(# ischan,say,echo -a)) 04C14PU:04 %manufacturer %name  %caption $+(%load,%) Load
  }
  else { echo -st Com Error $nopath($script) | .comclose Processor | return }
}
alias -l osinfo {
  if (!$com(Wbem.2)) { WbemOpen }
  var %TotalMemory 04T14otal 04M14emory:04 $round($calc($WbemGet(Win32_OperatingSystem,TotalVisibleMemorySize,1)/1024),2)
  var %FreeMemory 04A14vailable 04M14emory:04 $round($calc($WbemGet(Win32_OperatingSystem,FreePhysicalMemory,1)/1024),2)
  var %OSCaption 04O14S:04 $WbemGet(Win32_OperatingSystem,Caption,1)
  var %OSVersion $WbemGet(Win32_OperatingSystem,Version,1)
  var %OSArchitecture $WbemGet(Win32_OperatingSystem,OSArchitecture,1)
  if ($com(Wbem.2)) { .comclose Wbem.2 }
  $iif($isid,return,$iif(# ischan,say,echo -a)) %OSCaption %OSVersion %OSArchitecture 04U14ptime:04 $uptime(system,1) $+(%TotalMemory,MB) $+(%FreeMemory,MB)
}
alias -l moboinfo {
  if (!$com(Wbem.2)) { WbemOpen }
  var %Aname 04A14udio:04 $WbemGet(Win32_SoundDevice,Name,1) 
  var %Description $WbemGet(Win32_BaseBoard,Description,1)
  var %Manufacturer $WbemGet(Win32_BaseBoard,Manufacturer,1)
  if ($com(Wbem.2)) { .comclose Wbem.2 }
  $iif($isid,return,$iif(# ischan,say,echo -a)) 04M14OBO:04 %Manufacturer %Description %Aname 
}
alias -l netinfo {
  if (!$com(Wbem.2)) { WbemOpen }
  var %BytesReceived $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesReceivedPerSec,1)
  %BytesReceived = 04R14eceived:04 $bytes($calc(%BytesReceived + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesReceivedPerSec,2))).suf
  var %BytesSent $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesSentPerSec,1)
  %BytesSent = 04S14ent:04 $bytes($calc(%BytesSent + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesSentPerSec,2))).suf
  var %BytesTotal $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesTotalPerSec,1)
  %BytesTotal = 04T14otal:04 $bytes($calc(%BytesTotal + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesTotalPerSec,2))).suf
  var %Bandwidth $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,CurrentBandwidth,1)
  %Bandwidth = 04B14andwidth:04 $calc(%Bandwidth + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,CurrentBandwidth,2)/100000)
  var %Name $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,Name,1)
  %Name = $+(%Name,14/04,$WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,Name,2))
  if ($com(Wbem.2)) { .comclose Wbem.2 }
  $iif($isid,return,$iif(# ischan,say,echo -a)) 04N14etwork:04 %Name $+(%Bandwidth,KBps) %BytesReceived %BytesSent %BytesTotal 
}
alias -l videoinfo {
  if (!$com(Wbem.2)) { WbemOpen }
  var %Compatibility $WbemGet(Win32_VideoController,AdapterCompatibility,1)
  var %VideoProcessor $WbemGet(Win32_VideoController,VideoProcessor,1)
  var %AdapterRam $WbemGet(Win32_VideoController,AdapterRam,1)
  var %Horizontal $WbemGet(Win32_VideoController,currenthorizontalresolution,1)
  var %Vertical $WbemGet(Win32_VideoController,currentverticalresolution,1)
  var %Bits $WbemGet(Win32_VideoController,currentbitsperpixel,1)
  var %Refresh $WbemGet(Win32_VideoController,currentrefreshrate,1)
  if ($com(Wbem.2)) { .comclose Wbem.2 } 
  $iif($isid,return,$iif(# ischan,say,echo -a)) 04V14ideo:04 %Compatibility %VideoProcessor $+($bytes(%AdapterRam,3),MB) $+(%Horizontal,x,%Vertical) $+(%Bits,bit) $+(%Refresh,Hz)
}
alias -l DiskInfo {
  var %d $disk(0),%total 0,%free 0,%result
  while (%d) {
    if ($disk(%d).size) {
      %total = $calc(%total + $disk(%d).size)
      %free = $calc(%free + $disk(%d).free)
      %result = %result 04I14D:04 $disk(%d).label $disk(%d).path 04T14ype:04 $disk(%d).type 04S14ize:04 $bytes($disk(%d).size,g3).suf 04F14ree:04 $bytes($disk(%d).free,g3).suf 
    }
    dec %d
  }
  $iif($isid,return,$iif(# ischan,say,echo -a)) %Result 04T14otal 04D14isk 04S14pace:04 $bytes(%Total,g3).suf 04T14otal 04S14pace 04F14ree:04 $bytes(%free,g3).suf 
} 
alias -l WbemOpen {
  .comopen Wbem.1 WbemScripting.SWbemLocator
  .comclose Wbem.1 $com(Wbem.1,ConnectServer,3,dispatch* Wbem.2)
}
alias -l WbemGet {
  if ($com(Wbem.3)) { .comclose Wbem.3 }
  if ($com(Wbem.2,ExecQuery,3,bstr*,select $2 from $1,dispatch* Wbem.3)) { var %Result $comval(Wbem.3,$3,$2) }
  .comclose Wbem.3
  return %Result
}

---

Cevap: Ram HDD bilgisi
 

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
ID: C:\ Type: fixed Size: 111GB Free: 66.9GB Total Disk Space: 111GB Total Space Free: 66.9GB
Video: Intel Corporation Intel(R) HD Graphics Family 1.00MB x bit Hz
Network: Realtek PCIe GBE Family Controller/isatap.{30492142-0742-43F2-A472-3E5853A30E4D} Bandwidth: 100000001KBps Received: 1.64GB Sent: 158.4MB Total: 1.79GB
CPU: GenuineIntel Intel(R) Core(TM) i5-4430S CPU @ 2.70GHz Intel64 Family 6 Model 60 Stepping 3 2% Load MOBO: Gigabyte Technology Co., Ltd. Ana Kart Audio: AMD High Definition Audio Device
OS: Microsoft Windows 8.1 Pro 6.3.9600 64 bit Uptime: 1day 1hr 54mins 6secs Total Memory: 8070.46MB Available Memory: 5776.09MB

Verdiğin kod işime yaradı , fakat çok karışık : 5776.09 yerine 4 Gb yazsa idi daha iyi olurdu diğerleri içinde öyle

Cevap: Ram HDD bilgisi
 

geçen merak edip bende eklemiştim ama coder arkadaşlar daha derli toplu birşeyler yaparlar mutlaka.

Cevap: Ram HDD bilgisi
 

Şu adresi de bi incele istersen >>> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ingilizcedir..

Cevap: Ram HDD bilgisi
 

Bu son verdiğini inceledik fakat, soğunlukla sorunlar var
[09:54] <Z-Lined> os[ Unknown Win NT ]
[09:53] <Z-Lined> ram[ 0/4096MB (0.00%) ]
Gibi :)

Cevap: Ram HDD bilgisi
 

kırmızı ile belirttiğim yere aynı dosya isminden bir tane oluşturman lazım.

Kod:

---

on *:load:{
  if ($read(systeminfo.bat, w, *) == $null) {
    write systeminfo.bat systeminfo.exe> $+ $mircdir $+ systeminfo.txt
  }
}

menu * {
  System
  .System Info:{
    if ($read(systeminfo.bat, w, *) == $null) {
      write systeminfo.bat systeminfo.exe> $+ $mircdir $+ systeminfo.txt
    }
    msg $active Please wait as your system info loads...
    set %activeinfo $active
    unset %doneinfo
    remove -b systeminfo.txt
    timer 1 1 run -n systeminfo.bat
    timer 4 60 readinfoo
  }
}

alias readinfoo {
  if ($lines(systeminfo.txt) > 7) {
    if (%doneinfo == true) { halt }
    else {
      msg %activeinfo $read(systeminfo.txt, w, * $+ Host Name: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ OS Name: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ OS Version: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ OS Manufacturer: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ Registered Owner: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ System Type: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ Processor(s): $+ *)
      if ($read(systeminfo.txt, w, * $+ $chr(123) $+ *)) {
        msg %activeinfo $read(systeminfo.txt, w, * $+ [01]: $+ *)
      }
      msg %activeinfo $read(systeminfo.txt, w, * $+ Time Zone: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ Registered Organization: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ Total Physical Memory: $+ *)
      set %doneinfo true
    }
  }
}

---

Cevap: Ram HDD bilgisi
 

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[17:11] <Z-Lined> Please wait as your system info loads...
*** Kaldırıldı 'C:\Users\Z-Lined.Gökhan\Desktop\B\systeminfo.txt'
* Zaman 1 aktif edildi
* Zaman 4 aktif edildi
* Zaman 1 Durduruldu

Ben göremedim bunları yazıyor :)

Cevap: Ram HDD bilgisi
 

cmd ekrani kapandikdan sonra "/88" yap :)

Cevap: Ram HDD bilgisi
 

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] abi destan yazmissin yahu :D
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 2 satir kod ile halletmis olayi :D

Cevap: Ram HDD bilgisi
 

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] in paylastigi ninisinin ninisina girmis :)) Ben direk verdim.

Cevap: Ram HDD bilgisi
 

Gayet güzel fakat
- [216]: KB3079777 << Tane bunlardan çıktı.

Buda işe yaramadı :))

Cevap: Ram HDD bilgisi
 

Sen ne istiyorsun @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] daha allahdan belanimi yok kod mod sana yürü git :)

Cevap: Ram HDD bilgisi
 

!ram !hdd !işlemci !ekrankartı << bilgilerini sadece ama hala sorunum cözülmedi :D