求开机加载软件，完成条件，自动退出

dshit

在Windows上搞一个程序
这个程序是开机后全屏占用
回答题目
比如是选择古诗，作者是谁？ 下一句或者上一句，
比如是加减乘除 答案多少
回答正确后在退出，并加载Windows原来的资源管理器
好整不。

dayeye

好整

austere

好整

Metest

好整

9zhmke

好整，丢给AI写吧，连题都帮你出好

ctx

98时代应用程序可以屏蔽Ctrl-Alt-Del，NT时代不知道有什么好办法，比如挂钩winlogon.exe还是定时器不断占据顶层窗口。

liangyuxing

写过类似锁全屏的工具，确实屏蔽Ctrl-Alt-De三大金刚键比较麻烦

mevem

这不是ATM取款机的软件逻辑吗！这做出来，起码的收10个W的技术费。

guong

只有试过才知道

HendrikXL

github上有开源的答题系统，拿来改一改就行了

lbw2007

这个我知道，windows自带这个功能，但是我忘了。真没骗你

Metest

抽空借助Ai助手编写了这个小工具，看看是否适合，编写环境为AutoIt v3脚本代码。末尾附上成品及源码，需要可自行修改。

界面截图

功能特点：

• 全屏界面：覆盖整个屏幕，无法最小化
• 禁用系统快捷键：屏蔽Win键、Alt+Tab、Alt+F4、Esc等快捷键
• 开机自启：程序会自动添加至开机启动项
• 随机题目：每次随机显示题库中的问题
• 时间显示：屏幕底部显示当前时间和日期
• 答题控制：
  

      支持上一题/下一题切换
      输入答案后按回车或点击"提交答案"按钮
      回答正确后程序自动退出

首次使用：

• 将程序文件（StudyTool.exe）和题库文件（questions.ini）放在同一目录
• 若没有questions.ini文件，程序会自动创建示例题库
  

运行方式：

• 直接运行（双击StudyTool.exe）
• 程序会修改注册表实现开机自启（HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run）
  

退出条件：

• 只有正确回答当前问题才能退出程序
  

题库配置：
[分类名称]
问题编号=问题内容
A编号=答案内容

题库示例：
[古诗]
1=床前明月光的下一句是什么？
A1=疑是地上霜
2=举头望明月的下一句是什么？
A2=低头思故乡

[数学]
1=25 × 4 ÷ 2 = ?
A1=50

配置规则：

• 每个分类用[分类名]开头
• 问题编号使用纯数字（如1=，2=）
• 答案编号使用A+问题编号（如A1=，A2=）
• 支持多分类，问题数量不限
  

脚本源码：带注释【已和成品一起打包】AutoIt

1. #NoTrayIcon ; 不显示系统托盘图标
   
2. #include <MsgBoxConstants.au3> ; 消息框支持
   
3. #include <WinAPISys.au3> ; Windows API 系统函数
   
4. #include <WinAPIProc.au3> ; Windows API 进程函数
   
5. #include <WindowsConstants.au3> ; Windows 常量
   
6. #include <GUIConstantsEx.au3> ; GUI 控件常量
   
7. #include <EditConstants.au3> ; 编辑框控件常量
   
8. #include <ButtonConstants.au3> ; 按钮控件常量
   
9. #include <StaticConstants.au3> ; 静态文本控件常量
   
10. #include <File.au3> ; 文件操作函数
    
11. #include <Date.au3> ; 日期时间函数
    
12. 
    
13. ; ==== 全局变量声明 ====
    
14. Global $sCurrentAnswer = "" ; 当前问题的正确答案
    
15. Global $aQuestions[0][2] ; 存储所有问题和答案的二维数组 [问题, 答案]
    
16. Global $iCurrentQuestion = -1 ; 当前显示的问题索引
    
17. Global $hGUI, $hLabel, $hInput, $hButtonSubmit, $hButtonPrev, $hButtonNext, $hStatusLabel ; GUI 控件句柄
    
18. Global $hKeyboardHook, $hCallback ; 键盘钩子相关变量
    
19. Global $hTimeLabel, $hDateLabel ; 时间和日期标签句柄
    
