首页 > > 程序设计 > VB >

关闭屏幕保护功能，改变屏保等待

2018-06-17 17:15:01来源：未知阅读 ()

->如何关闭ScreenSave功能,改变Timeout时间

　　此外希望只有本次使用Windows时改变(下次开机时还原原状)，则最後参数改为　SPIF_SENDWININICHANGE(没有SPIF_UPDATEINIFILE)

ConstSPI_SETSCREENSAVEACTIVE=17
ConstSPI_SETSCREENSAVETIMEOUT=15
ConstSPIF_SENDWININICHANGE=&H2
ConstSPIF_UPDATEINIFILE=&H1

PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias_
　　"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,_
　　ByVallpvParamAsLong,ByValfuWinIniAsLong)AsLong

PrivateSubSetScreenSaveTimeout(ByValBySecondAsLong)
　CallSystemParametersInfo(SPI_SETSCREENSAVETIMEOUT,BySecond,0,_
　　　　　SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)
EndSub

PrivateSubEnableScreenSave()
　CallSystemParametersInfo(SPI_SETSCREENSAVEACTIVE,1,0,_
　　　　　SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)
EndSub
PrivateSubDisableScreenSave()
　CallSystemParametersInfo(SPI_SETSCREENSAVEACTIVE,0,0,_
　　　　　SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)
EndSub->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有