【Windows】CPU負荷テストスクリプト(VBS)
以下のスクリプトをテキストエディターで入力
ファイル名を”cpubusy.vbs”等として保存
==============================
Dim goal
Dim before
Dim x
Dim y
Dim i
goal = 1000000
Do While True
before = Timer
For i = 0 to goal
x = 0.000001
y = sin(x)
y = y + 0.00001
Next
y = y + 0.01
Loop
Dim before
Dim x
Dim y
Dim i
goal = 1000000
Do While True
before = Timer
For i = 0 to goal
x = 0.000001
y = sin(x)
y = y + 0.00001
Next
y = y + 0.01
Loop
==============================
※各値は適宜変更してください。
作成したcpubusy.vbsを実行するとCPU負荷が上昇し始める。
停止したいときはスクリプトを止めるかタスクマネージャーより
強制的にKillする。
