Descargar Archivo
Titulo
Activar-Desactivar Caps y Scroll
Descripcion
Activa y Desactiva las teclas de Caps Lock y Scroll Lock (incluyen los focos del teclado)
Descargas
782
Codigo Fuente
<pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Sub</span> keybd_event Lib <span style="color: #B22222">"user32"</span> (<span style="color: #0000FF">ByVal</span> bVk <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span>, <span style="color: #0000FF">ByVal</span> bScan <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span>, <span style="color: #0000FF">ByVal</span> dwFlags <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> dwExtraInfo <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">Const</span> KEYEVENTF_EXTENDEDKEY = &H1 <span style="color: #0000FF">Const</span> KEYEVENTF_KEYUP = &H2 <span style="color: #0000FF">Const</span> VK_CAPITAL = &H14 <span style="color: #0000FF">Const</span> VK_SCROLL = &H91 <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command1_Click() <span style="color: #0000FF">Dim</span> Numlockstate <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span> <span style="color: #0000FF">Dim</span> keys(0 <span style="color: #0000FF">To</span> 255) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span> Numlockstate = keys(VK_CAPITAL) <span style="color: #0000FF">If</span> Numlockstate <> <span style="color: #0000FF">True</span> <span style="color: #0000FF">Then</span> keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY <span style="color: #0000FF">Or</span> 0, 0 keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY <span style="color: #0000FF">Or</span> KEYEVENTF_KEYUP, 0 <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command2_Click() <span style="color: #0000FF">Dim</span> Numlockstate <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span> <span style="color: #0000FF">Dim</span> keys(0 <span style="color: #0000FF">To</span> 255) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span> Numlockstate = keys(VK_SCROLL) <span style="color: #0000FF">If</span> Numlockstate <> <span style="color: #0000FF">True</span> <span style="color: #0000FF">Then</span> keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY <span style="color: #0000FF">Or</span> 0, 0 keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY <span style="color: #0000FF">Or</span> KEYEVENTF_KEYUP, 0 <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span></font></pre>
