说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在VB中控制Ctrl+Del+Alt键

HTML文档下载 WORD文档下载 PDF文档下载
在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的用法

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