روشن و خاموش کردن دکمه Num Lock

[saeed_r67]

سلام به همه دوستان .آیا کسی از اساتید میتونه کمک کنه که چه جوری میشه با نوشتن کد Num Lock رو رو شن یا خاموش کرد؟ممنون از لطفتون

[MEhdi Sobhani]

سلام
خدمت شما



Const VK_NUMLOCK = &H90
Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long


Declare Function SetKeyboardState Lib "user32" Alias "SetKeyboardState" (lppbKeyState As Byte) As Long


ورودی هر دو تابع یه آرایه 256 تایی بایت هست و به ازای هر کلید یکی از اعضای آرایه مقدارش تغییر میکنه .
این هم روش استفاده از این دو تابع :



Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)

بh تابع اول میفهمی چه کلیدی زده شده و با تغییر مقدار ها در آرایه و وارد کردنش به تابع دوم میتونی اون کلید رو فعال کنی .

[saeed_r67]

سلام
خدمت شما



Const VK_NUMLOCK = &H90
Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long


Declare Function SetKeyboardState Lib "user32" Alias "SetKeyboardState" (lppbKeyState As Byte) As Long


ورودی هر دو تابع یه آرایه 256 تایی بایت هست و به ازای هر کلید یکی از اعضای آرایه مقدارش تغییر میکنه .
این هم روش استفاده از این دو تابع :



Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)

بh تابع اول میفهمی چه کلیدی زده شده و با تغییر مقدار ها در آرایه و وارد کردنش به تابع دوم میتونی اون کلید رو فعال کنی .





-------------------------------------------------------------------------------------
ممنون از اینکه توجه کردید . کد er داد . اگه واست مقدوره این تحت یه پروژه کوچولو بهم بده.
بازم از توجهت ممنون

[ahmads]

میتونید از دستور SendKey هم استفاده کنید

[MEhdi Sobhani]

-------------------------------------------------------------------------------------
ممنون از اینکه توجه کردید . کد er داد . اگه واست مقدوره این تحت یه پروژه کوچولو بهم بده.
بازم از توجهت ممنون
الان تست کردم دیدم کار نمیکنه . سرچ کردم به نظر این روش تو سون کار نمیکنه .
این مثال رو از خود مایکروسافت ببینید .
http://support.microsoft.com/kb/177674
موفق باشید .

[saeed_r67]

سلام . Send Key که جواب نداد. ولی باز هم ممنون که توجه داشتید .

------------------------------------------------
ولی با لینک آقای MEhdi Sobhani (http://www.barnamenevis.org/forum/member.php?u=161025) مشکلم حل . واقعا ممنون

[ahmads]

سلام . Send Key که جواب نداد. ولی باز هم ممنون که توجه داشتید .

------------------------------------------------
ولی با لینک آقای MEhdi Sobhani (http://www.barnamenevis.org/forum/member.php?u=161025) مشکلم حل . واقعا ممنون
خوده Sendkey به تنهایی که جواب نمیده ! شما باید اسم تعریف شده وی بی رو برای اون کلید داشته باشید و بعد با کامل کردن دستر اونو اجرا کنید، برنامه هیچ فرقی بین فشار دادن کلید Num Lock با دستور Sendkey ش قائل نمیشه

[xxxxx_xxxxx]

روشن و خاموش شدن Caps Lock , Num Lock , Scroll Lock (http://barnamenevis.org/forum/showthread.php?t=190720)