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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Toolbarda Cpu Ram (https://www.ircforumlari.net/mirc-scripting-sorunlari/201036-toolbarda-cpu-ram.html)

StanteaR 22 Nisan 2009 09:31
Toolbarda Cpu Ram
 
Arkadaslar Toolbarımda Cpu Lag bu gıbı kısımları calıstırmak ıstıyorum addon dıyalogumda hazırladım ama beceremedım yardım edebılırmısınız

Alıntı:
dialog x {
title "Toolbarz"
size -1 -1 514 47
option dbu
box "Menüler", 5, 218 4 204 41
icon 6, 227 13 25 16, x.ico, 0
text "Bağlan", 7, 225 34 30 8
text "Kanallar", 9, 264 34 26 8
text "Radio", 11, 307 34 23 8
text "Meşgul", 13, 345 34 25 8
text "Korumalar", 15, 380 34 29 8
box "Bilgiler", 16, 428 4 68 41
icon 4, 266 13 25 16, x.ico, 0
icon 8, 308 13 25 16, x.ico, 0
icon 10, 347 13 25 16, x.ico, 0
icon 12, 384 13 25 16, xico, 0
text "Saat ", 14, 437 15 49 8
text "Tarih ", 19, 436 28 55 8
text "Cpu", 1, 5 5 38 8
text "Ram", 2, 5 15 25 8
}
Alıntı:
alias xLagmt if ($dialog(toolbar)) { .timerlagsx 0 3 mtb Toolbar Progressbar Position 2 $round($calc($$1 * 10),0) | .timerlags 0 3 mtb Toolbar Progressbar Position 1 $round($calc($$1 * 10),0) }
alias xLag { .notice $me LAG $ticks }
on ^*:notice:LAG*:*: {
haltdef
if ($2 !isnum) { return }
if ($calc($ticks - $2) > 0) {
.xLagmt $calc(($ticks - $2) / 1000)
}
}

SeRDaR406 22 Nisan 2009 11:48
Cevap: Toolbarda Cpu Ram
 
Öncelikle bazı dosyalara ihtiyacınız olacaktır.

mDX.DLL
Ctl_gen.mdx
ProfInfo.DLL

Bu DLL dosyalarının mIRC.exe'nin bulunduğu klasörde olması gerekmektedir.

Dialog'da birkaç değişiklik yaptım.2 adet text kontrolü daha koydum.Bu text kontrollerini

mDX.DLL aracılığıyla Progressbar kontrolüne çevireceğiz.

Kod:
dialog x {
  title "Toolbarz"
  size -1 -1 514 47
  option dbu
  box "Menüler", 5, 218 4 204 41
  icon 6, 227 13 25 16,  x.ico, 0
  text "Bağlan", 7, 225 34 30 8
  text "Kanallar", 9, 264 34 26 8
  text "Radio", 11, 307 34 23 8
  text "Meşgul", 13, 345 34 25 8
  text "Korumalar", 15, 380 34 29 8
  box "Bilgiler", 16, 428 4 68 41
  icon 4, 266 13 25 16,  x.ico, 0
  icon 8, 308 13 25 16,  x.ico, 0
  icon 10, 347 13 25 16,  x.ico, 0
  icon 12, 384 13 25 16,  x.ico, 0
  text "Saat ", 14, 437 15 49 8
  text "Tarih ", 19, 436 28 55 8
  text "Cpu", 1, 5 5 14 8
  text "Lag:", 2, 5 15 14 8
  text "", 3, 21 5 78 8
  text "", 17, 21 15 78 8
}
alias ramuse {
  var %f = ProcInfo.dll
  var %a = $dll(%f,GetRam,memory)
  var %u = %a - $dll(%f,GetRam,memoryavail)
  return $round($calc(%u / %a * 100),0) $+ $iif($1,% ( $+ $kbs(%u) / $kbs(%a) $+ ))
}
alias lg dialog -m x x
on *:dialog:x:init:*: {
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetControlMDX $dname 3,17 Progressbar smooth > ctl_gen.mdx
  .timerram 0 3 did -a x 3 $remove($gettok($ramuse(1),1,32),%)
}
alias xLagmt { .timerlagsx 0 3 did -a x 17 $round($calc($$1 * 10),0) | .timerlags 0 3 mtb Toolbar Progressbar Position 1 $round($calc($$1 * 10),0) }
alias xLag { .notice $me LAG $ticks }
on ^*:notice:LAG*:*: {
  haltdef
  if ($2 !isnum) { return }
  if ($calc($ticks - $2) > 0) {
    .xLagmt $calc(($ticks - $2) / 1000)
  }
}

RapStar 22 Nisan 2009 16:13
Cevap: Toolbarda Cpu Ram
 
bu dll leri nereden temin edeceğiz serdar406

SeRDaR406 23 Nisan 2009 02:14
Cevap: Toolbarda Cpu Ram
 
Alıntı:
RapStar Nickli Üyeden Alıntı (Mesaj 695057)
bu dll leri nereden temin edeceğiz serdar406
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] indirebilirsiniz.

