bloquear terminal... internet

[aavg]

He visto como unos programas en los cyber cafes de internet bloquean la computadora desde el servidor y le dan acceso a un cliente....

¿Como se podria hacer algo asi en visual basic, es decir que el usuario no pueda abrir ningun programa en absoluto, hasta que el que servidor le asigne cierto tiempo y terminado ese tiempo se bloquee la Pc de nuevo?

[Jorge_Mota]

tienes que tener un form, que debes mandar al "Inicio"
digamos form1.alwaysontop = true, luego creas un timer
que cada minuto va a ir a buscar a una tabla por su nombre
y ver si tiene tiempo activado, si encuentra el form se minimiza, y
empieza a descontar cada minuto, en 1 el valor de la tabla,
y tiene que ver que cuando llegue a Cero, de volver a ponerse
alwaysontop.

[Andresito]

mira compadre, yo estoy buscando informacion acerca del tema que estas preguntando y te puedo decir que ademas de lo que te dijo Jorge_Mota y que ademas me servira a mi tambien, te digo que no es solo eso! pues ademas, segun lo que yo e investigado, debes de alguna forma impedir que un usuario presione la tecla ctrl+alt+del y de esa forma tener la posibilidad de cerrar la aplicacion a traves del administrador de tareas ya que de esa manera el formulario que es desplegado por tu aplicacion hecha en visualbasic aparecera como un proceso y puede ser matado y tu bloqueo habra desaparecido . Ese aspecto es algo complicado pues en windows2000/nt parece que es imposible inhabilitar dichas teclas.Por otro lado, si deseas hacer una aplicacion completa deberas cerrar todas las aplicaciones y carpetas que el usuario abrio al momento de bloquear el sistema de manera que el proximo usuario encuentre el sistema sin nada abierto .

Como veras, segun lo que yo he analizado y encontrado, es necesario realizar estas acciones y para ello es necesario programar con la API de windows y con los DLL (en internet encontraras informacion acerca de estos temas si no los conoces bien, yo soy muy novato en esa area).No es un programa para nada sencillo para un novato como yo que no se casi nada sobre la API de windows, pero voy poco a poooooooooco. Esta de mas decirte que si tienes mas informacion al respecto o consigues una forma menos complicada de hacer dicha aplicacion y que ademas sea robusta y no tenga "huecos" informame . Si quieres nos ponemos en contacto para aportarnos documentos, informacion y codigo . Tengo recopiladas algunas funciones utiles pero aun no las entiendo, te las mandare lo mas pronto que pueda.

[Jorge_Mota]

segun tengo entendido en todos los sistemas basados en NT
(w2k, xp, .Net server...) no se puede deshabilitar el ALT +CTRL +
Delete, pues es parte integral del sistema. por medio de politicas
en w2k, se puede deshabilitar el uso del administrador de tareas
ahora bien, lo que a mi se me ocurriria a grosso modo, es tener 2
ejecutables uno, con un nombre extraño, o nombre similar al de
algun programa de windows, y que el se encargue de ver cada 5
minutos si tu otro exe esta corriendo (con la api FindWindow, o
IsWindow) y si no la encuentra, pues, que la ejecute.

la otra opcion, es que si van a ser todas las estaciones windows 2000 o Xp, pues correr el programa como un servicio, de esa
manera no se puede matar, y que el programa cuando cumpla el
tiempo de alquiler, pues que bloquee la estacion de trabajo con
la api LockWorkStation

aca mando las declaraciones de las 3 apis mencionadas:

Private Declare Function LockWorkStation Lib "user32.dll" () As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: [email protected]
LockWorkStation
End Sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const WM_CLOSE = &H10
Const gcClassnameMSWord = "OpusApp"
Const gcClassnameMSExcel = "XLMAIN"
Const gcClassnameMSIExplorer = "IEFrame"
Const gcClassnameMSVBasic = "wndclass_desked_gsk"
Const gcClassnameNotePad = "Notepad"
Const gcClassnameMyVBApp = "ThunderForm"
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
'Ask for a Window title
Ret = InputBox("Enter the exact window title:" + Chr$(13) + Chr$(10) + "Note: must be an exact match")
'Search the window
WinWnd = FindWindow(vbNullString, Ret)
If WinWnd = 0 Then MsgBox "Couldn't find the window ...": Exit Sub
'Show the window
ShowWindow WinWnd, SW_SHOWNORMAL
'Create a buffer
lpClassName = Space(256)
'retrieve the class name
RetVal = GetClassName(WinWnd, lpClassName, 256)
'Show the classname
MsgBox "Classname: " + Left$(lpClassName, RetVal)
'Post a message to the window to close itself
PostMessage WinWnd, WM_CLOSE, 0&, 0&
End Sub

Const RDW_INVALIDATE = &H1
Const BS_HATCHED = 2
Const HS_CROSS = 4
Private Type LOGBRUSH
lbStyle As Long
lbColor As Long
lbHatch As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function CreateBrushIndirect Lib "gdi32" (lpLogBrush As LOGBRUSH) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetRectEmpty Lib "user32" (lpRect As RECT) As Long
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function IsRectEmpty Lib "user32" (lpRect As RECT) As Long
Private Declare Function IntersectRect Lib "user32" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long
Private Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Declare Function GetRgnBox Lib "gdi32" (ByVal hRgn As Long, lpRect As RECT) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [email protected]
'Check if this window is a window
If IsWindow(Me.hwnd) = 0 Then
MsgBox "Hmm.. I hope you altered the code, or else your system is meeting with difficulties!", vbInformation
End If
'API uses pixels
Me.ScaleMode = vbPixels
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Redraw this window (invoke a Paint-event)
RedrawWindow Me.hwnd, ByVal 0&, ByVal 0&, RDW_INVALIDATE
End Sub
Private Sub Form_Paint()
Dim LB As LOGBRUSH, R As RECT, Rgn As Long, RgnRect As RECT, hBrush As Long
'randomize
Randomize Timer
LB.lbColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
LB.lbStyle = BS_HATCHED
LB.lbHatch = HS_CROSS
'Create a new brush
hBrush = CreateBrushIndirect(LB)
'Set the rectangle's values
SetRect R, 0, 0, 200, 200
'Create a rectangle region
Rgn = CreateRectRgn(100, 50, 300, 10)
'Get the region box
GetRgnBox Rgn, RgnRect
'calculate the intersection of two rectangles
IntersectRect R, RgnRect, R
'Empty the rectangle
SetRectEmpty RgnRect
'Fill our rectangle
FillRect Me.hdc, R, hBrush
'delete our brush
DeleteObject hBrush
'Check if the rectangle is empty
If IsRectEmpty(RgnRect) <> 0 Then SetRectEmpty RgnRect
End Sub