Visual Basic - ASUNTO SOBRE APIS

Saludos a todas y todos....

¿Alguien sabe de algunas apis para deshabilitar o bloquear el teclado y el mouse?

<fin de texto>

13.- ¿Cómo evitar el uso de CTRL+ALT+SUPR y ALT+TAB? (sólo en Win95) (5/Oct)

Pues usando el API, como casi siempre.
Este truco/comentario, está sacado de las Knowledge Base de Microsoft:
HOWTO: Block CTRL+ALT+DEL and ALT+TAB in Windows 95 - Article ID: Q161133
Así que si quieres el original en inglés ya sabes dónde buscarlo. Resumiendo lo que dicen es que sólo es posible hacerlo en Windows 95 y que seguramente en futuras versiones no estará soportado. Además de las habituales precauciones, ya que si no se pueden usar estas teclas y "casca" el programa... no te digo lo que tendrás que hacer...
Aquí está la declaración de la función que lo permite y un poco de ejemplo para poder hacerla funcionar.

'Declaración de la función:
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, _
lpvParam As Any, ByVal fuWinIni As Long) As Long

'Para deshabilitar estas teclas:
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
True, blnOld, 0&)

'Para volver a habilitarlas:
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
False, blnOld, 0&)
Como recomendación final: asegurate que en el Form_Unload que tengas, haga una llamada a la rutina que vuelve a habilitar estas teclas, así todo volverá a estar como debiera.


espero te sirva este api, el d

Me ha sido de utilidad....
saludos.

AL MOMENTO DE MOVEREL MOUSE SOBRE EL FORM LO OBLIGA A REGRESAR A CIERTO PUNTO QUE TU LE ESPECIFIQUES

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1% = (Form1.Left + Command1.Left + Command1.Width / 2 + 600) / Screen.TwipsPerPixelX
Y1% = (Form1.Top + Command1.Top + Command1.Height / 2 + 3600) / Screen.TwipsPerPixelY
SetCursorPos X1%, Y1%
End Sub


End Sub

Private Sub Command2_Click()
result = ShowCursor(True)
End Sub

Usar las teclas alternativas Alt+O para ocultarlo y Alt+M para mostrarlo.

Peguar el siguiente código en el módulo:



Ocultar y mostrar el puntero del ratón:

Crear un nuevo proyecto e insertar dos ButtonClick y un Módulo:

Pegue el siguiente código en el formulario:

Private Sub Command1_Click()
result = ShowCursor(False)
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

ESPERO QUE TAMBIEN TE SIRVAN.

Gracias....

Esta funcion es realmente util.... me ayudará bastante.
salu2.

<fin de texto>