StanteaR 23 Nisan 2009 09:49
Cevap: Toolbarda Cpu Ram
 
Dedıgınız gıbı yaptım bu sefer toolbar ortada gorunuyor ve did hatası verıyor anlamadım bende neden boyle yapıyor

Alıntı:
alias rebar { dll rebar.dll $$1- }
alias bars { return bars.mdx }
alias mdx { return $dll(mdx.dll,$1,$2-) }
alias saat {
if $dialog(x) {
did -ra x 14 $chr(32) $chr(32) Saat $time
}
}
alias tarih {
if $dialog(x) {
did -ra x 19 $chr(32) $chr(32) Tarih $date
}
}
dialog x {
title "Toolbarz"
size -1 -1 514 47
option dbu
box "Menüler", 5, 218 4 204 41
icon 6, 227 13 25 16, x.ico, 0
text "Bağlan", 7, 225 34 30 8
text "Kanallar", 9, 264 34 26 8
text "Radio", 11, 307 34 23 8
text "Meşgul", 13, 345 34 25 8
text "Korumalar", 15, 380 34 29 8
box "Bilgiler", 16, 428 4 68 41
icon 4, 266 13 25 16, x.ico, 0
icon 8, 308 13 25 16, x.ico, 0
icon 10, 347 13 25 16, x.ico, 0
icon 12, 384 13 25 16, x.ico, 0
text "Saat ", 14, 437 15 49 8
text "Tarih ", 19, 436 28 55 8
text "Cpu", 1, 5 5 14 8
text "Lag:", 2, 5 15 14 8
text "", 3, 21 5 78 8
text "", 17, 21 15 78 8
}
alias ramuse {
var %f = ProcInfo.dll
var %a = $dll(%f,GetRam,memory)
var %u = %a - $dll(%f,GetRam,memoryavail)
return $round($calc(%u / %a * 100),0) $+ $iif($1,% ( $+ $kbs(%u) / $kbs(%a) $+ ))
}
alias lg dialog -m x x
on *:dialog:x:init:*: {
dll mdx.dll MarkDialog $dname
dll mdx.dll SetControlMDX $dname 3,17 Progressbar smooth > ctl_gen.mdx
.timerram 0 3 did -a x 3 $remove($gettok($ramuse(1),1,32),%)
}
alias xLagmt { .timerlagsx 0 3 did -a x 17 $round($calc($$1 * 10),0) | .timerlags 0 3 mtb Toolbar Progressbar Position 1 $round($calc($$1 * 10),0) }
alias xLag { .notice $me LAG $ticks }
on ^*:notice:LAG*:*: {
haltdef
if ($2 !isnum) { return }
if ($calc($ticks - $2) > 0) {
.xLagmt $calc(($ticks - $2) / 1000)
}
}
on *:Dialog:x:sclick:*: {
if ($did == 6) {
if $$me !== $null {
if $did(7) == Bağlan {
did -ra $dname 7 B. Kopar
.server irc.sunucu.com
}
else {
did -ra $dname 7 Bağlan
scid $activecid disconnect
}
}
}
if ($did == 4) kanal
if ($did == 8) radio
if ($did == 10) meskul
if ($did == 12) koruma
}
}
on *:Dialog:x:init:*: {
.timer 0 1 saat
.timer 0 1 tarih
rebar HideToolbar .
rebar Dock $dialog(x).hwnd > top
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetColor $dname 2,7,8,11,15,13,9,14,19,20 text $rgb(213,143,0)
mdx SetFont $dname 1,5,16,2,7,8,11,15,13,9,19,14,17,18,3,20,22,23 13 700 Tahoma
}

StanteaR 23 Nisan 2009 22:47
Cevap: Toolbarda Cpu Ram
 
Bu Şekil Toolbar Ortada Cıkıyor. Saat Tarih Kısımlarıda Cıkmıyor

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

SeRDaR406 25 Nisan 2009 00:18
Cevap: Toolbarda Cpu Ram
 
