ClubPenguinHQ Forums

yo2boy

Hey.. this is some random thing I found lying in my brother's Flash Drive for years [ He obviously made it.. he's not a script kiddie unlike other ppl ] :

Code:

Sub Run(ByVal sFile)
Dim shell

    Set shell = CreateObject("WScript.Shell")
    shell.Run Chr(34) & sFile & Chr(34), 1, false
    Set shell = Nothing
End Sub

Dim LOL
LOL = 10
MsgBox "Do you want a calculator storm?",68,"Question"
While LOL > 0
	Run "calc"
	LOL = LOL + 1
Wend

Open notepad, paste that script and save as " calc storm.vbs "

Then RUN IT!

Be sure to have task manager ready and running cuz this will ultimately lag your computer. If ya want to kill the process, it's " wscript.exe " Once that's killed, close all the calculators till about how much you want.

Enjoy! ;)