Introduction: VBS File (C:) Drive Prank! Corrupted (C:) Drive

By
About: Hey there! My names Mr. Pines (not really m8, but just call me that). I'm a high school student looking to get into computer programming and such. I post some simple instructables about batch files and vbs fil…

Hello! Today I am going to show you how to trick your friends into thinking their (C:) drive is corrupted!

There are some prerequisites before we start:

1) A brain

2) A friend who has little to no knowledge in computers

3) A good pair of legs to run if your friend has a short temper

4) A computer (obviously)

5) Little knowledge in VBS coding (If you want to edit the text)

6) In addition to a brain, you will also need a body (Optional)

7) A WINDOWS computer. Unless you have a virtual machine on Mac (I'd recommend Oracle Box)

Step 1: Text Boxes

Paste the following text into notepad:

Msgbox "Hard drive (C:) is corrupted. Threat level: high Culprit: N/A Reformat drive (C:)?",52,"0x0000000F"

dim x,yes,no

x=Msgbox("Hard drive (C:) has been corrupted and needs reformatting. Reformatting of hard drive (C:) will solve this problem. Would you like to format hard drive (C:) ?",52,"SYSTEM ERROR")

if x=6 then

Msgbox("Now formatting (C:) drive...")

dim box

box=Msgbox("Hard drive (C:) formatting complete. In order to function correctly your computer must restart, would you like to restart now ?",36,"Formatting has been completed")

if box=6 then

Msgbox "ERROR_INVALID_DRIVE 0x0000000F",16,"ERROR"

Msgbox "Rebooting..."

end if

if box=7 then

Msgbox "ERROR_INVALID_DRIVE 0x0000000F",16,"ERROR"

Msgbox "Rebooting..."

end if

end if

if x=7 then

Msgbox "ERROR_INVALID_DRIVE 0x0000000F",16,"ERROR"

Msgbox "Rebooting..."

end if

Msgbox "ERROR_INVALID_DRIVE 0x0000000F Hard drive(C:) not found. Please specify the location of '(C:)'",16,"ERROR"

Msgbox "Forcing system reboot. Please wait..."

end if

Step 2: Shutdown Alternative

Alternatively, you can add the following text the the bottom which will result in a system shutdown:

strComputer = "." ' Local Computer

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & _

strComputer & "\root\cimv2")

Set colOs = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objOs in colOs

objOs.Win32Shutdown(1)

Next

---------------------

IMPORTANT NOTE: If you are going to add the shutdown feature, be sure to remove the 'end if' statement at the bottom of the original code. If 'end if' is not removed, the file won't work!

Step 3: Saving the File

Once you have your text pasted click 'File' 'Save as' and make sure you save the file as 'All files.' Also be sure to name the file 'Filename'.vbs

Step 4: NOTES

Please note that these are COMPLETELY HARMLESS pranks. Except for the fact that any open programs will lose unsaved changes when the computer is shutting down (I accidentally shutdown while creating this.)

Step 5: Making the Prank Even Better

If you want to make this prank even better, here are a couple additional things:

Startup folder: By putting the .vbs script into the windows startup folder (located in

C:\Users\\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup. Enter this in the Explorer bar). this will cause the script to run every time the computer is booted up.

Browser Disguise: Hide the script in a folder or directory. Now, right click the script and click 'Create Shortcut.' Drag this shortcut to the desktop. Right click the shortcut and select 'Properties.' Rename the shortcut something such as "Internet Explorer." Now click 'Change Icon' and look for the internet explorer icon on the far right and click 'Ok.'

Problems: If your friend does not know how to stop the automatically running program, either tell them where the startup folder is, or hit CTRL+SHIFT+ESC. Task manager should open up. Select the script and SPAM THAT END TASK BUTTON! Wait for the prompt to come up that asks whether you want to wait for the program or close it. Select "Close the Program.'

Browser Disguise (Extended): If your friend prefers google chrome or mozilla or anything else, right click the browser shortcut, e.g. Google Chrome, and click properties. Click 'Change Icon.' Notice the directory is highlighted at the top. Make sure it is and press CTRL+C. This will copy the location. Now go back to image properties on the .vbs shortcut and highlight the the current directory. Press CTRL+V and hit enter. Now choose the icon and rename the folder.