Red de conocimiento informático - Problemas con los teléfonos móviles - vb juez estado del protector de pantalla

vb juez estado del protector de pantalla

'Llamadas API y definiciones comunes:

Función de declaración privada SystemParametersInfo _

Lib "user32" _

Alias ​​"SystemParametersInfoA" _

( ByVal uiAction As Long, _

ByVal uiParam As Long, _

pvParam As Any, _

ByVal fWInIni As Long) Como booleano

Private Const SPI_GETSCREENSAVEACTIVE As Long = amp H10 'Constante que indica si el protector de pantalla está habilitado

Private Const SPI_GETSCREENSAVERRUNNING As Long = amp; p> >

Private Sub Timer1_Timer()

Dim bRunning As Boolean 'Variable si el protector de pantalla se está ejecutando, por supuesto que puedes definir variables globales

SystemParametersInfo SPI_GETSCREENSAVERRUNNING, 0, bRunning, False 'Llame a la API para ver si se está ejecutando. False 'Llamar a la API, bRunning devuelve el estado del protector de pantalla en ejecución

Debug.Print Time; "screen saver running="; bRunning 'Demo: imprime información sobre si el protector de pantalla se está ejecutando

End Sub

Alternativamente, para ver si el protector de pantalla está habilitado, puede usar el siguiente comando:

SystemParametersInfo SPI_GETSCREENSAVEACTIVE, 0, bActive, False 'bActive es el retorno valor (tipo lógico)

SystemParametersInfo SPI_GETSCREENSAVEACTIVE, 0, bActive, False 'bActive es el valor de retorno (tipo lógico)

上篇: ¿Qué significa TPMS? ¿Para qué es? 下篇: ¿Cuántos niveles hay en "Candy Crush Saga"?

Artículos populares