20. 
    
21. ; 键盘钩子常量
    
22. Global Const $WH_KEYBOARD_LL = 13
    
23. 
    
24. ; ==== 主程序入口 ====
    
25. _Main()
    
26. 
    
27. Func _Main()
    
28.     ; 设置开机自动启动
    
29.     _SetAutoStart()
    
30. 
    
31.     ; 确保资源管理器运行（防止系统功能异常）
    
32.     If Not ProcessExists("explorer.exe") Then
    
33.         Run("explorer.exe")
    
34.     EndIf
    
35. 
    
36.     ; 从INI文件加载题目
    
37.     $aQuestions = _LoadQuestionsFromINI()
    
38. 
    
39.     ; 检查题目加载情况
    
40.     If UBound($aQuestions) = 0 Then
    
41.         MsgBox(16, "错误", "未加载到任何题目，请检查questions.ini文件")
    
42.         Exit
    
43.     EndIf
    
44. 
    
45.     ; 创建全屏窗口
    
46.     $hGUI = GUICreate("学习工具", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, _
    
47.         BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) ; 置顶且不显示在任务栏
    
48.     GUISetBkColor(0x1F1F1F) ; 设置背景色为深灰色
    
49. 
    
50.     ; ==== 创建界面控件 ====
    
51.     ; 1. 时间日期显示
    
52.     $hTimeLabel = GUICtrlCreateLabel("", 0, @DesktopHeight - 100, @DesktopWidth, 40, $SS_CENTER)
    
53.     GUICtrlSetFont($hTimeLabel, 24, 800) ; 加粗字体
    
54.     GUICtrlSetColor($hTimeLabel, 0xFFFFFF) ; 白色文字
    
55. 
    
56.     $hDateLabel = GUICtrlCreateLabel("", 0, @DesktopHeight - 60, @DesktopWidth, 30, $SS_CENTER)
    
57.     GUICtrlSetFont($hDateLabel, 16)
    
58.     GUICtrlSetColor($hDateLabel, 0xFFFFFF) ; 白色文字
    
59. 
    
60.     ; 2. 问题显示区域
    
61.     $hLabel = GUICtrlCreateLabel("请等待题目加载...", 100, 150, @DesktopWidth - 200, 100, $SS_CENTER)
    
62.     GUICtrlSetFont($hLabel, 28, 800) ; 大号加粗字体
    
63.     GUICtrlSetColor($hLabel, 0xFFFFFF) ; 白色文字
    
64. 
    
65.     ; 3. 状态标签（显示回答正确/错误信息）
    
66.     $hStatusLabel = GUICtrlCreateLabel("", 0, 280, @DesktopWidth, 40, $SS_CENTER)
    
67.     GUICtrlSetFont($hStatusLabel, 16, 800)
    
68. 
    
69.     ; 4. 答案输入框
    
70.     $hInput = GUICtrlCreateInput("", (@DesktopWidth - 600)/2, 330, 600, 40, $ES_CENTER) ; 居中文本
    
71.     GUICtrlSetFont($hInput, 24)
    
72.     GUICtrlSetBkColor($hInput, 0x333333) ; 深灰色背景
    
73.     GUICtrlSetColor($hInput, 0xFFFFFF) ; 白色文字
    
74. 
    
75.     ; 5. 按钮区域
    
76.     $hButtonPrev = GUICtrlCreateButton("上一题", (@DesktopWidth - 600)/2, 400, 150, 50)
    
77.     GUICtrlSetFont($hButtonPrev, 14)
    
78. 
    
79.     $hButtonSubmit = GUICtrlCreateButton("提交答案", (@DesktopWidth - 200)/2, 400, 200, 50, $BS_DEFPUSHBUTTON) ; 设置为默认按钮
    
80.     GUICtrlSetFont($hButtonSubmit, 14)
    
81.     GUICtrlSetBkColor($hButtonSubmit, 0x2C8DFF) ; 蓝色背景
    
82.     GUICtrlSetColor($hButtonSubmit, 0xFFFFFF) ; 白色文字
    
83. 
    