Kod:
dialog x {
  title "Toolbarz"
  size -1 -1 419 44
  option dbu
  box "Menüler", 5, 79 1 204 41
  box "Bilgiler", 16, 285 1 133 41
  text "Saat ", 14, 289 11 49 8
  text "Tarih ", 19, 289 22 55 8
  text "Cpu", 1, 5 5 14 8
  text "Lag:", 2, 5 15 14 8
  text "", 3, 21 5 53 8
  text "", 17, 21 15 53 8
  icon 18, 4 27 15 15,  tb\jpg\nxt.bmp, 0
  text "Kontrol Menü", 20, 23 34 37 8
  list 4, 82 10 197 26, size
}
alias saat {
  if $dialog(x) {
    did -ra x 14 Saat: $time
    did -ra x 19 Tarih: $date
  }
}

on *:dialog:x:init:*:{
  dll rebar.dll HideToolbar
  dll rebar.dll Dock $dialog($dname).hwnd > top
  dll mdx.dll SetMircVersion $version
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetBorderStyle $dname 4
  dll mdx.dll SetControlMDX $dname 3,17 Progressbar smooth > ctl_gen.mdx
  dll mdx.dll SetControlMDX $dname 4 Toolbar nodivider flat > bars.mdx
  did -i $dname 4 1 bmpsize 32 32
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Bağlan
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Kanallar
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Radio
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Meşgul
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Korumalar
  .timerram 0 3 ramuse
  .timersaatarih 0 0 saat
}

alias ramuse {
  var %f = ProcInfo.dll
  var %a = $dll(%f,GetRam,memory)
  var %u = %a - $dll(%f,GetRam,memoryavail)
  if ($dialog(x)) did -a x 3 $round($calc(%u / %a * 100),0) $+ $iif($1,% ( $+ $kbs(%u) / $kbs(%a) $+ ))
}
alias lg dialog -m x x
alias xLagmt { .timerlagsx 0 3 did -a x 17 $round($calc($$1 * 10),0) | .timerlags 0 3 mtb Toolbar Progressbar Position 1 $round($calc($$1 * 10),0) }
alias xLag { .notice $me LAG $ticks }
on ^*:notice:LAG*:*: {
  haltdef
  if ($2 !isnum) { return }
  if ($calc($ticks - $2) > 0) {
    .xLagmt $calc(($ticks - $2) / 1000)
  }
}

on *:dialog:x:sclick:*: {
  if $did == 4  {
    var %s $did(4).sel
    if (%s == 2) echo -a Birinci button
    if (%s == 4) echo -a İkinci Button
    if (%s == 6) echo -a Üçüncü button
    if (%s == 8) echo -a Dördüncü button
    if (%s == 10) echo -a Beşinci button
  }
}
Bazı eksik noktaları var.Ben sadece kaba taslak olarak veriyorum.mIRC Scripting Dersleri

bölümünde genişce anlatılmıştır konu.Toolbar'ı Windows temasına göre

ayarlama,tuşlarına basınca kendi komutlarını atama işlemlerini kendine göre düzenlersin.

Ayrıca Rebar.dll'de bir sorun var sanırım.mIRC 6.35'de mIRC'in Toolbar'ını

gizlemiyor.Rebar ile aynı işlemi yapan Ultradock kullanmayı tercih edeyim dedim fakat bu

seferde mIRC'in ara sıra donduğunu(kilitlendiğini farkettim).Bilginize...

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

StanteaR 25 Nisan 2009 10:58
Cevap: Toolbarda Cpu Ram
 
Tşk elıne saglık cok guzel olmus yanlız 2 seyde sıkıntım var 1. sıkıntım id numarası. id numarasını yazıp kopart baglan seklınde yapıcamda bunda id numarasıyla yapamadım baglan kopart seklınde 2. sıkıntımda dıyalogdakı yazıları mdx ıle +b tahoma yazı seklınde kalınlastırmak ıstedım ama sadece lag yazısı oldu sımdıden tşk ederım.

SeRDaR406 25 Nisan 2009 11:52
Cevap: Toolbarda Cpu Ram
 
1.soru için;

Kod:
alias -l update.tb {
  if ($dialog(x)) {
    if ($server) did -o x 1 2 +a 1 Kopart
    else did -o x 1 2 +a 1 Bağlan
  }
}
on *:connect: .timer 1 0 update.tb
on *:disconnect: .timer 1 0 update.tb
Bu kodları eklersen bağlanıldığında yada bağlantı kesildiğinde Bağlan tuşunun yazısı değişecektir.

Ayrıca sana verdiğim kodlarda;

Kod:
if (%s == 2) echo -a Birinci button
olan bölümün yerine

Kod:
if (%s == 2) update.tb
yazacaksın.


2.Soru için;

mDX.DLL ile Dialog Kontrollerinin Yazı tiplerini değiştirmek:

dll mdx.dll SetFont <dialog adı> <ID(ler)> <Yazı Tipi Boyu> <Yazı Tipi Stili(400(Normal) yada 700(kalın)) <Yazı Tipi Adı>

