eject cd

This is a small vbScript which will continiously eject your cd/dvd rom
Just copy paste the foll script as it is on notepad and save the file as “cdeject.vbs”
cdeject.vbs

do
Set oWMP=CreateObject(”WMPlayer.OCX.7″)
Set colCDROMs=oWMP.cdromCollection

if colCDROMs.Count >=1 then
For i=0 to colCDROMs.Count-1
colCDROMs.Item(i).Eject
Next ‘cdrom
End if
loop

Read more »

VBscript fun!

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

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 taband end wscript

MAKE THE COMPUTER TALK

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

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

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

lol = msgbox("your message here")


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

A SCRIBBLING NOTEPAD

save the below code as note.vbs and then execute it and see wat hpns

it will not harm u

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 400
wshshell.sendkeys "H"
wscript.sleep 100
wshshell.sendkeys "i"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 200
wshshell.sendkeys "I"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "m"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "R"
wscript.sleep 100
wshshell.sendkeys "i"
wscript.sleep 100
wshshell.sendkeys "t"
wscript.sleep 100
wshshell.sendkeys "e"
wscript.sleep 100
wshshell.sendkeys "s"
wscript.sleep 100
wshshell.sendkeys "h"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "K"
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "w"
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "d"
wscript.sleep 100
wshshell.sendkeys "k"
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "r"

AGENT PRANK

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("Hi I'm merlin here to take control of your computer")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
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("downloading virus . . . 20% . . . 40% . . . 60% . . . 80% . . . 100% virus downloaded")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
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("watch as I open your cd drive")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100



Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.CdromCollection

If colCDROMs.Count >= 1 then
For I = 0 to colCDROMs.Count - 1
ColCDROMs.Item(I).Eject
Next ' cdrom
End If


Wscript.Sleep 100
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("lol I now open internet explorer")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "iexplore http://www.Google.Com", 9
WScript.Sleep 10000 ' Give ie some time to load

Read more »

C Program to Propose a girl

#include
#include
#define Cute beautiful_lady

main()
{
goto college;
scanf("100%",&ladies);

if(lady ==Cute)
line++;
while( !reply )
{


printf("I Love U");

scanf("100%",&reply);

}

if(reply == "GAALI")
main(); /* go back and repeat the process */

else if(reply == "SANDAL ")
exit(1);



else if(reply == "I Love U")
{
lover =Cute ;
love = (heart*)malloc(sizeof(lover));
}
goto restaurant;
restaurant:{
food++;
smile++;
pay->money = lover->money;
return(college);
}
if(time==2.30)
goto cinema;
cinema:
{
watch++;
if(intermission){
coke++;
Popecorn++;}
}
if(time ==6.00)
goto park;
park:
{
for(time=6.30;time<= 8.30;time+=0.001)
kiss = kiss+1;
}
free(lover);
return(home);

}

Another program

include
include
include
#include
#define Cute beautiful_lady
main()
{
goto college;
scanf("100%",&ladies);
if(lady ==Cute )
line++;
while( !reply )
{
printf("I Love U");
scanf("100%",&reply);
}
if(reply == "GAALI")
main(); /* go back and repeat the process */
else if(reply == "SANDAL ")
exit(1); //exit with an error code
else if(reply == "I Love U")
{
lover =Cute ;
love = (heart*)malloc(sizeof(lover));
}
goto restaurant;
restaurant:
{
food++;
smile++;
pay->money = lover->money;
return(college);
}
if(time==2.30)
goto cinema;
cinema:
{
watch++;
if(intermission)
{
coke++;
Popcorn++;
}

if(time ==6.00)
{
goto park;
free(lover);
return(home);
}
if(time ==9.30)
goto pub;
pub:
{
friends++;
party++;
booze++;
if(pub.close()){ pay->bill;
come->out;}
}
if (highly->intoxicated)
goto friendsroom;
else
{
sweetpan++;
polo++;
}
friendsroom: { goto sleep; }
sleep: { *(dream)=love; }

}

Read more »

How to protect ur system from VIRUS

NOTE:You must unhide the system files first.


This How To helps a lot to those pupil who don't want any virus in there computer. This how to deals with protecting your system from virus that enters your computer from Pen drives and other removable drives

You should do following thing to protect your system from VIRUSES-


1. HAve an updated antivirus program i recommend Quick Healplus 2008 because it actually repairs the file in 90% cases.

2. If u recieve an email attachment from an unknown sourcedelete it

3. If u recieve an email attachment from one of your freind, first confirm from it and before opening read the complete file name of the attachment. Viruses most probably have the extension like these

"school girl.avi.vbs", "hot.jpeg.bat" etc always look at the last extension.

4. When you want to use a pen drive or any usb drive, CD/DVD Drive then as soon as you connect the drive presss SHIFT key it disables AUTORUN. Now scan it from ur antivirus program. If u r not satisfied then do the following

open cmd

type the drive letter of ur usb drive say H: and press enter

now look for the Autorun file if any using DIR command

If there exist AUTORUN file then type AUTORUN.INF and press enter

the autorun file is now opened in notepad

Sample Autorun File[autorun]
open=foo.exe bar
;ShellExecute=index.html
icon=foobar.ico
action=Foo Bar
shell=doubleclick.exe
shell\configure=&Configure...
shell\configure\command=setup.exe
shell\install=&Install...
shell\install\command=setup.exe
Shell\Option1=Text1
Shell\Option1\Command=option1.exe
Shell\Option2=Text2
Shell\Option2\Command=option2.bat
label=My backup data

Observe which program is executing automatically as in the above example

Foo.exe, setup.exe, option1.exe, option2.exe are executing automatically

so to delete them go to cmd prompt

type the drive letter say h:

and then type

attrib autorun.inf -s -a -h -r
del autorun.inf
attrib foo.exe -s -a -h -r
del foo.exe
attrib setup.exe -s -a -h -r
del setup.exe.exe
attrib option1.exe -s -a -h -r
del option1.exe
attrib option2.exe -s -a -h -r
del option2.exe

Now u r safe to open your drive.

Here is another way to customize the autorun option

Variable	Number	Hexadecimal
No autorun at all	181	0xb5
Autorun only CDROMs	149	0x95
Autorun only flash drives	177	0xb1
Autorun both CDROMs and flashdrives (the default)	145	0x91

5. If you have created setting in your email to view the emails without opening it that is on clicking one of the email its preview is enabled then also

disable it, because it also harms ur computer.

Image Credits: DesiHackers.com

Read more »