Blokear mouse y otras cosas

[CARRY-ON]

Quiero saber si hay algun codigo que bloquee el mouse mas abajo hay uno pero blokea el mouse y el teclado yo solo quiero que blokee el mouse



como oculto la barra

[~~]

Pues blokear solo el mouse no se... para la barra asi:

Código [Seleccionar] Expandir

' Módulo :

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Global Ventana As Long
Global Const Muestra = &H40
Global Const Oculta = &H80

' Form:

Private Sub Command1_Click()  'Oculta
Ventana = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Oculta)
End Sub

Private Sub Command2_Click()  'Visible
Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Muestra)
End Sub

[WarGhost]

Utiliza la api blockinput es fácil de utilizar.

Salu2

[VirucKingX]

...

[Robokop]

Utiliza la api blockinput es fácil de utilizar.

Salu2

No funcionaria blockinput bloquea el mouse y el teclado y el solo pide el mouse

solo se me ocurre que uses la api setcursorpos y un timer de intervalo 1 y que su función sea con setcursorpos enviar el mouse a una determinada posición.
PD:acabo de hacer la prueba  y si funciona ahorita estoy sin mouse xDD
salu2