Bloquear aplicaciones

[writis]

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)