: 38

alias uzunluk {
  if !$1 { return }
  var %m, %n, %z
  :x
  if (%m iswm $1) return %z
  else {
    var %m %m $+ ?
    inc %z
    goto x
  }
}

 /editbox -q1

/echo $editbox($active,1))

$len($editbox($active))

 /timerkar__ -m 0 200 alias

on *:active:*:{
  while ($window($active).type == channel) {  
    while ($editbox($active,1) == $null) { editbox -q1 } .
    .timerlen_kontrol -h 0 300 /_len_kontrol
  } .
}
alias _len_kontrol { 
  while $window($active).type == channel {
  editbox -o $active  Karakter Sayisi: $len($editbox($active)) } .
}

on *:active:*:{
  while ($window($active).type == channel) {  
    while ($editbox($active,1) == $null) { editbox -q1 $active } .
    .timerlen_kontrol -h 0 300 /_len_kontrol $active
  } .
  while ($window($active).type != channel) {
    .timerlen_kontrol off
  } .
}
alias _len_kontrol { 
  while $window($1).type == channel {
  editbox -oq1 $1 Karakter Sayisi: $len($editbox($1)) } .
}

on *:start: .timer_len -mi 0 30  _len
alias _len  titlebar : $regex( $editbox( $window($active)) ,/(.)/ig) :

 Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 on *:active:*:{   while ($window($active).type == channel) {       while ($editbox($active,1) == $null) { editbox -q1 } .     .timerlen_kontrol -h 0 300 /_len_kontrol   } . } alias _len_kontrol {    while $window($active).type == channel {   editbox -o $active  Karakter Sayisi: $len($editbox($active)) } . }