Test Foro de elhacker.net SMF 2.1

buenas, un preguntilla , estoy haciendo un trojan y utilizo el siguiente codigo para apagar la pantall

'modulo
Public Const MONITOR_ON = -1&
Public Const MONITOR_LOWPOWER = 1&
Public Const MONITOR_OFF = 2&
Public Const SC_MONITORPOWER = &HF170&
Public Const WM_SYSCOMMAND = &H112

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


'form
Private Sub Command1_Click()
Call SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)

End Sub

el problema es que cada vez que le doy se apagala pantalla, pero al mover el raton o tokar una tecla se enciende de nuevo ... alguien me puede decir que falla ??

y otra cosa como puedo ahcer para ocultar el puntero del maouse por toda la pantalla y no solo donde esta el fomr como foco ?

graciasss de antemano p

esta en vb6 que se me paso decirlo

y si pones un timer?

si el problema es que cada vez que muevo el raton se vuelve a encender la pantalla... no se a que te refieres con lo del timer

1. Usa las etiquetas [ code] y [/code ]

2. Este hilo debe de ir en el apartado de Visual Basic; le pido a algún moderador que lo mueva y edite si es posible.

3.

Citarel problema es que cada vez que le doy se apagala pantalla, pero al mover el raton o tokar una tecla se enciende de nuevo ... alguien me puede decir que falla ??

La pantalla en realidad no se apaga, se pone en ahorro de energía. En Windows, al mover el ratón o pulsar una tecla, se sale del modo de ahorro de energía. Quizás puedas evitarlo bloqueando la entrada del teclado y el ratón. Busca y encontrarás.

4. Para ocultar o mostrar el ratón puedes usar la API ShowCursor

CitarPrivate Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Command1_Click()
ShowCursor True
End Sub

Private Sub Command2_Click()
ShowCursor False
End Sub

Un saludo.