我使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
它是一场老赵和老董的战事。 文 | 史中(电脑硬盘和锤头 详细地址:河北省邢台市 角色:老董 老董坐着河北省邢台市的家中,赶忙吃着早餐。 他身旁的电脑上显示灯在昏暗的光源下一明一灭...
日前,一篇“赵立坚用蒙古谚语感谢蒙古国捐羊”的报道在互联网上引发热议。经过半年多精心筹备,蒙古为支持中国抗击新冠肺炎疫情而捐赠的3万只羊正式开始移交中方。目前,蒙古向中国捐赠的3万只羊均已进入蒙古...
梁颖罗冠军事件 扒一扒整件事情前因后果 最近登上微博热搜的梁颖罗冠军事件大家一定都是有所耳闻,但也只是在网友们的评论讨论中得知一些片面的消息。今天我们就来扒一扒整件事情的前因后果,这对情侣都是为什么连...
手机已经成为人们日常生活的必需品,正常情况下手机的使用寿命最多三到五年,过度使用或者遇到意外的情况下使用寿命会缩短,毕竟手机再好也不能做到不怕摔的地步,而且电子产品更新换代的速度也越来越快。那么手机更...
本文导读目录: 1、黑客入门新手特训 2、新手入门黑客要先学什么 3、黑客怎么入门??? 4、当黑客的新手入门谁能告诉我 5、新手学黑客攻防 6、黑客入门书,非电子书 7、Ha...
今天主要讲讲日本动漫的产业盈利过程: 第一步,漫画作者的原画会投稿杂志社,原话可以通过连载发布出去(类似于连载小说); 第二步,刊载时间长了之后,收益逐渐明朗或者收益增加,内容可以整合成单行本出版...