کد فعال کردن num lock در زمان اجرای ویندوز ویژوال بیسیک
برای این کار از کد زیر استفاده کنید.
| Dim b As Object Dim s As String ' Need a Command button Private Sub Command1_Click() Set b = CreateObject("wscript.shell") s = "HKCU\Control Panel\Keyboard\InitialKeyboardIndicators" b.regwrite s, "2", "REG_SZ" Set b = CreateObject("wscript.shell") s = "HKEY_USERS\.DEFAULT\Control Panel\Keyboard\InitialKeyboardIndicators" b.regwrite s, "2", "REG_SZ" End Sub |
منبع:www.cesblog.ir
+ نوشته شده توسط CES در جمعه بیستم خرداد ۱۳۹۰ و ساعت
19:45 |