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

VB技巧问答10000例 VB技巧问答10000例

一 个 办 法 是 调 用 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>