84.     $hButtonNext = GUICtrlCreateButton("下一题", (@DesktopWidth - 600)/2 + 450, 400, 150, 50)
    
85.     GUICtrlSetFont($hButtonNext, 14)
    
86. 
    
87.     ; 禁用系统快捷键（防止用户退出）
    
88.     _DisableSystemShortcuts()
    
89. 
    
90.     ; 设置键盘钩子（拦截系统快捷键）
    
91.     $hCallback = DllCallbackRegister("_KeyboardProc", "long", "int;wparam;lparam")
    
92.     $hKeyboardHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hCallback), _WinAPI_GetModuleHandle(0), 0)
    
93. 
    
94.     ; 显示随机题目
    
95.     _ShowRandomQuestion()
    
96. 
    
97.     ; 显示窗口
    
98.     GUISetState(@SW_SHOW, $hGUI)
    
99. 
    
100.     ; 注册定时器更新日期时间（每秒更新一次）
     
101.     AdlibRegister("_UpdateDateTime", 1000)
     
102.     _UpdateDateTime() ; 立即更新一次
     
103. 
     
104.     ; ==== 主消息循环 ====
     
105.     While 1
     
106.         $nMsg = GUIGetMsg()
     
107.         Switch $nMsg
     
108.             Case $GUI_EVENT_CLOSE
     
109.                 ; 已禁用关闭按钮（不做任何操作）
     
110.             Case $hButtonSubmit
     
111.                 ; 检查答案
     
112.                 If _CheckAnswer() Then
     
113.                     GUICtrlSetData($hStatusLabel, "恭喜您回答正确！程序将退出。")
     
114.                     GUICtrlSetColor($hStatusLabel, 0x00FF00) ; 绿色文字
     
115.                     Sleep(2000)
     
116.                     ExitLoop ; 退出循环
     
117.                 Else
     
118.                     GUICtrlSetData($hStatusLabel, "答案不正确，请重新回答！")
     
119.                     GUICtrlSetColor($hStatusLabel, 0xFF0000) ; 红色文字
     
120.                     GUICtrlSetData($hInput, "") ; 清空输入框
     
121.                     GUICtrlSetState($hInput, $GUI_FOCUS) ; 聚焦输入框
     
122.                 EndIf
     
123.             Case $hButtonPrev
     
124.                 ; 显示上一题
     
125.                 _ShowPreviousQuestion()
     
126.             Case $hButtonNext
     
127.                 ; 显示下一题
     
128.                 _ShowNextQuestion()
     
129.         EndSwitch
     
130.     WEnd
     
131. 
     
132.     ; ==== 退出前清理 ====
     
133.     _CleanUpResources()
     
134.     Exit
     
135. EndFunc
     
136. 
     
137. ; ==== 功能函数 ====
     
138. 
     
139. ; 更新日期时间显示（避免闪烁）
     
140. Func _UpdateDateTime()
     
141.     Static $sLastTime = "", $sLastDate = "" ; 静态变量保存上次值（优化性能）
     
142. 
     
143.     ; 更新时间显示 (格式: 时:分:秒)
     
144.     Local $sTime = StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC)
     
145. 
     
146.     ; 更新日期和星期显示
     
147.     Local $sWeek = _GetWeekday(@WDAY)
     
148.     Local $sDate = @YEAR & "年" & @MON & "月" & @MDAY & "日  " & $sWeek
     
149. 
     
150.     ; 仅当时间变化时更新
     
151.     If $sTime <> $sLastTime Then
     
152.         GUICtrlSetData($hTimeLabel, $sTime)
     
153.         $sLastTime = $sTime
     
154.     EndIf
     
155. 
     
156.     ; 仅当日期变化时更新
     
157.     If $sDate <> $sLastDate Then
     
158.         GUICtrlSetData($hDateLabel, $sDate)
     
159.         $sLastDate = $sDate
     
160.     EndIf
     
161. EndFunc
     
162. 
     
163. ; 获取星期名称（根据数字1-7）
     
164. Func _GetWeekday($iWday)
     
165.     Switch $iWday
     
166.         Case 1
     
167.             Return "星期日"
     
168.         Case 2
     
169.             Return "星期一"
     
