如何让屏幕保护立即运行.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 14 行

一 个 办 法 是 调 用 SystemParametersInfo函 数 。 如 ： 
    Const SPI_GETSCREENSAVETIMEOUT = 14 
    Const SPI_SETSCREENSAVETIMEOUT = 15 
    Const SPI_GETSCREENSAVEACTIVE = 16 
    Const SPI_SETSCREENSAVEACTIVE = 17 
    Const SPIF_SENDWININICHANGE = &H2 
    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long 
     
    Private Sub Command1_Click() 
     SystemParametersInfo SPI_SETSCREENSAVETIMEOUT, 1, 0&, SPIF_SENDWININICHANGE 
    End Sub 
    这 里 我 们 把 等 待 时 间 设 置 为 1秒 。 只 要 你 按 下 按 钮 后 等 待 1秒 钟 屏 幕 保 护 会 立 即 运 行 。 
    另 一 种 办 法 是 调 用 屏 幕 保 护 程 序 并 加 上 /s参 数 。 
<END>