如何封锁“开始”按钮?

xzjxu 2003-04-23 10:38:27
就是打不开“开始”菜单
或者封锁ctl+esc和windows键
...全文
65 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
用户 昵称 2003-04-24
  • 打赏
  • 举报
回复
那样还是屏蔽不了ctrl+esc,windows键

ShowWindow hLong, SW_SHOW
改为
EnableWindow hLong, 0

再用

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

Private Const SPI_SCREENSAVERRUNNING = 97
Private Sub Command1_Click()
Dim ret As Integer
Dim pOld As Boolean

If Command1.Caption = "屏蔽" Then '使Ctrl+Alt+Del有效
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
Command1.Caption = "有效"
Else '使Ctrl+Alt+Del无效
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
Command1.Caption = "屏蔽"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "屏蔽"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim ret As Integer
Dim pOld As Boolean

'退出前使ALT+CTL+DEL有效
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub

虽然在2k下不能屏蔽ctrl+alt+del,但是屏蔽ctrl+esc还是可以的。
zsgzsgzsg 2003-04-24
  • 打赏
  • 举报
回复
'显示开始按钮
Dim hLong As Long
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", vbNullString)
hLong = FindWindowEx(hWnd, 0, "Button", vbNullString)
ShowWindow hLong, SW_SHOW
xzjxu 2003-04-23
  • 打赏
  • 举报
回复
怎么解封???
zsgzsgzsg 2003-04-23
  • 打赏
  • 举报
回复
'声明
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Const SW_SHOWNORMAL = 1

'屏蔽开始按钮
Dim hLong As Long
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", vbNullString)
hLong = FindWindowEx(hWnd, 0, "Button", vbNullString)
ShowWindow hLong, SW_HIDE
设计任务:设计一个具有锁存与显示功能的8人抢答逻辑电路 要 求: 1.基本功能 (1)设计一个智力竞赛抢答器,可同时供8名选手或8个代表队参加比赛,他们的编号分别时0、1、2、3、4、5、6、7,各用一个抢答按钮按钮的编号与选手的编号相对应,分别是S0、S1、S2、S3、S4、S5、S6、S7。 (2)给节目主持人设置一个控制开关,用来控制系统的清零(编号显示数码管灭灯)和抢答的开始。 (3)抢答器具有数据锁存和显示功能。抢答开始后,若有选手按动抢答按钮,编号立即锁存,并在LED数码管上显示出选手的编号,同时扬声器给出音响提示。此外,要封锁输入电路,禁止其它选手抢答。优先抢答选手的编号一直保持到主持人将系统清零为止。 2.扩展功能 (1)抢答器具有定时抢答的功能,且一次抢答的时间可以由主持人设定(如30s)。当节目主持人启动“开始”键后,要求定时器立即减计时,并用显示器显示,同时扬声器发出短暂的声响,声响持续时间0.5s左右。 (2)参赛选手在设定的时间内抢答,抢答有效,定时器停止工作,显示器显示选手的编号和抢答时刻的时间,并保持到主持人将系统清零为止。 (3)如果定时抢答的时间已到,却没有选手抢答时,本次抢答无效,系统短暂报警,并封锁输入电路,禁止选手超时后抢答,时间显示器显示00。
数字电路课程设计-四路抢答器项目源码(高分课设)功能如下: 设有主持人按钮、抢答按钮、信号灯和显示器,可以同时满足四名选手参加比赛; 比赛开始后,不待主持人按下开始按钮即抢答的按犯规处理,同时显示犯规选手编号,点亮警告信号灯; 当主持人按下开始按钮后,在9秒内如有人抢答则立即显示出第一抢答人的编号,同时点亮有效信号灯; 当9秒结束时仍无人抢答则封锁所有抢答人按钮,同时显示抢答结束标志。 数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计-四路抢答器项目源码(高分课设)数字电路课程设计

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