170.         Case 3
     
171.             Return "星期二"
     
172.         Case 4
     
173.             Return "星期三"
     
174.         Case 5
     
175.             Return "星期四"
     
176.         Case 6
     
177.             Return "星期五"
     
178.         Case 7
     
179.             Return "星期六"
     
180.     EndSwitch
     
181. EndFunc
     
182. 
     
183. ; 键盘钩子处理函数（拦截系统快捷键）
     
184. Func _KeyboardProc($nCode, $wParam, $lParam)
     
185.     ; 必须调用下一个钩子
     
186.     If $nCode < 0 Then
     
187.         Return _WinAPI_CallNextHookEx($hKeyboardHook, $nCode, $wParam, $lParam)
     
188.     EndIf
     
189. 
     
190.     ; 解析键盘事件结构
     
191.     Local $tKEYHOOKS = DllStructCreate("dword vkCode;dword scanCode;dword flags;dword time;ulong_ptr dwExtraInfo", $lParam)
     
192.     Local $vkCode = DllStructGetData($tKEYHOOKS, "vkCode")
     
193. 
     
194.     ; 拦截特定按键
     
195.     Switch $vkCode
     
196.         Case 0x5B, 0x5C ; Win键
     
197.             Return 1 ; 阻止按键传递
     
198.         Case 0x09 ; Tab键
     
199.             ; 检查Alt键是否按下（Alt+Tab组合）
     
200.             If _WinAPI_GetKeyState(0x12) < 0 Then
     
201.                 Return 1
     
202.             EndIf
     
203.         Case 0x1B ; Esc键
     
204.             Return 1
     
205.         Case 0x73 ; F4键
     
206.             ; 检查Alt键是否按下（Alt+F4组合）
     
207.             If _WinAPI_GetKeyState(0x12) < 0 Then
     
208.                 Return 1
     
209.             EndIf
     
210.         Case 0x0D ; 回车键
     
211.             ; 当焦点在输入框时，点击提交按钮
     
212.             If ControlGetFocus($hGUI) = "Edit1" Then
     
213.                 GUICtrlSendMsg($hButtonSubmit, $BM_CLICK, 0, 0)
     
214.                 Return 1 ; 阻止默认回车行为
     
215.             EndIf
     
216.     EndSwitch
     
217. 
     
218.     ; 传递其他按键
     
219.     Return _WinAPI_CallNextHookEx($hKeyboardHook, $nCode, $wParam, $lParam)
     
220. EndFunc
     
221. 
     
222. ; 清理资源（退出时调用）
     
223. Func _CleanUpResources()
     
224.     ; 取消定时器
     
225.     AdlibUnRegister("_UpdateDateTime")
     
226. 
     
227.     ; 卸载键盘钩子
     
228.     If $hKeyboardHook Then
     
229.         _WinAPI_UnhookWindowsHookEx($hKeyboardHook)
     
230.     EndIf
     
231. 
     
232.     ; 释放回调函数
     
233.     If $hCallback Then
     
234.         DllCallbackFree($hCallback)
     
235.     EndIf
     
236. 
     
237.     ; 恢复系统快捷键
     
238.     HotKeySet("{ESC}")
     
239.     HotKeySet("!{F4}")
     
240.     HotKeySet("!{TAB}")
     
241. 
     
242.     ; 删除GUI
     
243.     GUIDelete($hGUI)
     
244. EndFunc
     
245. 
     
246. ; 禁用系统快捷键
     
247. Func _DisableSystemShortcuts()
     
248.     HotKeySet("{ESC}", "_DoNothing")
     
249.     HotKeySet("!{F4}", "_DoNothing") ; Alt+F4
     
250.     HotKeySet("!{TAB}", "_DoNothing") ; Alt+Tab
     
251. EndFunc
     
252. 
     
253. ; 空函数（用于禁用快捷键）
     
254. Func _DoNothing()
     
255.     ; 不执行任何操作
     
256. EndFunc
     
257. 
     
258. ; 设置开机自启动（写入注册表）
     
259. Func _SetAutoStart()
     
260.     ; 检查是否已存在注册表项
     
