编写一个程序，只要此程序运行着，就可以让屏保时间到后不进入屏保，谁会用VB或C#都可以

VB代码：Const SPI_SETSCREENSAVEACTIVE = 17

Const SPI_SETSCREENSAVETIMEOUT = 15

Const SPIF_SENDWININICHANGE = &H2

Const SPIF_UPDATEINIFILE = &H1Private Declare Function SystemParametersInfo Lib "user32" Alias _

"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _

ByVal lpvParam As Long, ByVal fuWinIni As Long) As LongPrivate Sub Form_Load()

Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, _

SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)

End Sub

这种情况经常在编程中遇到，解决办法通常是设一个全局变量做开关，先令这个变量=0，在需要检测鼠标时变量=1，在mousemove事件中：

If 变量=0 Then Exit Sub

ShowCursor、Ellipse、BitBlt 这三个是API函数ShowCursor用于控制屏保显示时鼠标指针是否存在；Ellipse是用于绘制椭圆的函数，在此程序中代表星星；BitBlt的作用是做位图，也就是各种大小、颜色的星星。关于这三个API函数的详细使用，我建议你上MSDN去看看，初学VB不一定要样样精通，见多识广就可以了。多看看MSDN吧！见的多了水平自然会提高！

自认为解释得很详细，分啊分啊分！

以上就是关于编写一个程序，只要此程序运行着，就可以让屏保时间到后不进入屏保，谁会用VB或C#都可以全部的内容，包括:编写一个程序，只要此程序运行着，就可以让屏保时间到后不进入屏保，谁会用VB或C#都可以、vb编写屏保，用mousemove事件来退出屏保，但是还未运行就退出了，要怎么解决这个问题呢、vb 屏保代码注释等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！