紧急求教2000下关闭键盘的方法和关闭ctrl+alt+del的方法！！！！！！！！！！解决了立即给分！

2003-11-05 11:03:22 64 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Tomcat部署全攻略：从目录结构到war包排错实战在Java Web应用开发中，Servlet容器是承载动态请求处理的核心基础设施，Tomcat作为最常用的开源实现，其部署与配置直接决定了应用上线的稳定性。理解Web服务器与后端容器在职责上的差异，是掌握应用部署的第一步。Tomcat通过标准的目录布局、端口配置与类加载机制，将业务应用与底层HTTP服务有效衔接。无论是独立安装还是嵌入式集成，熟悉其工作原理都有助于快速定位启动失败、端口占用、应用404等高频问题。从环境准备、WAR包发布到JVM参数调优，再到基于日志的故障排查策略，系统化掌握这套流程，能大幅阅读详情

解决了立即给分

...全文

ChatGPT三端协同工作流：网页/APP/电脑高效咬合指南 ChatGPT作为主流大语言模型交互入口，其多端使用已远超简单‘能访问’层面，进入工作流深度整合阶段。理解各终端底层能力差异——网页版是上下文中枢与功能全集载体，APP强在语音交互与系统级通知，电脑端胜在全局快捷键与IDE协同——是构建高效AI生产力的前提。技术价值在于打破端间割裂，通过自定义指令统一AI人格、以网页版为文件与历史枢纽、用轻量锚点替代全量同步，实现跨设备上下文连续性。典型场景覆盖通勤语音速记、会议实时纪要生成、代码开发即时辅助及长文档交叉分析，最终让AI真正嵌入工程师、产品经理与内容创作者的阅读详情

leadenhua8

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

leadenhua8 2003-11-07

打赏
举报

上面的拦截，恢复键盘需要怎么做？

Dublue 2003-11-06

打赏
举报

要自己写程序，拦截所有的键盘消息并不作响应

felix 2003-11-06

打赏
举报

Const REG_SZ = 1
Const REG_BINARY = 3
Const REG_DWORD = 4

Const HKEY_CURRENT_USER = &H80000001
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String
Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long

lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)
If lResult = 0 Then
If lValueType = REG_SZ Then

strBuf = String(lDataBufSize, Chr$(0))
'retrieve the key's value
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)
If lResult = 0 Then

RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
End If
ElseIf lValueType = REG_BINARY Then
Dim strData As Integer
'retrieve the key's value
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = strData
End If
ElseIf lValueType = REG_DWORD Then
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = strData
End If

End If
End If
End Function

Function GetString(hKey As Long, strPath As String, strValue As String)
Dim Ret
RegOpenKey hKey, strPath, Ret
GetString = RegQueryStringValue(Ret, strValue)
RegCloseKey Ret
End Function

Sub SaveStringWORD(hKey As Long, strPath As String, strValue As String, strData As String)
Dim Ret
RegCreateKey hKey, strPath, Ret
RegSetValueEx Ret, strValue, 0, REG_DWORD, CLng(strData), 4
RegCloseKey Ret
End Sub
Sub DelSetting(hKey As Long, strPath As String, strValue As String)
Dim Ret
RegCreateKey hKey, strPath, Ret
RegDeleteValue Ret, strValue
RegCloseKey Ret
End Sub

Private Sub Check1_Click()
SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableTaskMgr", Val(Check1.Value)
End Sub

Private Sub Check2_Click()
SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\Explorer", "NoLogoff", Val(Check2.Value)
End Sub
Private Sub Check3_Click()
SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\Explorer", "NoClose", Val(Check3.Value)
End Sub
Private Sub Check4_Click()
SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableLockWorkstation", Val(Check4.Value)
End Sub

Private Sub Check5_Click()
SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableChangePassword", Val(Check5.Value)
End Sub

Private Sub Command1_Click()
Unload Me
Set Form1 = Nothing
End Sub

Private Sub Form_Load()

On Error Resume Next ' Coz the following Code will generate Error if the Entries are not found in registry Run time error '13' type mismatch
Check1.Value = GetString(HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableTaskMgr")
Check2.Value = GetString(HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\Explorer", "NoLogoff")
Check3.Value = GetString(HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\Explorer", "NoClose")
Check4.Value = GetString(HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableLockWorkstation")
Check5.Value = GetString(HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableChangePassword")
End Sub

leadenhua8 2003-11-06

打赏
举报

感谢楼上的,可是还是不行啊,难道这里的高手连这么个小问题也解决不了吗!!!!!!!有分难道都给不出去吗??????????????

rainstormmaster 2003-11-05

打赏
举报

看看这个，你试试吧，我是没成功：
http://expert.csdn.net/Expert/topic/2374/2374876.xml?temp=.7962

紧急求教2000下关闭键盘的方法和关闭ctrl+alt+del的方法！！！！！！！！！！解决了立即给分！

相关推荐