261.     If Not RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "StudyTool") Then
     
262.         ; 写入当前程序路径
     
263.         RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "StudyTool", "REG_SZ", @ScriptFullPath)
     
264.     EndIf
     
265. EndFunc
     
266. 
     
267. ; 从INI文件加载题目
     
268. Func _LoadQuestionsFromINI()
     
269.     Local $aResult[0][2] ; 初始化结果数组 [问题, 答案]
     
270.     Local $sIniFile = @ScriptDir & "\questions.ini" ; INI文件路径
     
271. 
     
272.     ; 如果文件不存在，创建示例文件
     
273.     If Not FileExists($sIniFile) Then
     
274.         _CreateSampleIni($sIniFile)
     
275.     EndIf
     
276. 
     
277.     ; 读取文件内容
     
278.     Local $sContent = FileRead($sIniFile)
     
279.     If @error Then Return $aResult ; 读取失败返回空数组
     
280. 
     
281.     ; 按行分割内容
     
282.     Local $aLines = StringSplit($sContent, @CRLF, $STR_ENTIRESPLIT + $STR_NOCOUNT)
     
283. 
     
284.     Local $sCurrentSection = "" ; 当前INI节名
     
285.     Local $sLastQuestion = "" ; 临时存储问题
     
286. 
     
287.     ; 逐行解析INI文件
     
288.     For $i = 0 To UBound($aLines) - 1
     
289.         ; 跳过空行
     
290.         If StringStripWS($aLines[$i], $STR_STRIPALL) = "" Then ContinueLoop
     
291. 
     
292.         ; 检查是否是节头（例如 [古诗]）
     
293.         If StringLeft($aLines[$i], 1) = "[" And StringRight($aLines[$i], 1) = "]" Then
     
294.             $sCurrentSection = StringMid($aLines[$i], 2, StringLen($aLines[$i]) - 2)
     
295.             ContinueLoop
     
296.         EndIf
     
297. 
     
298.         ; 解析键值对
     
299.         Local $iPos = StringInStr($aLines[$i], "=")
     
300.         If $iPos > 1 Then
     
301.             Local $sKey = StringStripWS(StringLeft($aLines[$i], $iPos - 1), $STR_STRIPTRAILING + $STR_STRIPLEADING)
     
302.             Local $sValue = StringStripWS(StringMid($aLines[$i], $iPos + 1), $STR_STRIPTRAILING + $STR_STRIPLEADING)
     
303. 
     
304.             ; 处理问题行（纯数字键）
     
305.             If StringIsDigit($sKey) Then
     
306.                 $sLastQuestion = $sValue
     
307.             ; 处理答案行（A+数字键）
     
308.             ElseIf StringLeft($sKey, 1) = "A" And StringIsDigit(StringMid($sKey, 2)) And $sLastQuestion <> "" Then
     
309.                 ; 添加到结果数组
     
310.                 ReDim $aResult[UBound($aResult) + 1][2]
     
311.                 $aResult[UBound($aResult) - 1][0] = $sLastQuestion
     
312.                 $aResult[UBound($aResult) - 1][1] = $sValue
     
313.                 $sLastQuestion = "" ; 重置问题
     
314.             EndIf
     
315.         EndIf
     
316.     Next
     
317. 
     
318.     Return $aResult
     
319. EndFunc
     
320. 
     
321. ; 创建示例INI文件（当questions.ini不存在时）
     
322. Func _CreateSampleIni($sFilePath)
     
323.     Local $hFile = FileOpen($sFilePath, $FO_OVERWRITE + $FO_UTF8)
     
324.     If $hFile = -1 Then Return
     
325. 
     
326.     ; 写入示例内容
     
327.     FileWrite($hFile, "[古诗]" & @CRLF)
     
328.     FileWrite($hFile, "1=床前明月光的下一句是什么？" & @CRLF)
     
329.     FileWrite($hFile, "A1=疑是地上霜" & @CRLF)
     
330.     FileWrite($hFile, "2=举头望明月的下一句是什么？" & @CRLF)
     
331.     FileWrite($hFile, "A2=低头思故乡" & @CRLF)
     
332.     FileWrite($hFile, "3=春眠不觉晓的下一句是什么？" & @CRLF)
     
333.     FileWrite($hFile, "A3=处处闻啼鸟" & @CRLF & @CRLF)
     
334. 
     
335.     FileWrite($hFile, "[数学]" & @CRLF)
     
336.     FileWrite($hFile, "1=25 × 4 ÷ 2 = ?" & @CRLF)
     
337.     FileWrite($hFile, "A1=50" & @CRLF)
     
338.     FileWrite($hFile, "2=(18 + 7) × 3 = ?" & @CRLF)
     
339.     FileWrite($hFile, "A2=75" & @CRLF)
     
340.     FileWrite($hFile, "3=144 的平方根是多少？" & @CRLF)
     
341.     FileWrite($hFile, "A3=12" & @CRLF & @CRLF)
     
342. 
     
343.     FileWrite($hFile, "[常识]" & @CRLF)
     
344.     FileWrite($hFile, "1=中国的首都是哪个城市？" & @CRLF)
     
345.     FileWrite($hFile, "A1=北京" & @CRLF)
     
346.     FileWrite($hFile, "2=太阳系中最大的行星是？" & @CRLF)
     
347.     FileWrite($hFile, "A2=木星" & @CRLF)
     
348. 
     
349.     FileClose($hFile)
     
350. EndFunc
     
351. 
     
352. ; 显示随机题目
     
353. Func _ShowRandomQuestion()
     
354.     $iCurrentQuestion = Random(0, UBound($aQuestions) - 1, 1)
     
355.     _ShowQuestion($iCurrentQuestion)
     
356. EndFunc
     
357. 
     
358. ; 显示上一题
     
359. Func _ShowPreviousQuestion()
     
360.     If $iCurrentQuestion > 0 Then
     
361.         $iCurrentQuestion -= 1
     
362.     Else
     
363.         ; 循环到最后一条
     
364.         $iCurrentQuestion = UBound($aQuestions) - 1
     
365.     EndIf
     
366.     _ShowQuestion($iCurrentQuestion)
     
367. EndFunc
     
368. 
     
369. ; 显示下一题
     
370. Func _ShowNextQuestion()
     
371.     If $iCurrentQuestion < UBound($aQuestions) - 1 Then
     
372.         $iCurrentQuestion += 1
     
373.     Else
     
374.         ; 循环到第一条
     
375.         $iCurrentQuestion = 0
     
376.     EndIf
     
377.     _ShowQuestion($iCurrentQuestion)
     
378. EndFunc
     
379. 
     
380. ; 显示指定索引的题目
     
381. Func _ShowQuestion($iIndex)
     
382.     ; 更新问题标签
     
383.     GUICtrlSetData($hLabel, $aQuestions[$iIndex][0])
     
384.     ; 保存正确答案
     
385.     $sCurrentAnswer = $aQuestions[$iIndex][1]
     
386.     ; 清空输入框和状态标签
     
387.     GUICtrlSetData($hInput, "")
     
388.     GUICtrlSetData($hStatusLabel, "")
     
389.     ; 聚焦输入框
     
390.     GUICtrlSetState($hInput, $GUI_FOCUS)
     
391.     ; 更新窗口标题显示进度
     
392.     WinSetTitle($hGUI, "", "学习工具 - 题目 " & ($iIndex + 1) & "/" & UBound($aQuestions))
     
393. EndFunc
     
394. 
     
395. ; 检查答案是否正确
     
396. Func _CheckAnswer()
     
397.     ; 获取并清理用户答案（去除空格）
     
398.     Local $sUserAnswer = StringStripWS(GUICtrlRead($hInput), $STR_STRIPALL)
     
399.     ; 与正确答案比较
     
400.     Return ($sUserAnswer == $sCurrentAnswer)
     
401. EndFunc

复制代码

下载链接：

主链接：https://www.123912.com/s/iINuVv-YRUBd 提取码:tdoi
备链接：https://www.123865.com/s/iINuVv-YRUBd 提取码:tdoi

longjiasand

楼上的程序可以试试

valen21

楼上的楼上牛C

QinH

学习