Konuyu daha nce grdüm ama yazmak şimdi nasip oldu. Küçük birşey yazdım. Elimden geldiğince iptal ettirmeye çalıştım belki o programa uyar belki uymaz. Sen yine de dene. Program num lock ışığını yaktırmamaya çalışıyor aslı ise numlock aktif olunca pasif yapıyor. Bir timer ile yaptım, timer interval hızı 1 olarak ayarlı daha hızlı yok, valla bak dene gr :) Programı denemen için upload ettim. Virus taraması yap sen. Programı çalıştırdıktan sonra numlock tuşunu pasif yapmaya çalışacak, programdan kurtulmak için F7 tuşuna basman yeterliDownload: http://www.turkupload.com/file. asp?d=278652442veyahttp://rapidshare.de/files/20143714/Project1. exe.htmlKodları da veriyorum, kendine gre de düzenleyebilirsin. Kolay gelsin' 'forma bir tane timer koy, ismi timer1 olsun Private Declare Function GetAsyncKeyState Lib "user32" _ As IntegerConst VK_NUMLOCK = &H90Const VK_CONTROL = &H11Private Type KeyboardBytes kbByte(0 To 255) As ByteEnd TypePrivate Declare Function GetKeyboardState Lib "user32" _ As LongPrivate Declare Function SetKeyboardState Lib "user32" _ As LongDim Tuş_Kodu As StringDim kbArray As KeyboardBytesPrivate Sub Form_Load Timer1. Interval = 1Timer1. Enabled = TrueMe. HideEnd SubPrivate Sub Timer1_Timer basilantus = KlavyeDinleGetKeyboardState kbArray kbArray. kbByte = 0 'Numlocku Kapat SetKeyboardState kbArray kbArray. kbByte = 0 'ctrl yi kapat SetKeyboardState kbArray If basilantus = vbKeyF7 Then End 'f7 ye bastığında programı kapatEnd SubPrivate Function KlavyeDinle As IntegerFor i = 32 To 250 'Asc To Asc And Asc(221)If GetAsyncKeyState ThenKlavyeDinle = iExit ForEnd IfNextEnd Function' Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

Uyarı: GetKeyboardState kbArray kbArray. kbByte = 0 "Numlocku Kapat SetKeyboardState kbArray kbArray. kbByte = 0 "ctrl yi kapat SetKeyboardState kbArray If basilantus = vbKeyF7 Then End "f7 ye bastığında programı kapat Bu kısımda hata verecek. Çünkü vbde bilgi işareti kesme işareti burda tırnak işareti olarak grülüyor. Ama şunu onun yerine koypalarsan çalışırGetKeyboardState kbArray kbArray. kbByte = 0 SetKeyboardState kbArray kbArray. kbByte = 0 SetKeyboardState kbArray If basilantus = vbKeyF7 Then End Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

merhaba bir exe ile crtl + numlok tuşlarınıu iptal edebilirmiyim.. bir program var ctrl + numloc a basınca program kapanıyor dos tabanlı ctrl + numlock a basınca program şu karakteri çıkarıyor ^Cbu da programı kapatıyor diyorum bir exe ile iptal edebilirmiyiz sistemlerimiz Win XP