قطع کردن کیبورد

[www.pc3enter.tk]

سلام دوستان
من می خواستم به پرسم که چگونه می توانم فقط کیبورد را قطع کنم

البته کدی را دارم که هم موس و هم کیبورد قطع کنه

ولی من فقط می خوام کیبرد را قطع کنه

باتشکر


Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

BlockInput True
Sleep 50000
BlockInput False

End Sub

[knight-rak]

دوست عزیز به تاپیک زیر و پست 115 مراجعه کنید

http://barnamenevis.org/showthread.php?148772-%D9%86%D9%81%D8%B1-%D8%A8%D8%B9%D8%AF%D9%8A-%D9%83%D9%8A%D9%87-%D8%9F/page12

موفق باشید ....

[www.pc3enter.tk]

ممنون
ولی یک کد که آن هم کار نکرد

<div align="left">' keyboard
Private Sub Command1_Click()
dim a
a=shell("rundll keyboard,disable")
End Sub

' mouse
Private Sub Command2_Click()
dim a
a=shell("RUNDLL MOUSE,DISABLE")
End Sub</div>

می توانید من را راهنمایی کنید

[setroyd]

khob mitonam codi vasat benevisam ke agar karbar chizi type kard hichi nanevise hija vali disable nemitonam bokonam hala age tonestam behet midam codesho