在VB中控制Ctrl+Del+Alt键

发布: 2007-6-21 21:57 | 作者: | 来源: | 查看: 57次 | 进入软件测试论坛讨论

　　
　　在VB中控制Ctrl+Del+Alt键

下面的子程序能让你自由控制Ctrl-Alt-Del的使用。

在您的程序中通过以下代码调用该函数:

AllowKeys(False) 注释：禁用Ctrl+Del+Alt键

AllowKeys(True) 注释：允许使用Ctrl+Del+Alt键

复制以下代码到程序中的某个模块:

Private Const SPI_SCREENSAVERRUNNING = 97&

Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Sub AllowKeys(bParam as Boolean)

Dim lRetVal As Long, bOld As Boolean

lRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, bParam, bOld, 0&)

End Sub

查看SystemParametersInfo的用法

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新

软件测试技术相关文章

软件测试培训信息

最新软件测试技术专题

最新领测软件测试网新闻

软件测试技术文章排行榜

编辑推荐
周排行
月排行

软件测试技术分类最新内容