原理就是死循环!
将下列内容保存为cpubusy.vbs后执行即可
------------------------------------------------------------------------
Dim goal
Dim before
Dim x
Dim y
Dim i
goal = 2181818Do While Truebefore = TimerFor i = 0 to goalx = 0.000001y = sin(x)y = y + 0.00001Next
y = y + 0.01Loop
------------------------------------------------------------------------