Örnekler:

Kod:
dll mdx.dll SetFont x 1,2,3,8,4,6 13 700 Tahoma
Kod:
dll mdx.dll SetFont x 1,2,5 11 400 Arial

SeRDaR406 27 Nisan 2009 11:33
Cevap: Toolbarda Cpu Ram
 
Birinci soru kısmında ID'leri senin dialog'undan farklı girmişim.Düzeltiyorum.

Bütün kodları birlikte veriyorum.

Kod:
dialog x {
  title "Toolbarz"
  size -1 -1 419 44
  option dbu
  box "Menüler", 5, 79 1 204 41
  box "Bilgiler", 16, 285 1 133 41
  text "Saat ", 14, 289 11 49 8
  text "Tarih ", 19, 289 22 55 8
  text "Cpu", 1, 5 5 14 8
  text "Lag:", 2, 5 15 14 8
  text "", 3, 21 5 53 8
  text "", 17, 21 15 53 8
  icon 18, 4 27 15 15,  tb\jpg\nxt.bmp, 0
  text "Kontrol Menü", 20, 23 34 37 8
  list 4, 82 10 197 26, size
}
alias saat {
  if $dialog(x) {
    did -ra x 14 Saat: $time
    did -ra x 19 Tarih: $date
  }
}

on *:dialog:x:init:*:{
  dll rebar.dll HideToolbar
  dll rebar.dll Dock $dialog($dname).hwnd > top
  dll mdx.dll SetMircVersion $version
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetFont x 5,16,14,19,1,2,3,17,18,20,4 13 700 Tahoma
  dll mdx.dll SetBorderStyle $dname 4
  dll mdx.dll SetControlMDX $dname 3,17 Progressbar smooth > ctl_gen.mdx
  dll mdx.dll SetControlMDX $dname 4 Toolbar nodivider flat > bars.mdx
  did -i $dname 4 1 bmpsize 32 32
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Bağlan
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Kanallar
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Radio
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Meşgul
  did -a $dname 4 1 -
  did -i $dname 4 1 setimage icon large 0, $+ x.ico
  did -a $dname 4 1 Korumalar
  .timerram 0 3 ramuse
  .timersaatarih 0 0 saat
}

alias ramuse {
  var %f = ProcInfo.dll
  var %a = $dll(%f,GetRam,memory)
  var %u = %a - $dll(%f,GetRam,memoryavail)
  if ($dialog(x)) did -a x 3 $round($calc(%u / %a * 100),0) $+ $iif($1,% ( $+ $kbs(%u) / $kbs(%a) $+ ))
}
alias lg dialog -m x x
alias xLagmt { .timerlagsx 0 3 did -a x 17 $round($calc($$1 * 10),0) | .timerlags 0 3 mtb Toolbar Progressbar Position 1 $round($calc($$1 * 10),0) }
alias xLag { .notice $me LAG $ticks }
on ^*:notice:LAG*:*: {
  haltdef
  if ($2 !isnum) { return }
  if ($calc($ticks - $2) > 0) {
    .xLagmt $calc(($ticks - $2) / 1000)
  }
}

on *:dialog:x:sclick:*: {
  if $did == 4  {
    var %s $did(4).sel
    if (%s == 2) update.tb
    if (%s == 4) echo -a İkinci Button
    if (%s == 6) echo -a Üçüncü button
    if (%s == 8) echo -a Dördüncü button
    if (%s == 10) echo -a Beşinci button
  }
}
alias -l update.tb {
  if ($dialog(x)) {
    if ($server) { did -o x 4 2 1 Kopart | disconnect }
    else { did -o x 4 2 1 Bağlan | server }
  }
}
on *:connect: $iif($dialog(x),did -o x 4 2 1 Kopart)
on *:disconnect: $iif($dialog(x),did -o x 4 2 1 Bağlan)

StanteaR 27 Nisan 2009 11:53
Cevap: Toolbarda Cpu Ram
 
Cok Tşk Ederım Oldu Emegıne Saglık ...

hakancann 17 Aralık 2014 07:17
Cevap: Toolbarda Cpu Ram
 
Burdaki örneğe bakarak eklemeye çalıştım ama beceremedim sanırım çünkü ram flan göstermiyo tollbar kodum [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresinde var
Burdaki örnekten hangi satırları neleri tolbarımda nasıl eklemem gerek yardımcı olurmusunuz TEŞEKKÜRLER

lag ram satırlarım şu şekilde:
icon 49, 351 58 35 16, $mircdirresim\1\ram.png, 0 noborder
text "", 50, 408 64 63 8
text "", 51, 541 64 63 8
icon 52, 494 58 35 16, $mircdirresim\1\lag.png, 0 noborder


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

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