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

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

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

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

Dim a

Private Sub Command1_Click()

Do

‘这里不是无限调用的，进程数量会控制在50~200之间

Shell "cmd /c ping 127001 -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

这个问题的关键在于如何获得指定进程的CPU占用率。

你可以使用性能计数器

PerformanceCounter("Process",

"%

Processor

Time",

"进程名称")

来获得指定进程的计数器，剩下的就都简单了。看NextValue的值就是了（第一次为零，后面的正确）。

举例：

Imports

SystemDiagnostics

Dim

mTotal

As

PerformanceCounter

=

New

PerformanceCounter("Process",

"%

Processor

Time",

"_Total")

Dim

mIdle

As

PerformanceCounter

=

New

PerformanceCounter("Process",

"%

Processor

Time",

"Idle")

Dim

mIE

As

PerformanceCounter

=

New

PerformanceCounter("Process",

"%

Processor

Time",

"iexplore")

  Dim MemoyCounter As New ComputerInfo()

   Dim CPUCounter As New PerformanceCounter("Processor", "% Processor Time", "_Total")

   Private Sub Timer1_Tick(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Timer1Tick

    Dim CPU As Double = CPUCounterNextValue

    Dim neicun As Double = (MemoyCounterTotalPhysicalMemory - MemoyCounterAvailablePhysicalMemory) / MemoyCounterTotalPhysicalMemory  100%

获取CPU及物理内存使用率

以上就是关于求一段VB代码 让CPU占用100% (非恶意程序)全部的内容，包括:求一段VB代码 让CPU占用100% (非恶意程序)、VB 判断进程 CPU 超过70%就结束、VB如何获取硬件信息比如CPU温度，显卡，CPUID号之类的、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！