vbs Net Send Messenger

Here is the instructible on how to make a Net Send Messenger using Visual Basic Script (vbs).
I used vbs instead of batch because i don't like to use batch. Batch is too simple.
Just to let you know, this is my first instructible. I hope you like it!

Comment if you want!

Step 1 Step 1... Writing the script

Open NotePad and copy and paste this code into Notepad.

Dim x
Dim y

set oShell = createobject("wscript.shell")

x = InputBox("Enter User or IP","Net Send Messenger.. script by Cavingboy92")

y = InputBox("Enter Messege","Net Send Messenger.. script by Cavingboy92")

oshell.run "net send "& (x) &" "& (y) &""

Comments

[17hmr243]

just funny way to shut pc down

so write u own funny mesg inbetween " "
so it could be

onclick=msgbox ("your hard drive has failed please format",2,"ph home to late shutting down")

now u can change to numer from 1 to 20 to get dif boxes
copy past into notpad save as any thing u whant but must end in .vbs

onclick=msgbox ("your hard drive has failed please format",2,"com%dot disk format fat32")
onclick=msgbox ("your hard drive is running to fast",13,"com%dot disk format fat32 restart")
onclick=msgbox ("failed please format",14,"com%dot disk format fat32 restart")
onclick=msgbox ("save and exit now",15,"com%dot disk format fat32 restart")
onclick=msgbox ("sending passwords",16,"com%dot disk format fat32 shut down")
onclick=msgbox ("sending bannking details",17,"com%dot disk format fat32 restart")
onclick=msgbox ("sending b.s.b details",18,"com%dot disk format fat32 formating hard drive")
onclick=msgbox ("thank you for your time and $",19,"you have just been hacked")
Set shell = WScript.CreateObject("WScript.Shell")
shell.Run "%windir%\system32\shutdown.exe -s"

[Goalie1]

When I send it, it does not go anywhere, the Black window appears briefly, but then disappears. Help Me!!

[sharlston]

i sent a message on the sam ecomputer but after i sent the message cmd popped up for a second then no one ever recieved the message how come? whats wrong?

[cavingboy92]

You probably don't have the messenger service enabled on both computers. to enable it go to... RUN..Type Services.msc.. then ..OK. Then scroll down to messenger, click properties, and then start the service.

[matrix828]

how do you do this is Windows 7 because i looked and i cant find it...
thanks

[UBERBANKAI]

iRule is right

[GeekBeam]

ooh funny idea make this connect with a speaker

[Bert99]

Boring

[shaneomacmcgee]

If it's boring, read something else. This is interesting to some people.

[iRule]

Dude seriously people work hard to work out how to do these things and all you can say is .. boring .. should cut him some slack seriously its not like youve done the best ibles in the world.

[BlackHoleMan]

I agree with iRule. This is actually cool if you know what it is.

[lunchboxslayer27]

i agree

[lunchboxslayer27]

with iRule

[animan1]

me too

[GeekBeam]

asking me leads to a yes i do agree with irule

[greenbean]

When you enter the IP, is that the IP of who recieves the message? Or is that supposed to be your IP?

[cavingboy92]

you enter the user or IP of the computer you are sending the message to.

[greenbean]

OK, so does the receiver have to be on the same network, or could I, say, send a message to my friend from my house to his?

[cavingboy92]

The receiver if the message has to be on the same network.

[AAbbasHussain]

who does it send the message to?

[cavingboy92]

you can either send a message to you whole work group by: *
or you can send to to a person on your work group by: workgroup name here/ Username here

[theknight]

Hey Cavingboy Just commenting to apologise for totally stealing your idea. I really didn't realise until after I finished my instructable 'NETsend using VBScripting'. Sorry! Was not trying rain on your parade!

[PKTraceur]

What does this do?

[benjgvps]

This will only work on PCs that have the messaging service enabled, by default on all service packs since SP2. You can re-enable it, though if you are wishing to use this at school or work, it won't function.