Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias pcadı {
var %pm = Okunamadı
.comopen Win WbemScripting.SWbemLocator
if (!$comerr) && ($com(Win,ConnectServer,3,dispatch* Info)) && ($com(Info)) {
if ($com(Info,InstancesOf,3,string,Win32_Processor,dispatch* More)) && ($com(More)) {
if ($com(More,Count,3)) {
%pm = $comval(More,1,SystemName)
}
}
}
.comclose More | .comclose Info | .comclose Win
return %pm
}
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:start:fullname $pcadı
mirc açılınca fullname kısmı pc nin adı oluyor yani adam pc nin adını almak için
$pcadı identifierini kullanmalı istediği gibi yapabilir
ctcp eventi kullanır
ctcp nick pcadi
ctcp ile pc nin adını verir
yada notice atar
Kod: Kodu kopyalamak için üzerine çift tıklayın!
ctcp *:*:?:{
if ($1 == PCADI) { notice $nick Pc'min adı $pcadı }
}
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on ^*:text:*:?:{
if ($1 == !PCADI) { notice $nick Pc'min adı $pcadı }
closemsg $nick
halt
}
XcLusive'den sevgilerle