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

- 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)

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)
}
}

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)

  }

}

Cevap: Toolbarda Cpu Ram

bu dll leri nereden temin edeceğiz serdar406

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.

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
}

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...]

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...]

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.

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

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)