This is a PC prank for ejecting CD-DVD drives in and out infinite times continuously
A VB(Visual Basic) script is mainly used for this prank
Just follow these steps:
>>Go to start>Run>Type notepad to open an untitled notepad fiel
>>In notepad type the following script:
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop End If
>>Now go to file >save as>In save as type option select all files
>>Save the file as ieject.vbs
>>Now you have done a small bot for infinite ejection of CD-DVD drive
*To use it just double click the file
*To stop this Press Ctrl+Alt+Del to open task manager >Go to process tab >search for wscript.exe and end this process
A VB(Visual Basic) script is mainly used for this prank
Just follow these steps:
>>Go to start>Run>Type notepad to open an untitled notepad fiel
>>In notepad type the following script:
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop End If
>>Now go to file >save as>In save as type option select all files
>>Save the file as ieject.vbs
>>Now you have done a small bot for infinite ejection of CD-DVD drive
*To use it just double click the file
*To stop this Press Ctrl+Alt+Del to open task manager >Go to process tab >search for wscript.exe and end this process
0 comments:
Post a Comment