vb 在xp下屏蔽 ctrl+alt+del
3个回答
2013-12-12
展开全部
我们在编程中,为了达到特殊的要求,有时需要屏蔽功能CTRL+ALT+DLE,本示例程序将教你如何实现它。
实现步骤:
1.建立一个新项目,将其命名为DEMO3.vbp。
2.在Form1窗体的声明中加入以下代码:
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SCREENSAVERRUNNING = 97
3. 在Form1窗口的Command1_Click中加入以下代码:
Private Sub Command1_Click()
Dim r As Integer
Dim p As Boolean
If Command1.Caption = "屏蔽" Then
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, p, 0)
Command1.Caption = "有效"
Else
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
Command1.Caption = "屏蔽"
End If
End Sub
4. 在Form1窗体的Form_Unload中加入以下代码:
Form1_Unload()
Dim r As Integer
Dim p As Boolean
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
实现步骤:
1.建立一个新项目,将其命名为DEMO3.vbp。
2.在Form1窗体的声明中加入以下代码:
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SCREENSAVERRUNNING = 97
3. 在Form1窗口的Command1_Click中加入以下代码:
Private Sub Command1_Click()
Dim r As Integer
Dim p As Boolean
If Command1.Caption = "屏蔽" Then
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, p, 0)
Command1.Caption = "有效"
Else
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
Command1.Caption = "屏蔽"
End If
End Sub
4. 在Form1窗体的Form_Unload中加入以下代码:
Form1_Unload()
Dim r As Integer
Dim p As Boolean
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-12-12
展开全部
这个大概是不可能的了。
这可以从window server 2003中登录前必须按下Ctrl+Alt+Del组合键的目的得出结论,这个组合是只有windows内核才能响应的超级组合,所以在登录windows之前按这个组合键再输入用户名密码是安全的,因为恶意软件无法对这个组合键做出响应,也就是你想模拟一个登录界面是不可行的,你得不到这个组合键的消息
这可以从window server 2003中登录前必须按下Ctrl+Alt+Del组合键的目的得出结论,这个组合是只有windows内核才能响应的超级组合,所以在登录windows之前按这个组合键再输入用户名密码是安全的,因为恶意软件无法对这个组合键做出响应,也就是你想模拟一个登录界面是不可行的,你得不到这个组合键的消息
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-12-12
展开全部
ctrl+alt+del 是什么快捷键?任务管理器.
Open "c:\windows\system32\taskmgr.exe" For Input Lock Read As #1
一样的效果.
Open "c:\windows\system32\taskmgr.exe" For Input Lock Read As #1
一样的效果.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询