メモリに意図的に負荷をかけるスクリプト

Windows

Sample.vbs

Dim i

For i = 1 To 5000
    Call Roop
Next

MsgBox "終了しました。メッセージボックスを閉じるとメモリは開放されます。"

Sub Roop()
    Dim x, y
    Set x = CreateObject("Scripting.Dictionary")
    Set y = CreateObject("Scripting.Dictionary")
    Call x.Add("a", y)
    Call y.Add("b", x)
End Sub