Blokear mouse y otras cosas

Iniciado por CARRY-ON, 11 Diciembre 2006, 20:16 PM

0 Miembros y 1 Visitante están viendo este tema.

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:

' 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.

;D Salu2
¿Qué culpa tengo yo de tener la sangre roja y el corazón a la izquierda?

VirucKingX

#3
...


Bye

Robokop

#4
Cita de: WarGhost en 12 Diciembre 2006, 21:54 PM
Utiliza la api blockinput es fácil de utilizar.

;D 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