Visual Basic - Visual Basic 5.0

Life is soft - evento anual de software empresarial
 
Vista:

Visual Basic 5.0

Publicado por Junior Sotero (1 intervención) el 04/07/2003 13:39:06
Alguien podria darme el codigo de como apagar la maquina directo con solo pulsar un boton
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:Visual Basic 5.0

Publicado por Pere (150 intervenciones) el 04/07/2003 20:35:50
No sé si es lo que deseas, prueba esto:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Enum MonitorState
MonitorOn = -1
MonitorOff = 2
MonitorStandby = 1
End Enum

Public Sub SetMonitorState(frmForm As Form, eState As MonitorState)
Dim lngResult As Long
lngResult = SendMessage(frmForm.hwnd, &H112, &HF170, eState)
End Sub

Saludos
Pere
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