mIRC Screen Keyboad / Ekran Klavyesi - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

manikdepresif · 14 Ocak 2024, 15:50

Az da olsa islevi olan bir mIRC Ekran Klavyesi yapmaya calistim umarim faydasini gorursunuz.
-

Kod: Kodu kopyalamak için üzerine çift tıklayın!

menu * {
  mIRC Screen Keyboard:/dialog -mdot $d_ $d_ 

}
dialog jeun {
  title "Screen Keyboard"
  size -1 -1 262 110
  option dbu
  button "ESC", 1, 4 3 17 12
  button "F1", 2, 21 3 15 12
  button "F2", 3, 36 3 15 12
  button "F3", 4, 51 3 15 12
  button "F4", 5, 66 3 15 12
  button "F6", 6, 97 3 15 12
  button "F5", 7, 82 3 15 12
  button "F7", 8, 112 3 15 12
  button "F8", 9, 127 3 15 12
  button "F9", 10, 142 3 15 12
  button "F10", 11, 158 3 15 12
  button "F11", 12, 173 3 15 12
  button "F12", 13, 188 3 15 12
  button "INS", 14, 203 3 15 12
  button "DEL", 15, 218 3 15 12
  button "1", 16, 4 42 17 13
  button "2", 17, 22 42 17 13
  button "3", 18, 40 42 17 13
  button "4", 19, 58 42 17 13
  button "5", 20, 76 42 17 13
  button "6", 21, 94 42 17 13
  button "7", 22, 112 42 17 13
  button "8", 23, 130 42 17 13
  button "9", 24, 148 42 17 13
  button "0", 25, 166 42 17 13
  button "*", 26, 184 42 17 13
  button "-", 27, 202 42 17 13
  button "<--BS", 28, 176 57 30 25
  button "é", 29, 16 16 12 12
  button "!", 30, 29 16 12 12
  button "'", 31, 42 16 12 12
  button "^", 32, 55 16 12 12
  button "+", 33, 68 16 12 12
  button "%", 34, 81 16 12 12
  button "&&", 35, 94 16 12 12
  button "/", 36, 107 16 12 12
  button "(", 37, 119 16 12 12
  button ")", 38, 132 16 12 12
  button "=", 39, 145 16 12 12
  button "?", 40, 158 16 12 12
  button "_", 42, 171 16 12 12
  button "TAB", 43, 3 56 32 13
  button "@", 44, 184 16 12 12
  button "Q", 45, 37 56 11 13
  button "W", 46, 48 56 11 13
  button "E", 47, 59 56 11 13
  button "R", 48, 70 56 11 13
  button "T", 49, 81 56 11 13
  button "Y", 50, 92 56 11 13
  button "U", 51, 103 56 11 13
  button "I", 52, 114 56 11 13
  button "O", 53, 125 56 11 13
  button "P", 54, 136 56 11 13
  button "Ü", 55, 158 56 11 13
  button "Ğ", 56, 147 56 11 13
  button "CAPS LOCK", 57, 3 69 38 13
  button "A", 58, 42 69 11 13
  button "S", 59, 53 69 11 13
  button "F", 60, 75 69 11 13
  button "D", 61, 64 69 11 13
  button "H", 62, 97 69 11 13
  button "J", 63, 108 69 11 13
  button "K", 64, 119 69 11 13
  button "G", 65, 86 69 11 13
  button "L", 66, 130 69 11 13
  button "Ş", 67, 141 69 11 13
  button "İ", 68, 152 69 11 13
  button ",", 69, 163 69 11 13
  button "SHIFT", 70, 3 83 25 12
  button ">", 71, 29 83 9 12
  button "<", 72, 38 83 9 12
  button "Z", 73, 47 82 11 13
  button "X", 74, 58 82 11 13
  button "C", 75, 69 82 11 13
  button "V", 76, 80 82 11 13
  button "B", 77, 91 82 11 13
  button "N", 78, 102 82 11 13
  button "M", 79, 113 82 11 13
  button "Ö", 80, 124 82 11 13
  button "Ç", 81, 135 82 11 13
  button ".", 82, 146 82 11 13
  button "<", 83, 4 29 12 12
  button ">", 84, 17 29 12 12
  button "£", 85, 30 29 12 12
  button "$", 86, 56 29 12 12
  button "½", 87, 69 29 12 12
  button "[", 88, 95 29 12 12
  button "{", 89, 82 29 12 12
  button "~", 90, 159 29 12 12
  button "]", 91, 107 29 12 12
  button "}", 92, 120 29 12 12
  button "\", 93, 133 29 12 12
  button "|", 94, 146 29 12 12
  button "#", 97, 43 29 12 12
  button "SPACE", 95, 52 96 105 12
  button "<--", 96, 209 86 20 11
  button "-->", 98, 230 86 17 11
  button "UP", 99, 218 76 20 10
  button "DOWN", 100, 219 97 20 10
  button "CTRL", 101, 2 96 26 12
  button "ALT", 102, 28 96 23 12
  button "ENTER", 103, 158 82 48 26
  button ";", 41, 171 29 12 12
  button ":", 104, 183 29 12 12
  button "END", 105, 237 42 17 13
  button "PAGE UP", 106, 195 29 24 12
  button "PAGE DN", 107, 219 29 26 12
  button "HOME", 108, 219 42 18 13
  button "BREAK", 109, 232 3 24 12
  button "qt", 110, 4 16 12 12
}
on 1:dialog:jeun:sclick:*: {
  if ($did) {
    var %didtext_ =  $did($dname,$did).text
    if ($did == 101) {
      did -f $dname $did 
      set %didctrl_ OK
      return
      ;CTRL
    }
    if ($did == 102) {
      did -f $dname $did
      set %didalt_ OK
      return
      ;ALT
    }
    if ($did == 70) {
      did -f $dname $did
      set %didshift_ OK
      return
      ;SHIFT
    }
    if ($did == 57) { 
      if %diatit == Caps Lock [ON] { 
        set %diatit Caps Lock [OFF] 
      }
      else { set %diatit Caps Lock [ON] }  
    }
    set %didtxt $iif(*ON* iswm %diatit,$dikarakter(%didtext_),$lower($replacex($dikarakter(%didtext_),İ,i,I,ı)))
    if (%didshift_) {
      set %didtxt + $+ %didtxt
      goto x
    }
    if (%didctrl_ && %didalt_) {
      ;if first CTRL KEY  and after ALT KEY pressed
      set %didtxt ^ $+ % $+ %didtxt
      goto x
    }
    if (%didalt_ && !%didctrl_) {
      ;ifALT KEY PRESSED and no CTRL
      set %didtxt % $+ %didtxt
      goto x
    }
    if (!%didalt_ && %didctrl_) {
      ;if CTRL KEY PRESSED and no aLT
      set %didtxt ^ $+ %didtxt
    }
    :X
    set %diacord $dialog($dname).x $dialog($dname).y $dialog($dname).cw $dialog($dname).ch
    dialog -x $d_
    .comopen j WScript.Shell
    noop $com(j, sendkeys,1,bstr,%didtxt)
    unset %didtxt %didalt_ %didctrl_ %didshift_
    .comclose j
    .timerekran -m 1 1 ekranduzelt
  }
}
alias -l ekranduzelt {
  dialog -dmo $d_ $d_
  dialog -s $d_ %diacord
  dialog -t $d_ Screen Keyboard - %diatit
}
alias -l dikarakter {
  return  $replacexcs($$1-,+,{+},%,{%},&&,&,F1,{F1},F2,{F2},F3,{F3},F4,{F4},F5,{F5},F6,{F6},F7,{F7},F8,{F8},F9,{F9},F10,{F10},F11,{F11},F12,{F12}, $+ $&
    TAB,{TAB},DEL,{DELETE},ENTER,{ENTER},INS,{INSERT},<--BS,$+($chr(123),BS,$chr(125)),-->,{RIGHT},<--,{LEFT},UP,{UP},DOWN,{DOWN},SPACE,( ),CAPS LOCK,(),BREAK,{BREAK},HOME,{HOME}, $+ $&
    PAGE UP,{PGUP},PAGE DN,{PGDN},END,{END},ESC,{ESC},~,$+($chr(123),$chr(126'),$chr(125)),$chr(123),$+($chr(123),$chr(123),$chr(125)),$chr(125),$+($chr(123),$chr(125),$chr(125)), $+ $&
    $chr(41),$+($chr(123),$chr(41),$chr(125)),$chr(40),$+($chr(123),$chr(40),$chr(125)),qt,",^,{^})
  )
}
alias -l d_ return jeun

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

idyllic · 14 Ocak 2024, 15:54

emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

manikdepresif · 14 Ocak 2024, 15:59

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

ZaLiM1979 · 14 Ocak 2024, 16:07

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] helal, süper olmus :-) deneme amacli yükledim bos bir mirce. :-)
Grafik ekle yaptim olmadi..
Belki link ekleme olur video görüntüsü..

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

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

manikdepresif · 14 Ocak 2024, 17:05

gorsel olarak denedigin icin tskler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

IUC · 14 Ocak 2024, 17:13

emegine sağlık teşekkür ederim

manikdepresif · 14 Ocak 2024, 17:14

tskler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ufuk abi. Hayirli islerin olsun.

IUC · 14 Ocak 2024, 17:16

rica ederim teşekkür ederiim

SpinoZi · 14 Ocak 2024, 17:34

Yine güzel bir çalışma, emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

manikdepresif · 14 Ocak 2024, 17:53

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
C# ile Ekran Görüntüsü Alma Programı (Print Screen)	Sunay	C#	0	23 Nisan 2010 20:00
mIRC Script (?) Screen.	Rohit	mIRC Scripting Tanıtımları	30	25 Mart 2010 15:45

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.