|
Título: pantalla Publicado por: dark_soul en 8 Junio 2006, 13:42 pm 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 Título: Re: pantalla Publicado por: dark_soul en 8 Junio 2006, 13:44 pm esta en vb6 que se me paso decirlo
Título: Re: pantalla Publicado por: The Shredder en 8 Junio 2006, 16:46 pm y si pones un timer?
Título: Re: pantalla Publicado por: dark_soul en 8 Junio 2006, 18:25 pm 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
Título: Re: pantalla Publicado por: _Sergi_ en 8 Junio 2006, 19:08 pm 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. Citar 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 ?? 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 Citar Private 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. |