关闭屏幕保护功能改变屏保等待
在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享关闭屏幕保护功能改变屏保等待,希望可以对大家能有小小的帮助。
此外希望只有本次使用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->->