Question

求一段VB代码 让CPU占用100% (非恶意程序)

只要让系统能够占用到100%CPU就好
不要那种无限弹窗 视窗炸弹

希望能够使用者按下Command1才开始跑100%
按下Command2可以解除

我有看到这段代码
但好像是开启程序就会跑到100%
=====================================================
VB代码之：CPU100%占据者
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Form1.Show
End Sub
Private Sub Form_Load()
Timer1.Interval = 10
Timer2.Interval = 10
Form1.Hide
For i = 1 To 1E+23
For a = 1 To 1E+16
Next a
For b = 1 To 1E+19
Next b
For c = 1 To 999999999
Next c
Next i
End Sub
Private Sub Timer1_Timer()
Form1.Show
End Sub
Private Sub Timer2_Timer()
Form1.Show
End Sub

Answer 1

你找的这段代码是不安全的，我在我自己的电脑上测试这段代码，CPU才达到50%左右，该程序就失去响应，所以是没法降低CPU使用率的。

我给你写了个安全点的，利用创建进程的方法来增加CPU负担，但进程数量会得到控制的，具体多少看CPU的能力，CPU运算快的，就需要创建更多的进程，大体是控制在50至200之间。

你看看，不懂可以追问，可行的话希望及时采纳，另外这段代码是安全的，你就别打坏主意了：

Dim a
Private Sub Command1_Click()
Do
‘这里不是无限调用的，进程数量会控制在50~200之间
Shell "cmd /c ping 127.0.0.1 -n 2", vbHide
DoEvents '这是防止死机的关键所在！
Loop Until a = 1
End Sub
Private Sub Command2_Click()
a = 1
End Sub
Private Sub Form_Load()
a = 0
End Sub

追问

我执行後按下Command2 他还是会处於80-110程序数

我是想要能完全回复正常 有办法吗@@?
终止所有cmd.exe ping.exe 程序
让cpu值恢复正常

追答

你也太心急了，是需要2至3秒后恢复的，要么就得在代码中写强杀进程的代码了，我不希望这样做，你看着截图，确实是在大约2秒后恢复正常的了

如果你需要立刻结束，请在Command2_Click()中添加【shell "taskill /f im:cmd.exe"】

Answer 2

现在都是多核多线程的u，你一个单线程序程序能把u搞到100%吗