
06/02/2008, 05:08
|
| | Fecha de Ingreso: enero-2008 Ubicación: Arauca
Mensajes: 32
Antigüedad: 17 años, 3 meses Puntos: 0 | |
Re: Bloquear aplicaciones yo hice un programa para controlar un ciber cafe por que los programas que estan en la red no cumplian con mis necesidades por los sistemas que uso, el codigo que necesitas en VB seria el siguiente:
Option Explicit
Private 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
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOZORDER = &H4
Const SWP_NOREDRAW = &H8
Const SWP_NOACTIVATE = &H10
Const SWP_FRAMECHANGED = &H20
Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80
Const SWP_NOCOPYBITS = &H100
Const SWP_NOOWNERZORDER = &H200
Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Const HWND_TOP = 0
Const HWND_BOTTOM = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
'y estas las ordenes de bloqueo
Dim i
i = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
'y desbloqueo
Dim i
i = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
(este codigo me fue suministrado por "areslomas" y "seba123neo" en este foro) espero que te sea util.
y esta es la direccion de donde , muy amablemente me envio un programita que se tomo el tiempo de hacer para mi (gracias areslomas):
http://moratiel.com/visualbasic/apariencia/formencimaotros.zip
Trata de aprender algo cada dia, de lo contrario... habras malgastado ese dia (writis)
Última edición por writis; 06/02/2008 a las 05:19 |