Visual Basic.NET - Ayuda con Suspender Windows

 
Vista:

Ayuda con Suspender Windows

Publicado por Lucas (8 intervenciones) el 10/02/2010 12:32:37
Hola!
Estoy probando con .Net e intentando que desde una aplicacion se puede suspender el equipo pongo el siguiente comando pero pone el ordernador en estado de hibernacion.

Imports System.Diagnostics

Process.Start("rundll32.exe", " PowrProf.dll, SetSuspendState")

Alguien me podria echar una mano?

Gracias
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:Ayuda con Suspender Windows

Publicado por Orcano (42 intervenciones) el 10/02/2010 18:55:01
Intenta con lo siguiente:

Process.Start("rundll32.exe", " PowrProf.dll, SetSuspendState(FALSE)")

El False indica el valor del parametro para la hibernación, al ser falso el sistema es suspendido.

Saludos
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

RE:Ayuda con Suspender Windows

Publicado por Lucas (8 intervenciones) el 10/02/2010 21:10:32
mmm.. no va :(

Ni entre parentesis ni sin el.

Gracias de todos modos.
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

RE:Ayuda con Suspender Windows

Publicado por Orcano (42 intervenciones) el 11/02/2010 00:56:11
Despues de investigar un rato y de probarlo esta es la manera correcta de hacerlo

Dim returnValue As Boolean
Dim state As PowerState = PowerState.Suspend
Dim disableWakeEvent As Boolean = False
Dim force As Boolean
returnValue = Application.SetSuspendState(state, force, disableWakeEvent)

Saludos
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

RE:Ayuda con Suspender Windows

Publicado por Lucas (8 intervenciones) el 11/02/2010 16:34:06
Muchas gracias!!! Ahora si! xDD

Oye por cierto que tal andas tu en lo de capturar pantalla? Porque intento que capture la pantalla entera y solo me captura la aplicacion abierta.Mira si quieres echar un vistazo.

Private Sub rbCapturaPantalla_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbCapturaPantalla.CheckedChanged

Save1.FileName += "Captura " + CStr(Date.Now.Day) + "-" + CStr(Date.Now.Month) + "-" + CStr(Date.Now.Year)
Save1.ShowDialog()
If Save1.FileName <> "" Then
dirImagen = Save1.FileName
End If

End Sub

Private Sub CapturarPantalla()

GetScreenCapture().Save(dirImagen)
GetScreenCapture()

End Sub

Public Function GetScreenCapture() As Image

SendKeys.SendWait("{PRTSC }")
Dim objClipboard As IDataObject = Clipboard.GetDataObject()
Return objClipboard.GetData(DataFormats.Bitmap)

End Function

Y luego llamo al procedimiento CapturarPantalla()

Bueno asi si no lo saca uno lo saca otro y aprendemos los dos (contando que tu no lo sepas,jeje)

Gracias!
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