IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 14 Haziran 2016, 22:55   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Sistem.TCL


Reklam

Shell makinanızın donanımsal ve yazılımsal bir kaç özelliğini size aktarır..


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set cpu [exec grep "cpu MHz" /proc/cpuinfo] set model [exec grep "model name" /proc/cpuinfo] set vendor [exec grep "vendor_id" /proc/cpuinfo] set cache [exec grep "cache size" /proc/cpuinfo] bind pub - .sys system set kanaladi "#kanal" proc system {nick host hand chan text} { if {[string match -nocase $chan $::kanaladi]} { putquick "privmsg $chan :\t\002SYSTEM INFO" putquick "privmsg $chan :------------------------------" putquick "privmsg $chan :\0034Vendor ID :\003[string map {"vendor_id " ""} $::vendor]" putquick "privmsg $chan :\0034Model Name :\003[string map {"model name " "" " " "" } $::model]" putquick "privmsg $chan :\0034CPU Mhz :\003[string map {"cpu MHz " ""} $::cpu]" putquick "privmsg $chan :\0034Cache Size :\003[string map {"cache size " ""} $::cache]" putquick "privmsg $chan :\0034OS Version :\0031:\003\003 $::tcl_platform(os) $::tcl_platform(osVersion) / $::tcl_platform(machine)" putquick "privmsg $chan :\0034TCL Version :\0031:\003\003 $::tcl_patchLevel" putquick "privmsg $chan :\0034Eggdrop Version :\0031:\003\003 [lindex $::version 0]" putquick "privmsg $chan :\0034Bot Uptime :\0031:\003\003 [duration [expr {[clock seconds] - $::uptime}]]" putquick "privmsg $chan :\0034Host :\0031:\003\003 [info hostname]" putquick "privmsg $chan :\0034Date :\0031:\003\003 [ctime [unixtime]] $::timezone" putquick "privmsg $chan :------------------------------" } }

Shell makinanızın donanımsal ve yazılımsal bir kaç özelliğini size aktarır..


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set cpu [exec grep "cpu MHz" /proc/cpuinfo] set model [exec grep "model name" /proc/cpuinfo] set vendor [exec grep "vendor_id" /proc/cpuinfo] set cache [exec grep "cache size" /proc/cpuinfo] bind pub - .sys system set kanaladi "#kanal" proc system {nick host hand chan text} { if {[string match -nocase $chan $::kanaladi]} { putquick "privmsg $chan :\t\002SYSTEM INFO" putquick "privmsg $chan :------------------------------" putquick "privmsg $chan :\0034Vendor ID :\003[string map {"vendor_id " ""} $::vendor]" putquick "privmsg $chan :\0034Model Name :\003[string map {"model name " "" " " "" } $::model]" putquick "privmsg $chan :\0034CPU Mhz :\003[string map {"cpu MHz " ""} $::cpu]" putquick "privmsg $chan :\0034Cache Size :\003[string map {"cache size " ""} $::cache]" putquick "privmsg $chan :\0034OS Version :\0031:\003\003 $::tcl_platform(os) $::tcl_platform(osVersion) / $::tcl_platform(machine)" putquick "privmsg $chan :\0034TCL Version :\0031:\003\003 $::tcl_patchLevel" putquick "privmsg $chan :\0034Eggdrop Version :\0031:\003\003 [lindex $::version 0]" putquick "privmsg $chan :\0034Bot Uptime :\0031:\003\003 [duration [expr {[clock seconds] - $::uptime}]]" putquick "privmsg $chan :\0034Host :\0031:\003\003 [info hostname]" putquick "privmsg $chan :\0034Date :\0031:\003\003 [ctime [unixtime]] $::timezone" putquick "privmsg $chan :------------------------------" } }

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
sistemtcl
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık