Visual Basic - urgente codigo fuente para sistema cybercafe

Life is soft - evento anual de software empresarial
 
Vista:

urgente codigo fuente para sistema cybercafe

Publicado por fabio (1 intervención) el 31/03/2003 04:41:47
necesito que alguien me acesore o me de ejemplos de codigo fuente para realizar un sistema para un cybercafe el cual administre las maquinas, su tiempo de conexion de cada una , que tenga un envio de mensajes a cada maquina que el servidor puea desactivar, apagar y reiniciar cada uno de las maquinas clientes y que el sistema no se pueda cerrar pulsando ALT CTRL y SUPR es urgente quien me pueda ayudar o acesorar es para un proyecto de grado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:urgente codigo fuente para sistema cybercafe

Publicado por lula (19 intervenciones) el 09/04/2003 12:05:05
Hola Fabio, yo estoy haciendo algo muy similar y he utilizado la Api"Netmessagebuffersend".
esta funciona mandando un message a otro equipo.y este es el codigo para cerrar,apagar........pero por ahora solo apaga la maquina desde donde se ejecuta.
Si consigues apagar desde un sevidor o simi lar dimelo ok??
Saludos de Lula

Private Sub Timer1_Timer()
Label1.Caption = Time
S = Right(Label1.Caption, 2)

hora = DatePart("h", Label1)
minuto = DatePart("n", Label1)
Debug.Print hora, minuto
If txtHora = hora And txtMinuto = minuto Then
'If Label1.Caption = txtHora.Text & ":" & txtMinuto.Text Then
If optApagar = True Then
Dim i As Integer
i = ExitWindowsEx(1, 0&) 'Apaga el equipo
Resultado = ExitWindowsEx(Accion, 0&)
ElseIf optReiniciar = True Then
i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema
Resultado = ExitWindowsEx(Accion, 0&)
ElseIf optcerrarsesi = True Then

i = ExitWindowsEx(3, 0&) 'cierra sesion
Resultado = ExitWindowsEx(Accion, 0&)
End If
End If

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar