我目前正在学习如何在Visual Basic中编写命令，并决定制作一条简单的关闭消息。该代码运行良好：当用户单击“是”时，它将关闭，然后单击“否”，“取消”和“ X”按钮关闭该消息。但是，我决定也尝试发出一个恶作剧消息，在该消息中计算机将关闭选择的任何选项。我跑了剧本，但是当我点击了“X”图标（我并不喜欢关停的想法我的电脑！），我的电脑关机反正:(有没有办法阻止这种情况的发生，或者，甚至更好，是有没有一种方法可以使“ X”图标显示为灰色，从而使用户无法关闭该消息？代码如下：
Option Explicit
Dim result
result = MsgBox ("Do you want to shutdown?", 3+48,"Warning")
Dim objShell
Select Case result
Case vbYes
MsgBox("shuting down ...")
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 20"
Case vbNo
MsgBox("shuting down ...")
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 20"
Case vbCancel
MsgBox("shuting down ...")
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 20"
End Select
提前加油！：D
确定，是否有理由尝试删除/禁用X？我问，因为虽然可以做到，但会有些困难。
一旦意识到了这些，实际上禁用按钮几乎毫无意义。当上述情况显示时，用户点击X而不是点击按钮，就会发生以下情况
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句