首页
学习
活动
专区
圈层
工具
发布

VB键盘鼠标无动作调用程序尝试的案例分享

SystemParametersInfo可以实现获取屏幕保护信息的函数。...参考代码如下:'API调用与常用定义:Private Declare Function SystemParametersInfo _ Lib "user32" _ Alias "SystemParametersInfoA...Long = &H72 '屏保是否运行的常量Private Sub Timer1_Timer() Dim bRunning As Boolean '屏保是否运行的变量,当然你可以定义全局变量 SystemParametersInfo...,bRunning返回屏保运行状态 Debug.Print Time; "屏保运行="; bRunning '演示:打印屏保是否运行的信息End Sub '另外,查看屏保是否启用,也可以用下面方法:SystemParametersInfo...SPI_GETSCREENSAVEACTIVE, 0, bActive, False 'bActive为返回值(逻辑型)可是不知道为什么我在WIN7下调试还是有问题,提示SystemParametersInfo

90100
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到
    领券